作業ブックに
Sub 車庫増築()
On Error Resume Next
Select Case Worksheets("青紙表").Range("CI52")
Case "2号"
Worksheets("青紙表").Range("I6") = "■"
Case "3号"
Worksheets("青紙表").Range("K6") = "■"
Case "4号"
Worksheets("青紙表").Range("M6") = "■"
End Select
End Sub
のマクロがあります。
このマクロを実行すると
指定セル値の表示によって指定セルに「■」が表示されるようになっております。
このマクロに
セル「AR9」に「(限特):有」が表示されると
セル「D62」が「■」になるマクロを追加する方法を教えてください。
よろしくお願いいたします。
No.1
- 回答日時:
>このマクロにセル「AR9」に「(限特):有」が表示されると
セル「D62」が「■」になるマクロを追加する方法を教えてください>
AR9なのでSelect Caseに入れる必要はなく
普通にIF文で良いですよ
もし AR9 が "(限特):有" ならば D62に"■" 違えば D62 に ""
参考
Office Hack
ExcelのVBA(マクロ)でIf~Then~Elseを使って条件分岐する方法
https://office-hack.com/excel/if-vba/
No.2ベストアンサー
- 回答日時:
条件重複しても良いということでよろしいでしょうか。
Sub 車庫増築()
On Error Resume Next
Select Case Worksheets("青紙表").Range("CI52")
Case "2号"
Worksheets("青紙表").Range("I6") = "■"
Case "3号"
Worksheets("青紙表").Range("K6") = "■"
Case "4号"
Worksheets("青紙表").Range("M6") = "■"
End Select
Select Case Worksheets("青紙表").Range("AR9")
Case "(限特):有"
Worksheets("青紙表").Range("D62") = "■"
End Select
又は IF文で
If Worksheets("青紙表").Range("AR9") = "(限特):有" Then
Worksheets("青紙表").Range("D62") = "■"
End If
End Sub
No.3
- 回答日時:
この条件ステートメントは、
Select Case 変数
Case 条件式1
処理1
Case 条件式2
処理2
Case 条件式3
処理3
…
Case Else
すべての条件に一致しなかった場合の処理
End Select
のように、1つの変数に対し、条件により複数の分岐処理がある場合に使います。
・・・
そんなわけで、質問のケースでは
「CI52」セル
の値を判断条件にしているので、
「AR9」セル
に対しては、別の Select Caseステートメントで条件処理を作る必要があります。
(IFステートメントでもいいんですけど、見た目が変わるので個人的には統一させたいですね)
Select Case Worksheets("青紙表").Range("AR9")
Case "(限特):有"
Worksheets("青紙表").Range("D62") = "■"
End Select
マジでこんだけのことです。
・・・余談・・・
Select Caseステートメントの使い方を理解していないことで生じた問題ですね。
基本的なことですので、誰かに作ってもらうのではなく、使い方について理解するようにしましょう。
そうすれば以後はその場で自身の判断で対処できるようになりますよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) ExcelのVBAコードについて教えて下さい。 2 2022/06/25 14:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
ExcelのVBA。public変数の値が...
-
メッセージボックスのOKボタ...
-
2つのマクロでチェックボックス...
-
エクセルのマクロについて教え...
-
Excel2013 VBA マクロ実行中に...
-
エクセルのマクロについて教え...
-
VBA初心者 Ctrl+での操作、ボタ...
-
エクセルで別のセルにあるふり...
-
エクセルのマクロについて教え...
-
Excelマクロを引数付で起動
-
「マクロ」の語源
-
エクセルのマクロについて教え...
-
レポートで空データ時に印刷しない
-
ユーザーフォームを起動しなが...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報