safwatscc قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 مطلوب تعديل على هذا الماكرو موضح بالمرفق تعديل على ماكرو.rar
سالم شباني قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 السلام عليكم أخي الفاضل إليك الملف أرجو أن يكون ما تطلب تعديل على ماكرو.rar
خالد القدس قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 السلام عليكم أيه ده يا استاذ سالم أنت بتاخد دروس خصوصيه من استاذ ياسر من ورانا ولا أيــــه فتح الله عليك وزادك علما وحرصا ووفقنا للحاق بك
سالم شباني قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 السلام عليكم أخي خالد حياك الله وزادك رفعة وعلما لا أخفي عليك الكود الذي كتبته استغرقت فيه تقريبا ساعة أو أكثر ومع تكرار المحاولات ومراجعة بعض الملفات وجدت الحل الدروس أخذتها من مساهمات الإخوة الأعضاء والأساتذة وأنت منهم أخي خالد بالمناسبة ملفك ( نتيجة ) في غاية الروعة وفيه دروس لا يستهان بها موفق إن شاء الله أحييك على خفة ظلك فأنت إنسان طيب بحق
safwatscc قام بنشر أغسطس 9, 2009 الكاتب قام بنشر أغسطس 9, 2009 الاخ الفاضل : الاستاذ سالم مجهود رائع بارك الله فيك ولكن لا اريد ان اثقل عليك كنت اريده عن طريق الماكرو (البرمجة) لانه يستخدم فى برنامج شئون طلبة ومرتبط بملفات اخرى ولا يصلح الا عن طريق الماكرو انا قمت بعمل 14 ماكرو ولكن الماكرو اللى عامله طويل ولافف مرفق الملف بعد تنفيد 14 ماكرو المراد اختصارة بطريقة فنية لخبراء الاكسل بارك الله فيهم جميعا فنحن نكن للكل كل تقدير واحترام وزادهم الله علما Book1.rar
safwatscc قام بنشر أغسطس 10, 2009 الكاتب قام بنشر أغسطس 10, 2009 (معدل) باختصار الماكرو الموجود فى الملف المرفق فى هذة المشاركة باسم hide_all يقوم ان قيمة الخلية الاولى من الصف وهى a لو قيمتها صفر يخفى الصف وذلك بالنسبة للصفوف من اول 14 الى 27 يعنى لو a14 قيمتها صفر يخفى صف 14 وذلك بالنسبة لباقى الصفوف من 14 الى 27 الماكرو الموجود بالمرفق ينفذها صح ولكن طويل وياخذ وقت فى التنفيذ المطلوب تبسيط هذا الماكرو فى الملف المرفق وبارك الله فيكم مطلوب تعديل.rar تم تعديل أغسطس 10, 2009 بواسطه safwatscc
ايمن ريا قام بنشر أغسطس 11, 2009 قام بنشر أغسطس 11, 2009 السلام عليكم تفضل أخى Safwatscc هذا الكود مختصر " منقول " Hide_Rows.rar
هادى محمد المامون سالم قام بنشر أغسطس 11, 2009 قام بنشر أغسطس 11, 2009 بسم الله الرحمن الرحيم تم تعديل اختصار كودالمشاركه الاولى مع اضافه كود لاظهار الصفوف المخفيه مره اخرى Sub DOIT() Un_Hidden For i = 8 To 21 If Cells(i, "C") = "" And Cells(i, "D") = "" _ And Cells(i, "E") = "" And Cells(i, "F") = "" _ And Cells(i, "G") = "" And Cells(i, "H") = "" _ And Cells(i, "I") = "" Then Rows(i).Hidden = True End If Next i End Sub Sub Un_Hidden() For i = 8 To 21 Rows(i).Hidden = False Next i End Sub مرفق ملف السلام عليكم Hide_Rows.rar
safwatscc قام بنشر أغسطس 12, 2009 الكاتب قام بنشر أغسطس 12, 2009 الاخ الفاضل : الاستاذ aiman raya الاخ الفاضل : الاستاذ هادى والله يعجز اللسان عن الشكر بارك الله فيكم و جعله فى ميزان حسناتكم
mhmn11 قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 اللهم علمنا ما ينغعنا و انفعنا بما علمتنا و زدنا علما
حسين العصلوجى قام بنشر مارس 6, 2013 قام بنشر مارس 6, 2013 (معدل) For x = 8 To Range("a65536").End(xlUp).Row If Cells(x, 1) = 0 Then Rows(x).Hidden = True End If Next اثراءا للموضوع كود اخر مختصر وسريع جدا فالتنفيذ تعديل على ماكرو+.rar تم تعديل مارس 6, 2013 بواسطه حسين العصلوجى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.