Yasser Fathi Albanna قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم كود يقوم بتكبير القائمة المنسدلة بمجرد الوقوف داخل الخلية الموجود بها القائمة المنسدلة أرجوا أن ينال إعجابكم جرب إضغط على الخلية A2 وشاهد بنفسك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub تكبير القائمة المنسدلة.rar 5 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 بسم الله الرحمن الرحيم ألف شكر على الهديّة الرائعة سيّدي الكريم " ياسر فتحي البنّا " بارك الله فيك .. جزاك الله خيرا و زادها بميزان حسناتك جاري التجريب فائق إحتراماتي 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أكتوبر 30, 2015 الكاتب مشاركة قام بنشر أكتوبر 30, 2015 أخى الحبيب الغالى / عبد العزيز السكرى شكرا لمرورك الطيب دائما الشكر لله أولا وجزيت بمثل ما دعوت به لى تقبل خالص تحياتى وتقديرى رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 جزاك الله خيرا اخي ياسر 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أكتوبر 30, 2015 الكاتب مشاركة قام بنشر أكتوبر 30, 2015 جزاك الله خيرا اخي ياسر شكرا لدعائك الطيب أخى وائل رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 بعد التجربة شكرا جزيلا لك . واصل ابداعاتك 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أكتوبر 31, 2015 الكاتب مشاركة قام بنشر أكتوبر 31, 2015 بعد التجربة شكرا جزيلا لك . واصل ابداعاتك شكرا لك أخى الحبيب زيزو ربنا يبارك فيك شكرا لمرورك رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر أكتوبر 31, 2015 مشاركة قام بنشر أكتوبر 31, 2015 السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم كود يقوم بتكبير القائمة المنسدلة بمجرد الوقوف داخل الخلية الموجود بها القائمة المنسدلة أرجوا أن ينال إعجابكم جرب إضغط على الخلية A2 وشاهد بنفسك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub تكبير القائمة المنسدلة.rar السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع ...ولكن ليتك لونت الخلية لتميز الخلية التي تحتوي على القائمة المنسدلة "$A$2" .والسلام عليكم. رابط هذا التعليق شارك More sharing options...
سعد الفقير قام بنشر أكتوبر 31, 2015 مشاركة قام بنشر أكتوبر 31, 2015 جزيت خيرا مميزكعادتك. ماذا لو كنت ارغب ان ينفذ هذا الكود لكل العمود K. حاولت بهذا الكود ولكن لم ينجح. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$K$2:K50" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أكتوبر 31, 2015 الكاتب مشاركة قام بنشر أكتوبر 31, 2015 السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم كود يقوم بتكبير القائمة المنسدلة بمجرد الوقوف داخل الخلية الموجود بها القائمة المنسدلة أرجوا أن ينال إعجابكم جرب إضغط على الخلية A2 وشاهد بنفسك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub تكبير القائمة المنسدلة.rar السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع ...ولكن ليتك لونت الخلية لتميز الخلية التي تحتوي على القائمة المنسدلة "$A$2" .والسلام عليكم. الأب والأستاذ القدير / محمد حسن المحمد يشرفنى دائما مرورك الجليل شكرا لدعائك الطيب 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أكتوبر 31, 2015 مشاركة قام بنشر أكتوبر 31, 2015 بارك الله فيك أخى ياسر وجازاكم خيرا على ما تقدمه لنا الأخ سعد الفقير لتطبيق الكود على النطاق K2:K50 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("$K$2:K50")) Is Nothing Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub 1 رابط هذا التعليق شارك More sharing options...
سعد الفقير قام بنشر أكتوبر 31, 2015 مشاركة قام بنشر أكتوبر 31, 2015 شكرا اخي مختار. تمت بنجاح رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 31, 2015 مشاركة قام بنشر أكتوبر 31, 2015 (معدل) السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع.... بارك الله فيك ونفع بك الاسلام والمسلمين شكرا الاخ مختار على الظافة تم تعديل أكتوبر 31, 2015 بواسطه محمد عبدالسلام 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أكتوبر 31, 2015 الكاتب مشاركة قام بنشر أكتوبر 31, 2015 (معدل) بارك الله فيك أخى ياسر وجازاكم خيرا على ما تقدمه لنا الأخ سعد الفقير لتطبيق الكود على النطاق K2:K50 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("$K$2:K50")) Is Nothing Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub حبيبى الغالى الأستاذ العلامه القدير / مختار حسين شرفت بمرورك الكريم والله ينور على هذه الإضافه الجميلة شكرا لدعائك الطيب جزيت خيرا مميزكعادتك. ماذا لو كنت ارغب ان ينفذ هذا الكود لكل العمود K. حاولت بهذا الكود ولكن لم ينجح. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$K$2:K50" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub حبيبى / سعد الفقير شرفت بمبروك وكلامك الجميل وأسف لإنشغالى وعدم الرد عليك وقد قام الأخ الفاضل الأستاذ / مختار بالواجب وأجابك شكرا له تقبل خالص تحياتى وتقديرى تم تعديل أكتوبر 31, 2015 بواسطه م / ياسر فتحى البنا رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر نوفمبر 5, 2015 مشاركة قام بنشر نوفمبر 5, 2015 جزاك الله خيرا أخي ياسر و زادها بميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
galo قام بنشر نوفمبر 5, 2015 مشاركة قام بنشر نوفمبر 5, 2015 جزاك الله خير 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر نوفمبر 5, 2015 الكاتب مشاركة قام بنشر نوفمبر 5, 2015 السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع.... بارك الله فيك ونفع بك الاسلام والمسلمين شكرا الاخ مختار على الظافة شكرا لمرورك العطر أخى الفاضل / محمد عبد السلام شرفت بمرورك جزاك الله خيرا أخي ياسر و زادها بميزان حسناتك شرفت بمرورك أخى الكريم الزباري وشكرا لدعائك الطيب جزاك الله خير شكرا لك أخى الكريم لمرورك العطر رابط هذا التعليق شارك More sharing options...
احمد غانم قام بنشر نوفمبر 6, 2015 مشاركة قام بنشر نوفمبر 6, 2015 (معدل) اخ ياسر عمل مميز تشكر علية ادامكم المولى تم تعديل نوفمبر 6, 2015 بواسطه aghanem2003 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر نوفمبر 6, 2015 الكاتب مشاركة قام بنشر نوفمبر 6, 2015 اخ ياسر عمل مميز تشكر علية ادامكم المولى أخى aghanem2003 جزاك الله خير على مرورك العطر ودعائك الطيب رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 شكرا يااخي لابد استفيد من ملف بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر نوفمبر 7, 2015 الكاتب مشاركة قام بنشر نوفمبر 7, 2015 8 ساعات مضت, أبو أنس80 said: شكرا يااخي لابد استفيد من ملف بارك الله فيك شكرا لمرورك العطر أخى أو أنس تقبل تحياتى رابط هذا التعليق شارك 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.