اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الصناديق الحوارية فى الاكسل dialog boxes


الردود الموصى بها

515353092.gif

إخوتى الكرام

توضيح كيفية اظهار الصناديق الحوارية الموجودة فى الاكسل من خلال الاكواد

فى الملف المرفق تجميع لكل الصناديق الحوارية الموجودة فى الاكسل مثل فتح open أو حفظ باسم save as وغيرها لمن يريد استخدامها داخل الأكواد حيث يتم استخدام اسم الصندوق الحوارى أو رقمة داخل الكود ليتم اظهاره

مثال


Application.Dialogs(1).Show

لفتح الصندوق الحوارى ( فتح open ) وهكذا

ويوجد ملف اكسل يحتوى على بعض الأمثلة وتنفيذ عملى لبعض الأكواد التى تعمل على ظهور بعض الصناديق الحوارية

156479962.gif

صناديق حوارية.rar

  • Like 1
رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله وبركاته

شكرا جزيلا أخى الفاضل أستاذ / أحمد زمان على هذا المرور العطر والكلمات الطيبة

رابط هذا التعليق
شارك

جزاك الله كل خير أخى عبد الله

فعلا الموضوع الذى أشرت اليه مميز جدا فعلا

وسر تميزه هو أنه من ابداع أستاذنا الكبير / عبد الله باقشير

رابط هذا التعليق
شارك

الاخوة الافاضل والحبايب رؤساء ومراقبي أقسام الموقع

شكراً لكم على تميزكم

مرجع مهم ومفيد وفر علينا عناء البحث

شكراً للأخ/ رجب جاويش

وشكراً للأخ/ عبدالله المجرب

رابط هذا التعليق
شارك

  • 4 weeks later...

السلام عليكم ورحمة الله

لدى سؤال

دلوقتى عندى عمودين A و B

العمود A قيمة نقديه

العمود B تاريخ

فأنا عايزه إنه عند إدخال عمود التاريخ B البرنامج يفعل التالى

إذا كان العمود A قيمته أكبر أو أقل من الصفر يقبل العمود B كتابة التاريخ وإن كان الخليه بالعامود A تساوى صفر بالضبط فعند الكتابه فى الخليه التى تقابلها بالعمود B يظهر رسالة من فضلك إدخل القيمة أولاً ولا يقبل تسجيل التاريخ بالخليه إلا بوجود القيمه بالخليه التى تقابلها بالعمود A

رابط هذا التعليق
شارك

تفضلى أختى الفاضلة


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub

If Target = "" Then Exit Sub

On Error Resume Next

If Target.Offset(0, -1).Value = 0 Then

    Target.Value = ""

    Target.Offset(0, -1).Value = ""

    MsgBox "من فضلك أدخل القيمة أولا"

Target.Offset(0, -1).Select: Exit Sub

End If

If Target.Offset(0, -1).Value <> 0 Then

Target = Format(Target, "DD/mm/YYYY")

End If

End Sub

Book1.rar

رابط هذا التعليق
شارك

شكراً على مجهود حضرتك الرائع ولكن للأسف بتظهر الرساله عندى حتى لو أدخلت خلية القيمه فهو لا يقبل تاريخ فى المطلق

أنا عايزه أول ما تدخل القيمه التى أكبر أو أصغر من الصفر يقبل تاريخ عادى لا يقبله فقط فى حالة الصفر

الفايل بتاع حضرتك شغال تمام لكنى لما أخذت ال Medule كوبى وعدلت أرقام الأعمده حدث ما سبق

عمود القيمه هو عمود رقم 13

عمود التاريخ هو عمود رقم 22

وحطيت رقم عمود الإزاحه -9

قمت بالتعديل ولكن إما لا يقبله أو يظلل Debug على

Private Sub Worksheet_Change(ByVal Target As Range(

تم تعديل بواسطه هبه مصطفى
رابط هذا التعليق
شارك

أستاذى الفاضل لقد قمت بتعديل الرساله السابقه أتمنى أن تقرأها مره أخرى وأرفقت فى هذه الرساله الشيت المطلوب عمل الكود بها للتوضيح وهى شيت فقط لأن حجم الملف كبير جدا جداً لا أستطيع إرساله وشكراً للمساعده

تم تعديل بواسطه هبه مصطفى
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information