عبدالله باقشير قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 السلام عليكم ورحمة الله وبركاته للوصول السريع الى فتح صناديق الحوار او الاوامر ده الفورم يعطيك الرقم سريعا XlBuiltInDialog هو في ارقام كثيرة لكن حاولت ان اجمع ما يفتح بالامر Show اختار الرقم وضعه بدل الكلمة هنا Application.Dialogs(هنا).Show في اوامر لم اضع تسميتها دمتم في حفظ اللهApplication.Dialogs1.rar =================================================== النسخة الجديدة بجميع الاوامر من 1 الى 119 ممكن تستخدم معها الامر Show وهي الملونة في الشيت وهي التي تم اختبارها وترجمتها مني ومن الاخ عادلApplication.Dialogsadel3.rar =================================================== رابط ذو اهمية:http://msdn.microsoft.com/en-us/library/ff194519.aspx 5
عبدالله باقشير قام بنشر يوليو 20, 2011 الكاتب قام بنشر يوليو 20, 2011 وعليكم السلام مثلا لو اردنا امر معاينة الطباعة عندك في الفورم الرقم 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 1
عادل حنفي قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 السلام عليكم اخي الحبيب خبور بارك الله فيك اخي الحبيب و ووجودك يسعدنا و اعمالك دائم مميزه خالص تحياتي و تقديري
عبدالله باقشير قام بنشر يوليو 20, 2011 الكاتب قام بنشر يوليو 20, 2011 شكرا جزيلا اخي عادل حاول ان تراجع بقية الاوامر وتكتبها في الملف ان استطعت بدون تكلف وتراجع اي خطا كتبته وتصححه 1
عادل حنفي قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 اخي خبور بارك الله فيك تم ايقاف سطر من الكود للعمل من اول خلية في العمود تحياتي قائمة في خلية للقيم الفريده في نفس العمود.rar 1
عادل حنفي قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 اخي خبور ارجو اني اكون استطعت الانجاز تحياتي Application.Dialogs2.rar 1
عبد الفتاح كيرة قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 شكرا لأستاذنا خبور وإلى الغد إن شاء الله
عبدالله المجرب قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 ماشاء الله استاذنا الفاضل ابو علي هذا ما انتظرناه وننتظره منكم الاعمال الابداعية التي نتعلم منها ابواحمد
معتصم محمد قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 الاستاذ / عبدالله عمل رائع الأستاذ / عادل شكراً على تكملة الأوامر بارك الله بكم جميعاً
saad abed قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 اخى خبور (عبدالله) انت مدرسة بسم الله ما شاء الله ربنا يكرمك ياخى اخى عادل حنفى بارك الله فيك تحياتى سعد عابد
محمدي عبد السميع قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 حفظك الله ورعاك ماشاء الله عليك اخي العالم الفذ
MAHMOUD ALI YOUSSEF قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 السلام عليكم ورحمة الله وبركاته للوصول السريع الى فتح صناديق الحوار او الاوامر ده الفورم يعطيك الرقم سريعا XlBuiltInDialog هو في ارقام كثيرة لكن حاولت ان اجمع ما يفتح بالامر Show اختار الرقم وضعه بدل الكلمة هنا Application.Dialogs(هنا).Show في اوامر لم اضع تسميتها ده عمل سريع و شرح سريع دمتم في حفظ الله استاذنا الكبير والعلامة القدير خبور فكرة جميلة جدا جدا جدا جزاك الله كل خير محمود علي ( محمود فوكس )
ياسر الحافظ قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 الاستاذ : خبــــــــــــــــــــــــــــــــــــور خير الاستاذ : عـــــــــــــــــــــــــــــــــــادل حنفي انتم اساتذة ( كما قال اخي سعد ) بكل ما تحمل هذه الكلمة من معاني .... علم ... اخلاق ... تعاون ... نبل .. تفاني وفقكم الله ياسر الحافظ " ابو الحارث "
الحسامي قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 السلام عليكم تحية كلها تقدير ... تخص الصاحب الغالي ... و عفواً لا حصل تقصير ... بقدرك يا بعد حالي ... بارك الله فيك اخي خبور اخي عادل ما شاء الله عليك تحياتي واشواقي
محمد يحياوي قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 على قدر اهل العزم تأتي العزائم ======= و تأتي على قدر الكرام المكارم الاساتذة الكرام الاستاذ خبو و الاستاذ عادل لم تتركوا بابا للخير الا فتحتموه و اغرقتمونا بجمائلكم و عجزنا عن شكركم فبوركتم و جوزيتم و وفقتم الى الخير
عبدالله باقشير قام بنشر يوليو 20, 2011 الكاتب قام بنشر يوليو 20, 2011 ======================== الاخ الحبيب/ عادل ======================== مجهود اكثر من رائع وفي زمن قياسي ======================== و
عبدالله باقشير قام بنشر يوليو 20, 2011 الكاتب قام بنشر يوليو 20, 2011 الاخوة الافاضل والحبايب كيماس عبدالله المجرب معتصم محمد سعد عابد محمدي محمود علي ياسر الحافظ الحسامي الجزيرة يحياوي لكم من كل قلبي و
يوسف عطا قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 الأخ الغالى خبور خير لك الف تحية وإعزاز وتقدير الأخ عادل بك ربنا يوفقك فى الخير دمتم بود
أيسم إبراهيم قام بنشر يوليو 20, 2011 قام بنشر يوليو 20, 2011 ما شاء الله . لا قوة إلا بالله جزاكم الله خيرا أساتذتنا الكرام أستاذنا خبور و أستاذنا عادل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.