|
Dim m, x As Integer
For m = 1 To 50
こんにちは。
早速質問をさせてください。
「B1」から「B40」まで入力規則をしたいのです。
「A1」から「A40」の値によって「B列」でリストにしたいセルが変わります。
「A1」の値が「P1」の時は,「Q1」から「AD1」をリストに、
「A1」の値が「P2」の時は,「Q2」から「AD2」をリストに、
・
・
「A1」の値が「P50」の時は,「Q50」から「AD50」をリストに、
「A2」の値が「P1」の時は,「Q1」から「AD1」をリストに、
「A2」の値が「P2」の時は,「Q2」から「AD2」をリストに、
・
・
「A2」の値が「P50」の時は,「Q50」から「AD50」をリストに、
・
・
「A40」の値が「P50」の時は,「Q50」から「AD50」をリストに、
Dim m, x As Integer
For m = 1 To 40
For x = 1 To 50
Select Case Cells(m, 1)
Case Cells(x, 16)
Cells(m, 2).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Cells(x, 17), formura2:=Cells(x, 30)
.IgnoreBlank = True
.InCellDropdown = True
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Select
Next x
Next m
これを実行させると
「実行時エラー1004:アプリケーション定義またはオブジェクト定義のエラーです。」
となるのです。
どこがだめなのか教えてください。
|
|