|
> 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
|
|