ابواسماء ابوزيد قام بنشر يناير 30 مشاركة قام بنشر يناير 30 (معدل) هذا الكود لاستاذى الفاضل بن علية حاجي اريد تعديل عليه بحيث يقوم بإخفاء الصفوف من مسلسل (1) وحتى مسلسل (7) ثم من مسلسل (18) وحتى مسلسل(23) وجزاكم الله خيراً البرنامج.xlsm تم تعديل يناير 30 بواسطه ابواسماء ابوزيد رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يناير 31 مشاركة قام بنشر يناير 31 (معدل) Sub test1() Dim Cpt As Range, Rng As Range Application.ScreenUpdating = False Irows = "12:34" Set Cpt = Range("A12:A" & Cells(Rows.Count, "A").End(xlUp).Row) For Each Rng In Cpt If Rng.Value = "0" Then Rng.EntireRow.Hidden = True Next Rng ActiveWindow.SelectedSheets.PrintOut Copies:=1 Rows(Irows).Hidden = False Application.ScreenUpdating = True End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub test2() Dim i As Long, LastRow As Long Application.ScreenUpdating = False StartRow = 12: LastRow = 34 Rows(StartRow & ":" & LastRow).EntireRow.Hidden = False For i = LastRow To StartRow Step -1 If Cells(i, "A") = "0" Then Rows(i).Hidden = True Next i ActiveSheet.PrintOut Rows(StartRow & ":" & LastRow).EntireRow.Hidden = False Application.ScreenUpdating = True End Sub البرنامج.xlsm في حالة الرغبة بتسلسل عمود (م) على حسب البيانات الموجودة أثناء الطباعة قم بإستبدال المعادلة الخاصة بك بالصيغة التالية مع سحبها للأسفل الخلية (B12) =IF(D12>0;SUBTOTAL(103;$D12:D$12);"") تم تعديل يناير 31 بواسطه محمد هشام. 3 رابط هذا التعليق شارك More sharing options...
ابواسماء ابوزيد قام بنشر يناير 31 الكاتب مشاركة قام بنشر يناير 31 كل الشكر والتقدير للاستاذ محمد هشام على هذا العمل وسرعه الرد جزاكم الله خير وجعله الله فى موازين حسناتكم رابط هذا التعليق شارك More sharing options...
ابواسماء ابوزيد قام بنشر يناير 31 الكاتب مشاركة قام بنشر يناير 31 استاذى الفاضل المعادله هذه لاتتوافق مع المعادلات التى استخدمها فهل هناك معادله لتظهر تسلسل البيانات بعد اخفاء بعض الصفوف ان تظهر من مسلسل (1) وجزاكم الله خيرا البرنامج.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يناير 31 أفضل إجابة مشاركة قام بنشر يناير 31 ليس لي علم عن المعادلات التي تستخدمها لاكن لا اظن انها لديها اي علاقة بالموضوع قد تمت الاجابة عن طلبك وهو اخفاء الصفوف الصفرية اما مسالة المعادلة مجرد تخمين مني لا غير 😁 مع العلم انها تنفد المطلوب قد لاحظت انك لم تقم بوضع المعادلة بالشكل الصحيح جرب المرفق التالي ووافينا بالنتيجة قد تم الغاء امر الطباعة مؤقتا داخل الكود ووضع ActiveSheet.PrintPreview يمكنك تعديله بعد التجربة البرنامج v2.xlsm 2 رابط هذا التعليق شارك More sharing options...
ابواسماء ابوزيد قام بنشر فبراير 1 الكاتب مشاركة قام بنشر فبراير 1 تمام استاذى الفاضل محمد هشام اشتغل تمام جزاكم الله خيرا وزادكم الله نورا وسرورا رابط هذا التعليق شارك 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.