Có một đối tượng Xác thực VBA Excel, được liên kết với phạm vi. Xem mã:
With Range("e1").Validation
.Add Type:=xlValidateWholeNumber, _
AlertStyle:=xlValidAlertInformation, _
Minimum:="5", Maximum:="10"
.InputTitle = "Needs Wholenumber"
.ErrorTitle = "Integers"
.InputMessage = "Enter an integer from five to ten"
.ErrorMessage = "You must enter a number from five to ten"
End With
Các thuộc tính này có thể đọc được để bạn có thể rút ra .InputTitle hoặc .InputMessage hoặc các giá trị tối thiểu và tối đa được phép cho xác thực của ô đó theo chương trình, để xem tính hợp lệ nào đang được sử dụng.
Thử cái này:
Sub test()
Range("a1") = Range("e1").Validation.InputTitle & ": Range = " & Range("e1").Validation.Formula1 & " to " & Range("e1").Validation.Formula2
End Sub
Đoạn mã trên trở về ô A1: Nhu cầu Wholenumber: Range = 5 đến 10 . Xem sách trực tuyến để biết thêm.
http://msdn.microsoft.com/en-us/l Library / aa224495 (office.11) .aspx
Glenn