chào Team Gitiho tôi đang gặp vấn đề là trong sheet thì autofit dược nhưng

Chào bạn bạn có thể đẩy file lên giúp gitiho không?

đẩy file lên như thế nào ạ

xin hỗ trợ

Private Sub UserForm_Initialize()

        Dim dc As Long, arr As Variant

        dc = dongcuoi(Sheet2, "A")

        arr = Sheet2.Range("A2:J" & dc).Value

        ListBox1.List = arr

        ListBox1.ColumnCount = 10

        Ten.Value = Sheet1.Range("E1").Value

        Tbx_date = Format(Now, "dd/MM/yy HH:mm")

        Tbx_week.Text = "WK" & Application.WorksheetFunction.WeekNum(Now()) - 1

        Tbx_shift.Value = Sheet1.Range("I2").Value

        Tbx_team.Value = Sheet1.Range("E2").Value

        Dim dd_team_giaoca As Long

        Dim dc_team_giaoca As Long

        dd_team_giaoca = 2

        dc_team_giaoca = Sheet1.Range("M" & Rows.Count).End(xlUp).Row

        Me.Cmb_Toteam.List = Sheet1.Range("M" & dd_team_giaoca & ":M" & dc_team_giaoca).Value

End Sub

Chào bạn, bạn đẩy file lên google drive giúp gitiho nhé.