入力された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