safwatscc قام بنشر أغسطس 9, 2009 مشاركة قام بنشر أغسطس 9, 2009 مطلوب تعديل على هذا الماكرو موضح بالمرفق تعديل على ماكرو.rar رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر أغسطس 9, 2009 مشاركة قام بنشر أغسطس 9, 2009 السلام عليكم أخي الفاضل إليك الملف أرجو أن يكون ما تطلب تعديل على ماكرو.rar رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أغسطس 9, 2009 مشاركة قام بنشر أغسطس 9, 2009 السلام عليكم أيه ده يا استاذ سالم أنت بتاخد دروس خصوصيه من استاذ ياسر من ورانا ولا أيــــه فتح الله عليك وزادك علما وحرصا ووفقنا للحاق بك رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر أغسطس 9, 2009 مشاركة قام بنشر أغسطس 9, 2009 السلام عليكم أخي خالد حياك الله وزادك رفعة وعلما لا أخفي عليك الكود الذي كتبته استغرقت فيه تقريبا ساعة أو أكثر ومع تكرار المحاولات ومراجعة بعض الملفات وجدت الحل الدروس أخذتها من مساهمات الإخوة الأعضاء والأساتذة وأنت منهم أخي خالد بالمناسبة ملفك ( نتيجة ) في غاية الروعة وفيه دروس لا يستهان بها موفق إن شاء الله أحييك على خفة ظلك فأنت إنسان طيب بحق رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر أغسطس 9, 2009 الكاتب مشاركة قام بنشر أغسطس 9, 2009 الاخ الفاضل : الاستاذ سالم مجهود رائع بارك الله فيك ولكن لا اريد ان اثقل عليك كنت اريده عن طريق الماكرو (البرمجة) لانه يستخدم فى برنامج شئون طلبة ومرتبط بملفات اخرى ولا يصلح الا عن طريق الماكرو انا قمت بعمل 14 ماكرو ولكن الماكرو اللى عامله طويل ولافف مرفق الملف بعد تنفيد 14 ماكرو المراد اختصارة بطريقة فنية لخبراء الاكسل بارك الله فيهم جميعا فنحن نكن للكل كل تقدير واحترام وزادهم الله علما Book1.rar رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر أغسطس 10, 2009 الكاتب مشاركة قام بنشر أغسطس 10, 2009 (معدل) باختصار الماكرو الموجود فى الملف المرفق فى هذة المشاركة باسم hide_all يقوم ان قيمة الخلية الاولى من الصف وهى a لو قيمتها صفر يخفى الصف وذلك بالنسبة للصفوف من اول 14 الى 27 يعنى لو a14 قيمتها صفر يخفى صف 14 وذلك بالنسبة لباقى الصفوف من 14 الى 27 الماكرو الموجود بالمرفق ينفذها صح ولكن طويل وياخذ وقت فى التنفيذ المطلوب تبسيط هذا الماكرو فى الملف المرفق وبارك الله فيكم مطلوب تعديل.rar تم تعديل أغسطس 10, 2009 بواسطه safwatscc رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر أغسطس 11, 2009 الكاتب مشاركة قام بنشر أغسطس 11, 2009 للرفع رابط هذا التعليق شارك More sharing options...
ايمن ريا قام بنشر أغسطس 11, 2009 مشاركة قام بنشر أغسطس 11, 2009 السلام عليكم تفضل أخى Safwatscc هذا الكود مختصر " منقول " Hide_Rows.rar رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر أغسطس 12, 2009 الكاتب مشاركة قام بنشر أغسطس 12, 2009 الاخ الفاضل : الاستاذ aiman raya الاخ الفاضل : الاستاذ هادى والله يعجز اللسان عن الشكر بارك الله فيكم و جعله فى ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
mhmn11 قام بنشر أغسطس 12, 2009 مشاركة قام بنشر أغسطس 12, 2009 اللهم علمنا ما ينغعنا و انفعنا بما علمتنا و زدنا علما رابط هذا التعليق شارك More sharing options...
عمر أبو صهيب قام بنشر مارس 6, 2013 مشاركة قام بنشر مارس 6, 2013 رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 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 بواسطه حسين العصلوجى رابط هذا التعليق شارك 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.