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

فورم باوامر صناديق الحوار Application.Dialogs


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

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

للوصول السريع الى فتح صناديق الحوار او الاوامر

ده الفورم يعطيك الرقم سريعا

XlBuiltInDialog

هو في ارقام كثيرة لكن حاولت ان اجمع ما يفتح
بالامر Show

اختار الرقم وضعه بدل الكلمة هنا
 

Application.Dialogs(هنا).Show

في اوامر لم اضع تسميتها

دمتم في حفظ الله
Application.Dialogs1.rar


===================================================
النسخة الجديدة بجميع الاوامر
من 1 الى 119 ممكن تستخدم معها الامر
Show
وهي الملونة في الشيت
وهي التي تم اختبارها وترجمتها مني ومن الاخ عادل
Application.Dialogsadel3.rar
===================================================
رابط ذو اهمية:

http://msdn.microsoft.com/en-us/library/ff194519.aspx

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

وعليكم السلام

مثلا لو اردنا امر معاينة الطباعة

عندك في الفورم الرقم 222

Sub kh_showDialog_222()

Application.Dialogs(222).Show

End Sub
مثلا اعجبني الامر ده لعمل قائمة او لست في خلية توخد من نفس العمود عملت الكود هذا ليناسها ============================================================
Option Explicit

Private Const stRng As String = "B4:B32"



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Me.CheckBox1.Value = True Then Exit Sub

If Not Intersect(Target.Cells, Range(stRng).Cells) Is Nothing Then

    If Target.Cells.Count > 1 Then Exit Sub

    If Target.Row = Range(stRng).Row Then Exit Sub

    If Len(Target.Offset(-1, 0)) Then

        Application.Dialogs(491).Show

    End If

End If

On Error GoTo 0

End Sub

يوضع في حدث الورقة

قائمة في خلية للقيم الفريده في نفس العمود.rar

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

ماشاء الله

استاذنا الفاضل ابو علي

هذا ما انتظرناه وننتظره منكم

الاعمال الابداعية التي نتعلم منها

ابواحمد

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

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

للوصول السريع الى فتح صناديق الحوار او الاوامر

ده الفورم يعطيك الرقم سريعا

XlBuiltInDialog

هو في ارقام كثيرة لكن حاولت ان اجمع ما يفتح

بالامر Show

اختار الرقم وضعه بدل الكلمة هنا

Application.Dialogs(هنا).Show

في اوامر لم اضع تسميتها

ده عمل سريع

و شرح سريع

دمتم في حفظ الله

استاذنا الكبير والعلامة القدير خبور

فكرة جميلة جدا جدا جدا

جزاك الله كل خير

محمود علي ( محمود فوكس ) :clapping::clapping::clapping::fff::fff::fff::fff:

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

الاستاذ : خبــــــــــــــــــــــــــــــــــــور خير

الاستاذ : عـــــــــــــــــــــــــــــــــــادل حنفي

انتم اساتذة ( كما قال اخي سعد ) بكل ما تحمل هذه الكلمة من معاني .... علم ... اخلاق ... تعاون ... نبل .. تفاني

وفقكم الله

ياسر الحافظ " ابو الحارث "

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

السلام عليكم

تحية كلها تقدير ... تخص الصاحب الغالي ... و عفواً لا حصل تقصير ... بقدرك يا بعد حالي ...

بارك الله فيك اخي خبور

اخي عادل

ما شاء الله عليك

تحياتي واشواقي

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

على قدر اهل العزم تأتي العزائم ======= و تأتي على قدر الكرام المكارم

الاساتذة الكرام الاستاذ خبو و الاستاذ عادل لم تتركوا بابا للخير الا فتحتموه و اغرقتمونا بجمائلكم و عجزنا عن شكركم فبوركتم و جوزيتم و وفقتم الى الخير

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

p3.gif

الاخوة الافاضل والحبايب

كيماس

عبدالله المجرب

معتصم محمد

سعد عابد

محمدي

محمود علي

ياسر الحافظ

الحسامي

الجزيرة

يحياوي

p9.gif

لكم من كل قلبي

و

p54.gif

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information