命令文:
シート名:商品売上げのセル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ベストアンサー
- 回答日時:
エクセルのバージョンが記載してないですが
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
- 回答日時:
ショートカットキーについて
http://okwave.jp/qa7044552.html
に私の回答がある。参考にして。
>If Range("B16") = Range("C16") =Range("D15") Then
はVB・VBAの文法の勉強不足です。
VB/VBAの解説書を全般的に読むことが必要と思う。
ーー
質問標題も、「エクセルVBA ショートカットで実行するコード」といったような、質問内容を表すような標題をつけること。
コード実例も新味が無くて、もっと簡単なもので良いはず(「>下記の命令文の作成」といっているが、コードの具体例の前半ところは既に前質問で済んでいるのだろう。先日見たような気がするが)。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
【Excel】指定したセルの名前で...
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
EXCELで変数をペーストしたい
-
Excel vbaで特定の文字以外が入...
-
i=cells(Rows.Count, 1)とi=cel...
-
ExcelのVBAで数字と文字列をマ...
-
【VBA】指定したセルと同じ値で...
-
特定の文字を条件に行挿入とそ...
-
セル色なしの行一括削除
-
VBA実行後に元のセルに戻りたい
-
【VBA】シート上の複数のチェッ...
-
指定した条件で範囲選択したい
-
Excel VBA、 別ブックの最終行...
-
EXCELのVBA-フィルタ抽出後の...
-
実行時エラー438 オブジェクト...
-
先頭と末尾を指定して連続した...
-
EXCEL VBA 画面のロックについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
Excel vbaで特定の文字以外が入...
-
特定の文字を条件に行挿入とそ...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
連続する複数のセル値がすべて0...
-
Excel VBA、 別ブックの最終行...
-
VBAを使用した時間管理
-
エクセルVBAでコピーして順...
-
セル色なしの行一括削除
-
【EXCEL VBA】Range("A:A").Fi...
-
VBA コピーして次の値まで貼り...
-
VBA初心者です。結合セルを保持...
おすすめ情報