エクセルVBAで、

あらかじめシート２のA列に食べ物の名前、B列にカロリーが記入してあり、
シート１のJ2にシート２に記入してある食べ物を入力すると、メッセージボックスで何カロリーあるのか表示されるプログラムが組みたいんですけど、
そう組んだらいいのかわからないので、教えてほしいです。

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2012/05/26 12:03

わざわざ、VBAを使って、メッセージボックスで表示する必要があるの？

とりあえず、VBAの勉強ということで

シート１の名前のタグを　右クリック
コードの表示をクリックして
VBエディターを起動

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then
MsgBox WorksheetFunction.VLookup(Range("J2").Value, Sheets("Sheet2").Columns("A:B"), 2, True)
End If
End Sub

を貼り付けて、VBエディターを閉じる。

エクセルのVlookup関数をVBAで使用した書き方です。
エラーが起きないように、J2セルには入力規則を設定しておきましょう。