มีวัตถุการตรวจสอบ 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 หรือค่า min และ max ที่อนุญาตสำหรับการตรวจสอบความถูกต้องของเซลล์นั้นโดยทางโปรแกรมเพื่อดูว่ามีการใช้ validadtion อะไร
ลองสิ่งนี้:
Sub test()
Range("a1") = Range("e1").Validation.InputTitle & ": Range = " & Range("e1").Validation.Formula1 & " to " & Range("e1").Validation.Formula2
End Sub
ผลตอบแทนที่ได้รหัสด้านบนเพื่อเซลล์ A1: ความต้องการ Wholenumber: ช่วง = 5-10 ดูหนังสือออนไลน์สำหรับข้อมูลเพิ่มเติม
http://msdn.microsoft.com/en-us/library/aa224495(office.11).aspx
เกล็น