Ada objek Validasi Excel VBA, yang terkait dengan rentang. Lihat kode:
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
Properti ini dapat dibaca sehingga Anda bisa mengeluarkan nilai .InputTitle atau .InputMessage atau min dan maks yang diizinkan untuk validasi sel secara terprogram, untuk melihat validasi apa yang digunakan.
Coba ini:
Sub test()
Range("a1") = Range("e1").Validation.InputTitle & ": Range = " & Range("e1").Validation.Formula1 & " to " & Range("e1").Validation.Formula2
End Sub
Kode di atas kembali ke sel A1: Needs Wholenumber: Range = 5 hingga 10 . Lihat buku online untuk info lebih lanjut.
http://msdn.microsoft.com/en-us/library/aa224495(office.11).aspx
Glenn