入力されたIDに対応した文字列を表示するVBAでメッセージ仕様書を作成

感想おまちしてます!

あるセルにKeyとなる値が入力されたときに、そのKeyに対応したデータを隣のセルに代入させるVBA。メッセージ仕様書でメッセージIDを入力したらメッセージをとってきてくれるのがほしかったので作成。

Changeイベントを使えば、セルの値が変わったときに、そのセルの情報を受け取ることができる。

スポンサーリンク

Private Sub Worksheet_Change(ByVal Target As Range)


'Columnが1の場合に処理を実行する
If Target.Column = 1 Then

'入力されたKeyを取得
Key = Target.Value

'Keyによって代入値を変える
If Key = "藤原" Then
Msg = "名前が入力されたみたい"
Else
Msg = "それ以外みたい"
End If

'Tragetの隣のCellに代入
Cells(Target.Row, Target.Column + 1) = Msg
End If

End Sub