【Excelビフォーアフター】ダブルクリックで〇〇処理！面倒くさいをマクロで解決！

今回のマクロ( VBAコード) ※すみません範囲内でのダブルクリックに限定するためのコードを記述し忘れておりましたので下記の完成コードを修正しております。失礼いたしました。 'ダブルクリックで『〇』が入る Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Set rng = Range("A1").CurrentRegion.Offset(1).Resize(Range("A1").CurrentRegion.Rows.Count - 1) If Application.Intersect(ActiveCell, rng) Is Nothing Then exit sub End If 　If Cells(Target.Row, 4).Value = "" Then Cells(Target.Row, 4).Value = "〇" Else Cells(Target.Row, 4).Value = "" End If End Sub 'ダブルクリックで背景色を変える Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Set rng = Range("A1").CurrentRegion.Offset(1).Resize(Range("A1").CurrentRegion.Rows.Count - 1) If Application.Intersect(ActiveCell, rng) Is Nothing Then exit sub End If If Target.Interior.ColorIndex = xlNone Then Cells(Target.Row, 4).Value = "〇" Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = RGB(255, 230, 153) Else Cells(Target.Row, 4).Value = "" Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = xlNone End If End Sub 以前の動画(CurrentRegion) →    • エクセル VBA 34 変化に強い表範囲自動選択　CurrentRegion Res...   匠への相談、VBA無料講座動画は ↓ メンタエクセル公式LINE@ へ https://utage-system.com/line/open/CK... ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ ✅企業さま限定個別相談申し込み ↓↓↓ https://utage-system.com/event/bwWMTo... ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 今後も有益な情報をこちらで発信していく予定です。 コピペでツール作成!?メンタエクセルのサポートサイト『Sketto』 https://mentasketo.com/introduction_p... 女性の声はcoeFontスタジオさんを使用させていただいております！ →https://coefont.studio BGM：提供：GT-K（DOVA-SYNDROME） 男性ボイス： HTS Voice "NIT ATR503 M001" Copyright (c) 2003-2012 Nagoya Insitute of Technology ツイッター　⇒　  / 911_takuya   ブログ（メンタエクセル）　⇒　https://autoexcels.com note ⇒ https://note.com/takustunt Voiced by https://coefont.studio 【メンタエクセルチャンネル内おススメ動画】 エクセル VBA マクロ超入門講座 →   • エクセル VBA マクロ超入門講座　一つの動画で入門から実践まで全てがわかる！この一...   エクセルVBAにできることはコレ！ほとんどのことを自動化できる最高のアプリケーション！　 →   • エクセルVBAにできることはコレ！ほとんどのことを自動化できる最高のアプリケーション...   エクセル VBA 31 他ブック内検索 →   • エクセル VBA 31 他ブック内検索 Workbook プログラミング   【タクヤのプロフィール】 　エクセル自動化、UWSC（PC自動化）などを武器に日々楽しく業務改善を図っている現役事務業サラリーマンです。 　ブラック状態の業務を極限までに自動化を図ることでホワイト化することに成功。実践で使える技術をお伝えします。 【尊敬するおススメチャンネルはコチラです】 伊川直助さん →   / @naonaokeikei   金子晃之さん →   / @kanekoakiyuki   ユースフル（元おさとエクセル）さん →   / @youseful_skill   なんだ！カンタン！Excel塾さん →   / @excel-jyuku   パソコンスキルの教科書さん →   / @パソコンスキルの教科書   エクセル兄さん たてばやし淳さん →   / lifeworkknowledge   【おススメ動画リンク集】 Excelでユーザーフォームを作成 →   • 【Excel】Excelでユーザーフォームを作成   Excel仕事を10倍早く終わらせるテクニック20選 →   • Excel仕事を10倍早く終わらせるテクニック20選   VBAでデータの転記処理をするPart1 →   • Видео   エクセルマクロVBAで出来ることを15の事例で紹介 →   • エクセルマクロVBAで出来ることを15の事例で紹介｜日常業務をラクにするヒントを見つ...   #Twitterリンクは動画概要欄にあります！ #VBA #エクセル