VBA　セルに変更があったときに起動、セルの入力内容に応じてドロップダウンリストを作成

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("C")) Is Nothing Then Exit Sub

If Target.Value = "ﾊﾟｲﾌﾟ" Then MsgBox "are you ready?"
With ActiveCell.Offset(0, 1).Validation
.Delete
.Add xlValidateList, 1, , "10,15,20,25,32,40,50,65,80,100,125,150,200,250,300,350"
End With
With ActiveCell.Offset(0, 3).Validation
.Delete
.Add xlValidateList, 1, , "SGP-E,SGP(W)-E,STPG370-S,SUS304TP-S,SUS304TP-A,SUS316TP-A"
End With
With ActiveCell.Offset(0, 5).Validation
.Delete
.Add xlValidateList, 1, , "SCH10S,SCH40,SCH80"
End With

If Target.Value = "45°ｴﾙﾎﾞ" Then MsgBox "are you ready?"
With ActiveCell.Offset(0, 1).Validation
.Delete
.Add xlValidateList, 1, , "15,20,25,32,40,50,65,80,100,125,150"
End With
With ActiveCell.Offset(0, 3).Validation
.Delete
.Add xlValidateList, 1, , "FCMB,FCMB+ZN,FSGP,FSGP(W),S25C,SUS304,SUS304W,SUS316,SUS316W"
End With
With ActiveCell.Offset(0, 5).Validation
.Delete
.Add xlValidateList, 1, , "Rc1/2,Rc3/4,BW,SCH80 SW,SCH80 Rc1/2,SCH80 Rc3/4,SCH10S BW"
End With
・
・　同じようなコードが続きます。
・
C列にドロップダウンリストを設定していて、そこの入力が変更されたときにVBAが起動。C列の入力内容に応じてドロップダウンリストをセルに作るように設定したいのですが、一番下に設定しているものが参照されて途中のものがうまくいきません。何が間違っているかわからないので教えてください。

jinoji

2021/04/16 09:33

まず、質問を編集して「コードの挿入」を使ってコード部分を見やすくすることをお勧めします。

行動規範の内容に同意します

回答1件

ベストアンサー

VBA
1    Select Case Target.Value
2     Case "ﾊﾟｲﾌﾟ"
3        With Target.Offset(0, 1).Validation
4            .Delete
5            .Add xlValidateList, 1, , "10,15,20,25,32,40,50,65,80,100,125,150,200,250,300,350"
6        End With
7        With Target.Offset(0, 3).Validation
8            .Delete
9            .Add xlValidateList, 1, , "SGP-E,SGP(W)-E,STPG370-S,SUS304TP-S,SUS304TP-A,SUS316TP-A"
10        End With
11        With Target.Offset(0, 5).Validation
12            .Delete
13            .Add xlValidateList, 1, , "SCH10S,SCH40,SCH80"
14        End With
15    
16     Case "45°ｴﾙﾎﾞ"    
17       '
18       '
19       '
20     Case Else
21    
22    End Select
23
24