VBAエクセル2003での下記の命令文の作成2

質問

命令文：
シート名：商品売上げのセルB16に入っている数字と
シート名：売り上げのセルC16に入っている数字が同じなら
メッセージBOXに○を表示させる
そうでなければ
メッセージBOXに×を表示させる
↓
Sub 売り上げ()

Set WS1 = Worksheets("売上")
Set WS2 = Worksheets("商品売上")
If WS1.Range("C16") = WS2.Range("B16") Then
MsgBox "○"
Else
MsgBox "×"
End If

End Sub

この作業をマクロの実行を押さずにショートカットキーで
作業を可能にするには
どういった命令文または操作でショートカットキーでの表示がかのでしょうか。
(ショートカットキーを押すことで○×の表示を出すにはどうしたらいいでしょうか？）

また、同じシート内でB16のセルとC16のセル、D15が同じ場合は
メッセージボックスに○そうでない場合は×の場合は

Sub 売り上げ2()

Worksheets("商品売上")
If Range("B16") = Range("C16") =Range("D15") Then
MsgBox "○"
Else
MsgBox "×"
End If

End Sub

だけでいいんでしょうか？

詳しい方教えてください。

今、仕事でミスが多くプログラミングでどうにか
ミスを防げないか工夫したいのですが
まだ、習いたてでよくわかりません。

お手数が教えていただけませんでしょうか。
よろしくお願いいたします。

回答No.1

hallo-2007 · ベストアンサー

エクセルのバージョンが記載してないですが
http://allabout.co.jp/gm/gc/297797/
でユーザー設定ボタンの作り方
http://allabout.co.jp/gm/gc/297797/2/
でショットカットキーに割り当てる方法が説明されています。

If Range("B16") = Range("C16") =Range("D15") Then
は
If Range("B16").Value = Range("C16").Value And Range("B16").Value = Range("D15").Value Then
といった記述の仕方になります。

アイディアとしてですが
マクロのイベントに　シートのセルの値が変わったら実行
という方法もありますし
誤入力を防止であれば、入力規則を設定してしまう方法もありますね。

お礼

ありがとうございます。

回答No.2

imogasi

ショートカットキーについて
http://okwave.jp/qa7044552.html
に私の回答がある。参考にして。
＞If Range("B16") = Range("C16") =Range("D15") Then
　はVB・VBAの文法の勉強不足です。
VB/VBAの解説書を全般的に読むことが必要と思う。
ーー
質問標題も、「エクセルVBA ショートカットで実行するコード」といったような、質問内容を表すような標題をつけること。
コード実例も新味が無くて、もっと簡単なもので良いはず（「＞下記の命令文の作成」といっているが、コードの具体例の前半ところは既に前質問で済んでいるのだろう。先日見たような気がするが）。