Существует объект проверки VBA Excel, связанный с диапазоном. Смотрите код:
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
Эти свойства читабельны, чтобы вы могли вытащить.InputTitle или.InputMessage или минимальное и максимальное значения, допустимые для проверки этой ячейки программно, чтобы увидеть, какое проверяемое дополнение используется.
Попробуй это:
Sub test()
Range("a1") = Range("e1").Validation.InputTitle & ": Range = " & Range("e1").Validation.Formula1 & " to " & Range("e1").Validation.Formula2
End Sub
Приведенный выше код возвращается в ячейку A1: необходимо общее число: диапазон = от 5 до 10.
Смотрите книги в Интернете для получения дополнительной информации.
http://msdn.microsoft.com/en-us/library/aa224495(office.11).aspx
Гленн