XIn hoi ve Command i = i +1

[thanhvien1802]

Trong Comnand, làm sao điều khiển giá trị Ô E5 chạy tù 0 đến 99. nếu khi nào giá trị Ô E7 = "OK". thì MsgBox " GIA TRI "
Khi Enter tiếp thì nó giá trị chạy đến 99
"E7 phụ thuộc vào giá trị của E5"
Mình chỉ biết làm được sơ sơ trong VB6 và C++, còn Excel thì mình mới bắt đầu học ở diễn đàn ........."
Mình xin cảm ơn trước.

 

[nvson]

Bạn đã biết lập trình trên VB6 và C++ thì lập trình VBA trong Excel sẽ đơn giản thôi.
Khởi động Excel, nhấn Alt+F11 để vào VBA.
Nhấn Insert/ Module rồi thêm đoạn code sau:

Option Explicit
'
Public Sub Btap()
Application.ScreenUpdating = False
Dim i As Byte
For i = 1 To 99
    Range("E5").Value = i
    If Range("E7").Value = "OK" Then
        MsgBox "GIA TRI"
    Else
        'Xu ly them
    End If
Next i
Application.ScreenUpdating = True
End Sub

Về Excel, tạo công thức ở ô E7 (có liên quan đến ô E5).
Nhấn Alt+F8, chạy Marco BTap.