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