|
おはようございます
▼すず さん:
>そこで動的に入力規則のリストを変化させるのに、以下のようにコードを書いてみましたがエラーが出ます。
エラーの原因と思われるところは
>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 '←変更
hRng = "=" & lRng & ":" & rRng
> With Worksheets("main").Range("C4") '←変更
With Worksheets("main").Range("C4").Validation
.Delete '←追加
> .Add Type:=xlValidateList, AlertStyle:= _
> xlValidAlertStop, Operator:= xlBetween, _
> Formula1:=hRng
> .ErrorMessage = "駐車場名を正しく選択してください"
> .IMEMode = xlIMEModeNoControl
> End With
>End Sub
以上3箇所を修正して試してみて下さい
|
|