|
下記のように、strListとにリストの一覧を作成しておいて、validationで入力規則付のセルを作成していますが、リストが途中までしか表示されません。扱えるリスト量に制限があるのでしょうか?回避方法をご存知の方、ご教示ください。
'Worksheets("REGMAP")の内容からstrListに、入力規則付セルに表示させる
'リストを作成する。
strList = ""
For i = 0 To 25
reg_name = Worksheets("REGMAP").Range("A1").Offset(i, 0)
reg_address = Worksheets("REGMAP").Range("A1").Offset(i, 1)
strList = strList & "," & "A_" & reg_address & "_" & reg_name
Next
'入力規則付セルをWorksheets("INIT")"に作成する。
With Worksheets("INIT").Activate
Range("A1").Offset(0, 0).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=strList
End With
End With
|
|