Ứng dụng MsgBox

[Gà gà]

Em đang tạo một Msgbox để hỏi xác nhận là có muốn thực hiện lệnh hay không.
Nếu có thì bấm nút yes -> chạy đoạn code.
Nếu không thì bấm nút No -> thoát sub.
Nhưng mà em làm xong thì chương trình không chạy.
Không biết là em làm bị sai chổ nào.
Nhờ anh chị chỉ giúp em phần này với ạ
Em xin cảm ơn nhiều ạ

Sub sample()
Dim giatri As Integer
giatri = MsgBox("Ban muon thuc hien lenh tinh", vbYesNo + vbInformation, "Thong bao")
If (giatri = vbOK) Then
Range("C2").Select
Selection.FormulaR1C1 = "=RC[-2]+RC[-1]"
Else
End If
End Sub

 

[Bluestar092011]

Em đang tạo một Msgbox để hỏi xác nhận là có muốn thực hiện lệnh hay không.
Nếu có thì bấm nút yes -> chạy đoạn code.
Nếu không thì bấm nút No -> thoát sub.
Nhưng mà em làm xong thì chương trình không chạy.
Không biết là em làm bị sai chổ nào.
Nhờ anh chị chỉ giúp em phần này với ạ
Em xin cảm ơn nhiều ạ

Sub sample()
Dim giatri As Integer
giatri = MsgBox("Ban muon thuc hien lenh tinh", vbYesNo + vbInformation, "Thong bao")
If (giatri = vbOK) Then
Range("C2").Select
Selection.FormulaR1C1 = "=RC[-2]+RC[-1]"
Else
End If
End Sub

Bạn muốn chọn Yes để thực hiện trong khi điều kiện lại là OK, sửa chổ vbOK thành vbYes

 

[Gà gà]

Bạn muốn chọn Yes để thực hiện trong khi điều kiện lại là OK, sửa chổ vbOK thành vbYes

Ô cảm ơn bác, Bác chỉ đúng cái chổ em ngáo luôn, kkkkkk

 

[BuiQuangThuan]

Em đang tạo một Msgbox để hỏi xác nhận là có muốn thực hiện lệnh hay không.
Nếu có thì bấm nút yes -> chạy đoạn code.
Nếu không thì bấm nút No -> thoát sub.
Nhưng mà em làm xong thì chương trình không chạy.
Không biết là em làm bị sai chổ nào.
Nhờ anh chị chỉ giúp em phần này với ạ
Em xin cảm ơn nhiều ạ

Sub sample()
Dim giatri As Integer
giatri = MsgBox("Ban muon thuc hien lenh tinh", vbYesNo + vbInformation, "Thong bao")
If (giatri = vbOK) Then
Range("C2").Select
Selection.FormulaR1C1 = "=RC[-2]+RC[-1]"
Else
End If
End Sub

Chắc sửa như vầy nè:

Sub sample()
    Dim giatri As Integer
    giatri = MsgBox("Ban muon thuc hien lenh tinh", vbYesNo + vbInformation, "Thong bao")
    If giatri = 6 Then
        Range("C2").FormulaR1C1 = "=RC[-2]+RC[-1]"
    End If
End Sub

 

[Gà gà]

Chắc sửa như vầy nè:

Sub sample()
    Dim giatri As Integer
    giatri = MsgBox("Ban muon thuc hien lenh tinh", vbYesNo + vbInformation, "Thong bao")
    If giatri = 6 Then
        Range("C2").FormulaR1C1 = "=RC[-2]+RC[-1]"
    End If
End Sub

cảm ơn Bác nhiều ạ

 

[befaint]

Do khai báo biến không chính xác.

Khai báo chuẩn một cái là chẳng phải hỏi đâu cả.

 

[batman1]

Ô cảm ơn bác, Bác chỉ đúng cái chổ em ngáo luôn, kkkkkk

Muốn If (giatri = vbOK) Then cũng được thôi nhưng lúc đó ở trước phải là vbOKCancel + vbInformation

Nếu ở trước là vbYesNo + vbInformation thì lấy đâu ra vbOK để dâng cho bạn.

 

[Gà gà]

Muốn If (giatri = vbOK) Then cũng được thôi nhưng lúc đó ở trước phải là vbOKCancel + vbInformation

Nếu ở trước là vbYesNo + vbInformation thì lấy đâu ra vbOK để dâng cho bạn.

Cảm ơn Bác nhiều ạ, em ngáo quá kkkk

Bài đã được tự động gộp: 6/7/22

Do khai báo biến không chính xác.

Khai báo chuẩn một cái là chẳng phải hỏi đâu cả.


View attachment 278450

View attachment 278451

Cảm ơn Bác nhiều ạ