エクセルのVBAでダブルクリックでチェックを入れた後、もう一度ダブルクリックでセルの色を黄色にしてもう一度ダブルクリックでチェックを消してセルの色も消したいのですが、3つめのcaseの書き方が分かりません。どのように書けばよいでしょうか。
よろしくご教示ください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case ""
.Value = ChrW(&H2713)
Case ChrW(&H2713)
.Interior.Color = RGB(255, 255, 0)
Case .Value = ChrW(&H2713)
.Value = ""
End Select
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは
>3つめのcaseの書き方が分かりません。
ご提示のCase文はセル値で分岐していますので、セル値だけの判断ではご質問の内容は実現できないと思われます。
実現するには、セルの色の判断が必要になります。
値がチェックマークの際に、セルの色を判断するようにすれば宜しいでしょう。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case ""
.Value = ChrW(&H2713)
Case ChrW(&H2713)
If .Interior.Color = RGB(255, 255, 0) Then
.Interior.Color = xlNone
.Value = ""
Else
.Interior.Color = RGB(255, 255, 0)
End If
End Select
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Visual Basic(VBA) ダブルクリックでセルの色を変える 1 2022/12/24 15:52
- Visual Basic(VBA) Worksheet_Change 4 2023/03/12 21:54
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELマクロ 保護されているシ...
-
エクセルテキストボックスの文...
-
ハイパーリンクされているファ...
-
ダブルクリックすると現在の時...
-
メッセージを1度だけ表示したい。
-
エクセルVBA(実行時エラー438...
-
VBAで、貼り付け禁止命令を実現...
-
エクセルVBA セル選択後にカレ...
-
(VBA)アクティブセルを起点に...
-
VBAで丸をつけたいです。
-
VBA セルに合わせて移動するが...
-
Excel VBA セルを指定個数ラン...
-
Jtableの特定のセルの背景色や...
-
VBAについて教えてください。 E...
-
GrapeCityのSpreadの複数セルの...
-
エクセル マクロ 範囲指定。
-
Excel VBA ダブルクリックで入...
-
データが入力されている隣のセ...
-
Windowsで動くVBAがmacOSで動か...
-
VBAで選択したセルのみ処理を実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データが入力されている隣のセ...
-
EXCELマクロ 保護されているシ...
-
エクセルテキストボックスの文...
-
VBAで、貼り付け禁止命令を実現...
-
Excelについて
-
メッセージを1度だけ表示したい。
-
ダブルクリックすると現在の時...
-
ハイパーリンクされているファ...
-
エクセルVBA セル選択後にカレ...
-
Jtableの特定のセルの背景色や...
-
VBAで丸をつけたいです。
-
エクセルVBA(実行時エラー438...
-
Excelのセル内にある図形を削除...
-
Swing 編集不可でも選択可能なJ...
-
(VBA)アクティブセルを起点に...
-
Excel VBA セルを指定個数ラン...
-
VBA セルに合わせて移動するが...
-
Windowsで動くVBAがmacOSで動か...
-
セル色を5秒間隔で変える
-
Excel VBA ダブルクリックで入...
おすすめ情報