Aralıkla ilişkilendirilmiş bir Excel VBA Doğrulama nesnesi var. Bkz. Kod:
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
Hangi özellikler kullanıldığını görmek için .InputTitle veya .InputMessage'ı veya o hücrenin doğrulaması için izin verilen min ve maks değerlerini program aracılığıyla çıkarabilmeniz için bu özellikler okunabilir.
Bunu dene:
Sub test()
Range("a1") = Range("e1").Validation.InputTitle & ": Range = " & Range("e1").Validation.Formula1 & " to " & Range("e1").Validation.Formula2
End Sub
Yukarıdaki kod A1 hücresine döner: Wholenumber Need: Range = 5 ila 10 . Daha fazla bilgi için çevrimiçi kitaplara bakın.
http://msdn.microsoft.com/en-us/library/aa224495(office.11).aspx
Glenn