ฉันมีปัญหาเมื่อฉันใช้รายการแบบเลื่อนลงข้อมูลการตรวจสอบ ฉันได้ลงทะเบียนมาโครที่ควรแสดงรายการแบบเลื่อนลงหากตรงตามเงื่อนไข (รายการแบบเลื่อนลงจะขึ้นอยู่กับช่วงที่ตั้งชื่อ) เมื่อฉันพิมพ์สิ่งนี้ด้วยตนเองและเพิ่มการตรวจสอบข้อมูลในช่วงที่เลือก มันทำงานได้ดี แต่เมื่อฉันพยายามใช้มาโคร มันล้มเหลวและแสดงข้อผิดพลาด 1004 ที่บรรทัด .Add นอกจากนี้ยังเป็นไปไม่ได้ที่จะลงทะเบียนมาโครแล้วเรียกใช้หลังจากนั้น นี่คือรหัส:
Dim kolQ as Range
Set kolQ = (here is range in column Q)
With kolQ.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=IF(AND($L2<DATE(2014;5;1);$M2>DATE(2015;4;30));list_a;list_b)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "No valid status!"
.InputMessage = ""
.ErrorMessage = "Chose option from drop-down list!"
.ShowInput = True
.ShowError = True
End With
ฉันค้นหาในฟอรัมและ Google เกี่ยวกับเรื่องนั้นแล้ว แต่คำตอบทั้งหมดที่ฉันพบใช้ไม่ได้ในกรณีนี้ ช่วงที่ตั้งชื่อ (list_a, list_b) มีอยู่ในแผ่นงานอื่นของสมุดงาน