ＶＢＡ初心者です。
入力規則でA,B,Cとドロップダウンリストを作成し、Aを選択したら自動的に同一セル内で“1”、Ｂを選択したら“2”と変換させたいのですが、WORKSHEET CHANGE で試みましたが上手くいきまんでした。初心者ですのでどなたか助言頂けると助かります。 宜しくお願いします。
No.1
そのSheetに以下のコードを貼り付ければOKかと。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then With Cells(1,1) Select Case .Value Case "A" .Value = "1" Case "B" .Value = "2" Case "C" .Value = "3" End Select End With End If
End Sub
No.1
ここでベストアンサー
そのSheetに以下のコードを貼り付ければOKかと。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then With Cells(1,1) Select Case .Value Case "A" .Value = "1" Case "B" .Value = "2" Case "C" .Value = "3" End Select End With End If
End Sub
1
1
2
1
コメント（1件)