|
▼awu さん:
>> Dim m, x As Integer
>
>この変数宣言ですと、mは、Variantになりますよ。
>
>Validation.Add で Type:=xlValidateList の場合は、リストですから
>formura2 は、不要です。 あと綴りが ra ではなく la です。
>
>Select Case で Case が1つよりないのでどうかと・・・
>
>こんな感じで如何でしょうか。
>
>
>Dim m As Integer, x As Integer
>For m = 1 To 40
> For x = 1 To 50
> If Cells(m, 1).Value = Cells(x, 16).Value Then
> With Cells(m, 2).Validation
> .Delete
> .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
> Operator:=xlBetween, Formula1:="=" & _
> Range(Cells(x, 17), Cells(x, 30)).Address
> .IgnoreBlank = True
> .InCellDropdown = True
> .IMEMode = xlIMEModeNoControl
> .ShowInput = True
> .ShowError = True
> End With
> End If
> Next x
>Next m
ありがとうございます。
ほんまに初心者なもので綴りミスなんて・・・恥ずかしい。。
教えてくださったのでうまく動きました☆
これからも初心者の私に教えてください。
ありがとうございます。
|
|