اخفاء الاعمدة والسطور

[خالد القدس]

السلام عليكم أساتذتي الكرام هل من الممكن اختصار هذا الكود لأن لاحظت البرنامج يأخذ زمن عند تنفيذه الكود في هذه الصورة لأن عندي مشكلة في الكتابة

asa2.bmp

[عبدالله باقشير]

السلام عليكم

استخدم الكود التالي:

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

[محمد يحياوي]

استاذ خالد هذا مثال ربما تستفيد منه

Book1.rar

تم تعديل يناير 2, 2010 بواسطه خبور خير

[خالد القدس]

السلام عليكم هذه هي الأكواد الاحترافية ولا بلاش جزاك الله خيرا أستاذي خبور جزاك الله خيرا أستاذي يحياوي