Giúp E học VBA với (1 người xem)

[trananhtommy]

E có file này, muốn bấm Yes để xóa và bấm No thì thôi mà sao VBA của E nó không chạy. Các Bác giúp E với.

 

[phulien1902]

E có file này, muốn bấm Yes để xóa và bấm No thì thôi mà sao VBA của E nó không chạy. Các Bác giúp E với.

File bạn gửi không có Code( do bạn lưu File dạng *.xlsx).
Vậy Code của bạn như thế nào thì gửi lên đây?

 

[trananhtommy]

Dạ đây ạ, xin lỗi vì đưa nhầm

 

[phulien1902]

Dạ đây ạ, xin lỗi vì đưa nhầm

Nếu bạn chỉ muốn có MsgBox để thông báo việc xóa dữ liệu, thì bạn nên dùng Code dưới là đơn giản nhất:

Sub MsgXoa()
    x = MsgBox("Ban chac chan muon xoa ?", vbYesNo + vbExclamation, "XOA")
    If x = vbNo Then Exit Sub
    Sheet1.Range("C3:C8").ClearContents
End Sub

 

[trananhtommy]

Nếu bạn chỉ muốn có MsgBox để thông báo việc xóa dữ liệu, thì bạn nên dùng Code dưới là đơn giản nhất:

Sub MsgXoa()
    x = MsgBox("Ban chac chan muon xoa ?", vbYesNo + vbExclamation, "XOA")
    If x = vbNo Then Exit Sub
    Sheet1.Range("C3:C8").ClearContents
End Sub

Vâng, vấn đề mình lại muốn tận dụng cái thông báo bằng tiếng việt. Viết không dấu thì lại không lọ mọ ạ..

 

[trananhtommy]

Không có ai giúp E với ạ????

 

[PacificPR]

Vâng, vấn đề mình lại muốn tận dụng cái thông báo bằng tiếng việt. Viết không dấu thì lại không lọ mọ ạ..

Sửa lại Code của bạn 1 ít thôi:

Sub Xoa_noi_dung()

Dim MyMsg As Long
Dim MsgTitle As String, MsgText As String


MsgTitle = Sheets("TBloi").Range("B2").Value & vbLf & Sheets("TBloi").Range("B3").Value & vbLf
MsgText = Sheets("TBloi").Range("B4").Value & vbLf & vbLf & Sheets("TBloi").Range("B5").Value & vbLf
MyMsg = Application.Assistant.DoAlert(MsgTitle, MsgText, msoAlertButtonYesNo, msoAlertIconNoIcon, msoAlertDefaultFirst, msoAlertCancelFirst, False)


If MyMsg = vbYes Then
Sheet1.Range("C3:C8").ClearContents
End If


End Sub

 

[trananhtommy]

Hay quá, E làm đc rồi, cảm ơn Bác nhé