|
色々と方法を考えましたが思いつかず投稿しました。
Sheet1のC4セルにフォルダ名を入力します。
この名前は横に配置されたボタンを押すとフォルダ名選択ダイアログが出てきてそちらから選ぶとC4セルにフォルダ名が表示されるようになっています。
もし入力されなかった場合はエラーになりますが、フォルダ名以外の文字などが入力された場合にエラー回避できなくなってしまいます。
入力規則を使用しようかと思ったのですが、たくさんのフォルダがあるので、見難くなる為にダイアログ表示としています。
そこでC4のセルに入力規則を一応組み込んでおいて、他の文字などが入力された場合にエラーを出すようにするのがいいかなと思い考えました。
しかしそのフォルダ名ですが、一定ではありません。
リストが変化する可能性があるので、ブック読込みの際にSheet1のG列にフォルダ名一覧を読込させて非表示にし、何列あるかをそのたびごとに確認する為にH1列に数値を入力しています。
そこで動的に入力規則のリストを変化させるのに、以下のようにコードを書いてみましたがエラーが出ます。
Sub test()
Dim lRng As String
Dim rRng As String
Dim hRng As String
Dim k As Integer
k = Worksheets("main").Range("H1").Value
lRng = "G1"
rRng = "G" & k
hRng = lRng & ":" & rRng
With Worksheets("main").Range("C4")
.Add Type:=xlValidateList, AlertStyle:= _
xlValidAlertStop, Operator:= xlBetween, _
Formula1:=hRng
.ErrorMessage = "駐車場名を正しく選択してください"
.IMEMode = xlIMEModeNoControl
End With
End Sub
このような方法でなくても、うまいエラーへの対処方法がありましたら教えていただけるとありがたいです。
よろしくお願い致します。
|
|