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

例

広告