ضبط عرض الاعمدة عند ظهور الفورم

[فوزى فوزى]

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

عرض النتائج فى الفورم.xlsm

[فوزى فوزى]

بعد اذنكم المطلوب ان يكون عرض اعمدة الفريم الموجودة فى اليوزر الفورم ان تكون بنفس عرض اعمدة الشيت ويكون تنسيق اعمدة الفريم تكون نفس تنسيق اعمدة الشيت 

 

[محمد هشام.]

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

تقضل استاد فوزي ربما هدا ما تقصد

Const MyWidth As Single = 80
Const MyHight As Single = 20
Private Sub TEST1()
Dim WS As Range
Dim Lf As Double, Tp As Double
Dim ContColmn As Integer, r As Integer, c As Integer
Set WS = Range("A3:I17")
ContColmn = WS.Columns.Count
For r = 1 To WS.Rows.Count
l = 0
Lf = Me.Frame1.Width - 100
    For c = 1 To ContColmn
        Lf = Lf - WS.Columns(c).Width
        With Me.Frame1.Controls.Add("Forms.Label.1")
            .BorderStyle = 1
            .Move Lf, Tp, MyWidth, MyHight
            .Width = WS.Columns(c).Width
         
            Call TEST(.Name, WS.Cells(r, c))

        End With
    Next
    Tp = Tp + MyHight
    c = 0
Next
Set X = Nothing
End Sub
Private Sub TEST(iName As String, MyCel As Range)
With Me.Controls(iName)
    .BackColor = MyCel.Interior.Color
    .Caption = MyCel.Text
    .TextAlign = 2
         With .Font
        .Name = MyCel.Font.Name
        .Bold = True
        .Size = MyCel.Font.Size
    End With
End With
End Sub
Private Sub UserForm_Initialize()
Me.Frame1.SpecialEffect = 0
TEST1
End Sub

 

عرض النتائج فى الفورم_1.xlsm

[فوزى فوزى]

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

[محمد هشام.]

العفو استاد فوزي.