Є об’єкт валідації Excel VBA, пов’язаний із діапазоном. Переглянути код:
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
Гленн