[GPECODE=vb]
With ActiveSheet '<=> sheet TongHop
'check cac dieu kien
If .cbo_tendoituong.Value = Empty Or _
.cbo_from.Value = Empty Or .cbo_to.Value = Empty Then
MsgBox ("Ban chua dien ten doi' tuong va thang' can` loc"), vbExclamation, "Thông báo"
Exit Sub
ElseIf .cbo_from.Value > .cbo_to.Value Then
MsgBox ("Thang' ke^ khai: Tu` thang' den' thang' chua hop ly'"), vbExclamation
Exit Sub
Else
tendoituong = .cbo_tendoituong.Value
FromThang = .cbo_from.Value
ToThang = .cbo_to.Value
End If
End With
[/GPECODE]
Em có đoạn code ở bên trên.
Mọi người cho e hỏi làm thế nào mình có thể vọc từng dòng code một để biết cách hoạt động và ảnh hưởng của từng dòng code một ah?
With ActiveSheet '<=> sheet TongHop
'check cac dieu kien
If .cbo_tendoituong.Value = Empty Or _
.cbo_from.Value = Empty Or .cbo_to.Value = Empty Then
MsgBox ("Ban chua dien ten doi' tuong va thang' can` loc"), vbExclamation, "Thông báo"
Exit Sub
ElseIf .cbo_from.Value > .cbo_to.Value Then
MsgBox ("Thang' ke^ khai: Tu` thang' den' thang' chua hop ly'"), vbExclamation
Exit Sub
Else
tendoituong = .cbo_tendoituong.Value
FromThang = .cbo_from.Value
ToThang = .cbo_to.Value
End If
End With
[/GPECODE]
Em có đoạn code ở bên trên.
Mọi người cho e hỏi làm thế nào mình có thể vọc từng dòng code một để biết cách hoạt động và ảnh hưởng của từng dòng code một ah?

