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
عبد العزيز البسكري قام بنشر أكتوبر 30, 2015 قام بنشر أكتوبر 30, 2015 بسم الله الرحمن الرحيم ألف شكر على الهديّة الرائعة سيّدي الكريم " ياسر فتحي البنّا " بارك الله فيك .. جزاك الله خيرا و زادها بميزان حسناتك جاري التجريب فائق إحتراماتي 1
Yasser Fathi Albanna قام بنشر أكتوبر 30, 2015 الكاتب قام بنشر أكتوبر 30, 2015 أخى الحبيب الغالى / عبد العزيز السكرى شكرا لمرورك الطيب دائما الشكر لله أولا وجزيت بمثل ما دعوت به لى تقبل خالص تحياتى وتقديرى
Yasser Fathi Albanna قام بنشر أكتوبر 30, 2015 الكاتب قام بنشر أكتوبر 30, 2015 جزاك الله خيرا اخي ياسر شكرا لدعائك الطيب أخى وائل
ابراهيم الحداد قام بنشر أكتوبر 30, 2015 قام بنشر أكتوبر 30, 2015 بعد التجربة شكرا جزيلا لك . واصل ابداعاتك 1
Yasser Fathi Albanna قام بنشر أكتوبر 31, 2015 الكاتب قام بنشر أكتوبر 31, 2015 بعد التجربة شكرا جزيلا لك . واصل ابداعاتك شكرا لك أخى الحبيب زيزو ربنا يبارك فيك شكرا لمرورك
محمد حسن المحمد قام بنشر أكتوبر 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" .والسلام عليكم.
سعد الفقير قام بنشر أكتوبر 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
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
مختار حسين محمود قام بنشر أكتوبر 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
محمد عبدالسلام قام بنشر أكتوبر 31, 2015 قام بنشر أكتوبر 31, 2015 (معدل) السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع.... بارك الله فيك ونفع بك الاسلام والمسلمين شكرا الاخ مختار على الظافة تم تعديل أكتوبر 31, 2015 بواسطه محمد عبدالسلام 1
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 بواسطه م / ياسر فتحى البنا
الزباري قام بنشر نوفمبر 5, 2015 قام بنشر نوفمبر 5, 2015 جزاك الله خيرا أخي ياسر و زادها بميزان حسناتك 1
Yasser Fathi Albanna قام بنشر نوفمبر 5, 2015 الكاتب قام بنشر نوفمبر 5, 2015 السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع.... بارك الله فيك ونفع بك الاسلام والمسلمين شكرا الاخ مختار على الظافة شكرا لمرورك العطر أخى الفاضل / محمد عبد السلام شرفت بمرورك جزاك الله خيرا أخي ياسر و زادها بميزان حسناتك شرفت بمرورك أخى الكريم الزباري وشكرا لدعائك الطيب جزاك الله خير شكرا لك أخى الكريم لمرورك العطر
احمد غانم قام بنشر نوفمبر 6, 2015 قام بنشر نوفمبر 6, 2015 (معدل) اخ ياسر عمل مميز تشكر علية ادامكم المولى تم تعديل نوفمبر 6, 2015 بواسطه aghanem2003
Yasser Fathi Albanna قام بنشر نوفمبر 6, 2015 الكاتب قام بنشر نوفمبر 6, 2015 اخ ياسر عمل مميز تشكر علية ادامكم المولى أخى aghanem2003 جزاك الله خير على مرورك العطر ودعائك الطيب
أبو أنس80 قام بنشر نوفمبر 7, 2015 قام بنشر نوفمبر 7, 2015 شكرا يااخي لابد استفيد من ملف بارك الله فيك 1
Yasser Fathi Albanna قام بنشر نوفمبر 7, 2015 الكاتب قام بنشر نوفمبر 7, 2015 8 ساعات مضت, أبو أنس80 said: شكرا يااخي لابد استفيد من ملف بارك الله فيك شكرا لمرورك العطر أخى أو أنس تقبل تحياتى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.