Xin quí diễn đàn giải thích giùm code sau (1 người xem)

[amly1980]

Sub INPD_ALL()
trl = MsgBox("Ban co chac chan In tat ca PD", vbOKCancel, "Thông báo")
If trl = vbOK Then
Application.ScreenUpdating = False
Sheets("PD").Select
Cells(11, 13) = Cells(11, 11)
For i = Sheets("PD").Cells(11, 11) To Sheets("PD").Cells(11, 12)
inphieudiem
If Cells(11, 11) < Cells(11, 12) Then
Cells(11, 11) = Cells(11, 11) + 1
Else
End If
Next
Cells(11, 11) = Cells(11, 13)
Cells(11, 13).ClearContents
Application.ScreenUpdating = True
Else
End If
End Sub

 

[Let'GâuGâu]

Sub INPD_ALL()

End Sub

bạn cứ bấn cho nó chạy, chổ nào không hiểu nó hoạt động ra sao thì thêm cái
msgbox "" vào để kiểm tra xem nó hoạt động ra sao

 

[dhn46]

Bạn tham khảo

Sub INPD_ALL()
    'Hien Hop thoai hoi ban co in hay khong, co cach tra loi OK hoac Cancel
    trl = MsgBox("Ban co chac chan In tat ca PD", vbOKCancel, "Thông báo")
    'Neu ban chon OK
    If trl = vbOK Then
        'Khong cho update tren man hinh - khong cho nha'y man hinh
        Application.ScreenUpdating = False
        'Chon Sheets("PD")
        Sheets("PD").Select
        'Cell M11 = K11
        Cells(11, 13) = Cells(11, 11)
        'Cho chay vong lap bat dau tu gia tri cell K11 toi L11
        For i = Sheets("PD").Cells(11, 11) To Sheets("PD").Cells(11, 12)
            'Goi sub inphieudiem
            inphieudiem
            'Neu cell K11 < L11 thi
            If Cells(11, 11) < Cells(11, 12) Then
                'Gan gia tri Cell K11 = K11 + 1
                Cells(11, 11) = Cells(11, 11) + 1
            Else
            End If
        Next
        'Gan gia tri Cell K11 = M11
        Cells(11, 11) = Cells(11, 13)
        'Xoa gia tri M11
        Cells(11, 13).ClearContents
        'Update hien thi tren man hinh
        Application.ScreenUpdating = True
    Else
    End If
End Sub