محتاج الفاء بعض الاعمدة من الظهور في الليست بوكس ومن الطباعة مع الشرح

[أبو قاسم]

السلام عليكم ورحمة الله وبركاتة 

الموضوع:

ارجو المساعدة كيف استطيع الغاء ظهور بعض الاعمدة في الليست بوكس ومن الطباعة مع الشرح عن الطريقة لكي استطيع في المرات القادمة الاعتماد على تعديلة بنفسي

مع شكري وتقديري للجميع

طبعاً الاعمدة التي احتاج الى الغاء ظهورها ملونة باللون الاصفر

ملف بحث بفورم ممتاز.rar

[الصـقر]

اخى الكريم ابوالقاسم

ادخل محرر الاكواد نشط الفورم ثم اضغط على زر البحث سيدخلك الى الكود الخاص بالضغط على زر البحث

المهم فى اخر سطر من الكود  اللى هو ده

If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0

 استبدله بالسطر التالى

If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ColumnWidths = "70;0;0;60;60;0;60;0;60;60;60": Me.ListFind.ListIndex = 0

 

الشرح ما تم اضافته هو هذه الجزئيه 

Me.ListFind.ColumnWidths = "70;0;0;60;60;0;60;0;60;60;60"

وهى الخاصيه المسئوله عن تحديد عرض الاعمده بالليست بوكس 

لو قمت باحصاء الارقام ستجدها 11 لان عدد الاعمده فى الشيت 11 ( من العمود A  الى العمود K )

فأنا عملت عرض للــ 11 عمود ولكن العمود اللى انا مش عايزه يظهر كتبت عرضه 0   وبكدا مش هيكون ظاهر

بأمكان أخفاء اى عمود أو أظهار من خلال التحكم فى عرض العمود على سبيل المثال اول رقم من على اليسار 70 طبعا ده العمود بتاع الكود اللى هو عمود A 

لو انت مش عايز تظهره مثلا تستبدل 70 بــ 0 وبكدا عمود الكود اللى هو A  مش هيظهر

ارجوا ان تكون وضحت الفكره

تقبل منى وافر الاحترام والتقدير

[أبو قاسم]

جزاك الله خير على هذة المعلومة لاكن انا محتاج عدم ظهور بياناتة نهائي لان الفورم يصدر الى ورقة جانبية ثم طباعة

فاذا كان مخفي من الظهور سوف يصدر ويظهر في ورقة الطباعة

[الصـقر]

اخى الكريم ادخل على الموديول 2

واستبدل الكود الموجود بالتالى

وعلمنى بالنتائج

تقبل تحياتى ولا تنسانى من صالح دعائك

Sub iPageSetup()
Application.ScreenUpdating = False
Dim sh As Worksheet, Lr As Integer, Last As Integer
Set sh = Sheets(2)
With sh
Last = .Range("A" & Rows.Count).End(xlUp).Row + 1
.PageSetup.PrintArea = ""
.Range("A8:g" & Last).Borders.Value = 0
'-----------------------------------------------------
.Range("A8:g" & Last).ClearContents
.Range("A8:g" & Last).Borders.Value = 0
        .PageSetup.LeftMargin = Application.InchesToPoints(0.7)
        .PageSetup.RightMargin = Application.InchesToPoints(0.7)
        .PageSetup.TopMargin = Application.InchesToPoints(0.7)
        .PageSetup.BottomMargin = Application.InchesToPoints(0.7)
        .Columns("A:A").ColumnWidth = 5: .Columns("B:B").ColumnWidth = 15
        .Columns("C:C").ColumnWidth = 20: .Columns("D:D").ColumnWidth = 10
        .Columns("E:E").ColumnWidth = 5: .Cells.Font.Size = 10
        .Columns("f:f").ColumnWidth = 5: .Cells.Font.Size = 10
End With
 Dim i, a As Integer
    a = 8
    For i = 0 To UserForm1.ListFind.ListCount - 1
           sh.Cells(a, 1) = UserForm1.ListFind.List(i, 0)
           sh.Cells(a, 2) = UserForm1.ListFind.List(i, 3)
           sh.Cells(a, 3) = UserForm1.ListFind.List(i, 4)
           sh.Cells(a, 4) = UserForm1.ListFind.List(i, 6)
           sh.Cells(a, 5) = UserForm1.ListFind.List(i, 8)
           sh.Cells(a, 6) = UserForm1.ListFind.List(i, 9)
           sh.Cells(a, 7) = UserForm1.ListFind.List(i, 10)
           a = a + 1
Next i
Lr = sh.Range("A" & Rows.Count).End(xlUp).Row
sh.PageSetup.PrintArea = "A1:g" & Lr
sh.Range("A8:g" & Lr).Borders.Value = 1
Application.ScreenUpdating = True
End Sub

 

[أبو قاسم]

ربنا يحفظك دنيا واخرة ويبارك فيك صحيح كود جاب المطلوب ماقصرت ربنا يكثر من امثالك