خالد القدس قام بنشر يناير 2, 2010 مشاركة قام بنشر يناير 2, 2010 السلام عليكم أساتذتي الكرام هل من الممكن اختصار هذا الكود لأن لاحظت البرنامج يأخذ زمن عند تنفيذه الكود في هذه الصورة لأن عندي مشكلة في الكتابة asa2.bmp رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر يناير 2, 2010 أفضل إجابة مشاركة قام بنشر يناير 2, 2010 السلام عليكم استخدم الكود التالي: Private Sub CommandButton4_Click() Dim MyAr Dim MySh As Worksheet Dim C As Integer Set MySh = Sheets("farest") MyAr = Array("E:BH", "AH:BB", "BJ:CD", "CK:FP", "FW:IV") With MySh .Cells.EntireColumn.Hidden = False .Rows("1:15").EntireRow.Hidden = True For C = 0 To 4 .Columns(MyAr(C)).EntireColumn.Hidden = True Next .PrintPreview End With End Sub رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يناير 2, 2010 مشاركة قام بنشر يناير 2, 2010 (معدل) استاذ خالد هذا مثال ربما تستفيد منه Book1.rar تم تعديل يناير 2, 2010 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يناير 2, 2010 الكاتب مشاركة قام بنشر يناير 2, 2010 السلام عليكم هذه هي الأكواد الاحترافية ولا بلاش جزاك الله خيرا أستاذي خبور جزاك الله خيرا أستاذي يحياوي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان