Xin giúp đỡ edit chức năng của các nút khi sử dụng Validation !! (1 người xem)

[easternsun]

Mọi người ơi cho mình hỏi có cách nào edit được chức năng của nút button trong hộp thông báo lỗi của Validation không ạ

Đây là code của mình, mình muốn dữ liệu khi nhập không khớp sẽ thông báo lên, nếu chọn Yes sẽ điền giống với sheet1 còn No sẽ đi tới ô đó

Cảm ơn mọi người ạ

Sub test()

Dim i, i1, lr, lc As Long
Dim a As String
a = Sheets(1).Name & "!"


lr = Sheets(1).UsedRange.Rows(Sheets(1).UsedRange.Rows. Count).Row
lc = Sheets(1).UsedRange.Columns(Sheets(1).UsedRange.Co lumns.Count).Column


For i1 = 1 To lc
For i = 1 To lr

With Sheets(2).Cells(i, i1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & a & Sheets(1).Cells(i, i1).Address
.IgnoreBlank = True
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = "NOT MATCH !! Please check "
.InputMessage = ""
.ErrorMessage = " The value in Sheet1 is " & Sheets(1).Cells(i, i1)
.ShowInput = True
.ShowError = True
End With
Next i

Next i1




End Sub