Excel VBAの解読について質問があります。
概要は、マクロでチェックボックスにチェックすると日付が連動して自動表示されるようにしたいです。
ただし、下記のVBAはA列にチェックボックスリンクセルがある時だけ反応します。
これを、B列で反応するようにしたいですが、私には難しく解読できません。
どうか、どなたかよろしくお願い致します。
詳細な内容は下記のとおりです。
Sub Check()
Dim ch As Shape
Dim ad As String
Application.ScreenUpdating = False
ad = Selection.Address
For Each ch In ActiveSheet.Shapes
If ch.Name Like "Check Box*"Then
ch.Select
With Range("D"&Range(Selection.LinkedCell).Row)
If Selection.Value = xlOn And .Value = ""Then
.Value = Date
ElseIf Selection.Value = xlOff And .Value <>""Then
.Value = ""End If
End With
End If
Next ch
Range(ad).Select
Application.ScreenUpdating = True
Set ch = Nothing
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
何か勘違いをなさっていませんか?
処理内容を勘違いしているか、あるいは、対象となるマクロを別のものと勘違いしているとか・・
>A列にチェックボックスリンクセルがある時だけ反応します。
そのようなチェックは行っていないように見受けられます。
試しにそのままでF列にリンクセルを設定して実行してみましたが動作します。
(何もチェックしていないので、どの列に設定されていても動作します)
※ ご提示のコードそのままでは、構文エラーがあるので修正して、テストしました。
※ シート上のチェックボックスで、「リンクセルを設定していないチェックボックス」が存在するとエラーが発生します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
IIF関数の使い方
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
VBAを使って検索したセルをコピ...
-
【Excel VBA】カンマと改行コー...
-
VBAを用いて条件付きの平均値、...
-
VBAのFind関数で結合セルを検索...
-
VBAでのリスト不一致抽出について
-
VBAで、特定の文字より後を削除...
-
【VBA】2つのシートの値を比較...
-
VBAでエラーインジケーターにつ...
-
VBAの構文 3列置きにコピーし...
-
rowsとcolsの意味
-
VBAで10行おきにセルの下に罫線...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報