Nghĩa tiếng việt của đoạn code

[duong_nam_dao]

Em có tham khảo 1 đoạn code sau, nhờ các bác giải thích hộ để em áp dụng vào tài liệu của em. Cám ơn các bác nhiều !

Sub Main()
1    On Error Resume Next
    Application.ScreenUpdating = False
3    Sheets.Add.Name = "TT"
    Dim Counter As Integer
5    Dim RowMax As Integer, ColMax As Integer
    Dim r As Integer, c As Integer
7    Dim PctDone As Single
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
9    Cells.Clear
    Application.ScreenUpdating = False
11    Counter = 1
    RowMax = 1300
13    ColMax = 25
    For r = 1 To RowMax
15        For c = 1 To ColMax
            Cells(r, c) = Int(Rnd * 1300)
17            Counter = Counter + 1
        Next c
19        PctDone = Counter / (RowMax * ColMax)
        With UsersName
21            .FrameProgress.Caption = Format(PctDone, "0%")
            .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
23        End With
        DoEvents
25    Next r
    Sheets("TT").Select
27    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
29    Unload UsersName
End Sub

 

[PhanTuHuong]

Hình như cái này là tạo form Progress

 

[ngocmaipretty]

Hình như có 1 Form "UsersName", trên đó có 1 nút nhấn chạy code này, 1 frame và 1 label.
Khi chạy code thì số % trên frame tăng dần, cái label cũng tăng kích thước dần.
Đúng nó là code chạy thử Progress Bar.

 

[duong_nam_dao]

Hình như có 1 Form "UsersName", trên đó có 1 nút nhấn chạy code này, 1 frame và 1 label.
Khi chạy code thì số % trên frame tăng dần, cái label cũng tăng kích thước dần.
Đúng nó là code chạy thử Progress Bar.

Vâng, đúng vậy. Em chỉ muốn khi chạy code thì số % trên frame tăng dần, cái label cũng tăng kích thước dần. Khi chạy hết thì nó chuyển tới form nhaplieu. Vậy cần sửa code thế nào, mong các bác chỉ giúp

 

[voda]

Bạn sửa lại như sau và vào Properties của Form UsersName chỉnh ShowModal = False.

Sub Main()
1    On Error Resume Next
    Application.ScreenUpdating = False
3    Sheets.Add.Name = "TT"
    Dim Counter As Integer
5    Dim RowMax As Integer, ColMax As Integer
    Dim r As Integer, c As Integer
7    Dim PctDone As Single
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
9    Cells.Clear
    Application.ScreenUpdating = False
11    Counter = 1
    RowMax = 1300
13    ColMax = 25
   [COLOR="red"]UsersName.Show[/COLOR]
       For r = 1 To RowMax
15        For c = 1 To ColMax
            Cells(r, c) = Int(Rnd * 1300)
17            Counter = Counter + 1
        Next c
19        PctDone = Counter / (RowMax * ColMax)
                With UsersName
21            .FrameProgress.Caption = Format(PctDone, "0%")
            .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
23        End With
        DoEvents
25    Next r
    Sheets("TT").Select
27    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
29    Unload UsersName
      [COLOR="Red"] nhaplieu.Show[/COLOR]
End Sub