مصرى قام بنشر أبريل 10, 2009 قام بنشر أبريل 10, 2009 اعزائى اعضاء المنتدى بعد السلام عليكم ارجو الرد على سؤال هام بعد تسجيل الماكرو لاخفاء صف معين واظهاره وليكن a3 مثلا وربطة بزر للأخفاء والاظهار المشكلة هى عند نسخ البيانات فى الورقة نفسها واريد اخفاء a20 فى نفس الورقة لا بد من عمل ماكرو اخفاء جديد للسطر a20 وهذا يعنى عمل لكل سطر ماكرو اخفاء + زر جديد مما يجعل هذا العمل ممل لوجود اسطر كثيرة اريد اخفائها واظهارها عن طريق الأزرار فهل يوجد كود يساعد على اخفاء واظهار الصفوف فى ورقة عمل واحدة اى زر لاخفاء a3 واظهارة وايضا زر لاخفاء a15 وأظهارة وزر لاخفاء a30 واظهارة بكود واحد لا بتسجيل لكل اخفاء كود ولكم جزيل الشكر
ابو اسامة العينبوسي قام بنشر أبريل 11, 2009 قام بنشر أبريل 11, 2009 السلام عليكم ارسل الملف الذى تعمل عليه هل هناك شرط لاخفاء ؟ Rows(3).EntireRow.Hidden = True Rows(15).EntireRow.Hidden = True Rows(30).EntireRow.Hidden = True
طارق محمود قام بنشر أبريل 11, 2009 قام بنشر أبريل 11, 2009 السلام عليكم بعد إذن اخي أبو أسامة كنت جهزت الرد ورأيت ردك وأنا أرسله أخي مصري تفضل المرفق تختار الصف أو الصفوف المتصلة (مثلا من5 إلي 15) التي تخفيها أوتظهرها Sub Macro1() AAA = ActiveCell.Row rr = InputBox(rr, "Row to Hide / Un-Hide?", AAA) Rows(rr).Select If Selection.EntireRow.Hidden = True Then Selection.EntireRow.Hidden = False: GoTo 100 Selection.EntireRow.Hidden = True 100 End Sub يبدو أن هناك مشكلة في تحميل الملف عموما إستخدم الماكرو بالأعلي وستجده مناسب إن شاء الله
مصرى قام بنشر أبريل 12, 2009 الكاتب قام بنشر أبريل 12, 2009 بعد السلام عليكم اشكركم للأهتمام بالموضوع زادكم اللة علما لقد وضعت ملف مرفق موضح فية الطلب _.rar
نزار سليمان عيد قام بنشر أبريل 13, 2009 قام بنشر أبريل 13, 2009 السلام عليكم يبدو أن هناك مشكلة في تحميل الملف عموما إستخدم الماكرو بالأعلي وستجده مناسب إن شاء الله بعد اذن اخواني ( ابو اسامة - طارق) مرفق ملفك بكود الاستاذ طارق وان شاء الله يفي بالغرض مع الشكر ابو خالد ____________________.rar
مصرى قام بنشر أبريل 13, 2009 الكاتب قام بنشر أبريل 13, 2009 بعد السلام عليكم اشكرك ا/نزار على اهتمامك بالموضوع ولكن ما اطلبة مختلف ولكن اشكر من كتب هذا الكود الجميل والمفيد ولكن ما اريدة سوف اوضحة اكثر انظر الى هذا الكود فهو يخفى السطر من 5 الى 6 فقط Rows("5:6").Select Selection.EntireRow.Hidden = True End Sub ولكنى مثلا اذا اضفت السطو ر ايضا Rows("5:6").Select Rows("14:15").Select Rows("18:19").Select Selection.EntireRow.Hidden = True End Sub ولكنى اذا اردت ان اصنع زرار ينفذ السطر الاول وهو اخفاء السطر 5 و 6 وزر اخر ينفذ السطر الثانى وهو اخفاء الصف 14 و 15 وزر اخر ينفذ السطر الثالث 18 و 19 هل يمكن هذا
نزار سليمان عيد قام بنشر أبريل 14, 2009 قام بنشر أبريل 14, 2009 (معدل) السلام عليكم انظر للمرفق وان شاء الله يفيدك بحيث انك تحدد السطر الذي تريد اخفاؤه ثم تضغط على زر اخفاء فيختفي مع الشكر ابو خالد _________________.rar تم تعديل أبريل 15, 2009 بواسطه نزار سليمان عيد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.