ダブルクリックで色を設定した下記のVBAで色付けされた表があります。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Target.Column) = 1 And Target.Text <> "" Then
With Target.Interior
If .Color = RGB(0, 112, 192) Then
.ColorIndex = xlNone
Else
.Color = RGB(0, 112, 192)
End If
Cancel = True
End With
End If
End Sub
これに加えて更にRGB(0, 112, 192)→RGB(252, 9, 0)→RGB(255, 255, 119)→色なしに変える方法を教えていただきたいです。
No.1ベストアンサー
- 回答日時:
こんばんは。
試していませんが、下記の様にしてどうでしょうか?
If .Color = RGB(0, 112, 192) Then
.ColorIndex = xlNone
Else
.Color = RGB(0, 112, 192)
End If
↓
If .Color = RGB(0, 112, 192) Then
.Color = RGB(252, 9, 0)
ElseIf .Color = RGB(252, 9, 0) Then
.Color = RGB(255, 255, 119)
ElseIf .Color = RGB(255, 255, 119) Then
.ColorIndex = xlNone
Else
.Color = RGB(0, 112, 192)
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Worksheet_Change 4 2023/03/12 21:54
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
道路(アスファルト)の色の塗り...
-
濃いローソン
-
パワーポイントでフォントの色...
-
水色の作り方
-
エクセルに挿入した図の一部を...
-
マイクロソフトのオフィス、ア...
-
イラスト評価お願いします テー...
-
真っ赤なTシャツの色を落とす(...
-
ポスターカラーの使い方を教え...
-
ダブルクリックでセルの色を変える
-
極彩色ってどんな色?
-
ユニクロ色落ち
-
類似色と近似色の違い分かりま...
-
黄色のインコを描いてみました...
-
某大手スーパーの看板の色
-
コピックの使い方で。。。
-
Word 2010で「その他の色」を保...
-
フォトショップのブラシが急に...
-
エクセルのセルの色が突然変った
-
イラストをスキャンしたけど色...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントでフォントの色...
-
真っ赤なTシャツの色を落とす(...
-
類似色と近似色の違い分かりま...
-
濃いローソン
-
エクセルのセルの色が突然変った
-
VBの色を変えるにはどうしたら...
-
PowerPoint2003で重ねた図の色...
-
エクセルのポインターの色を変...
-
エクセルに挿入した図の一部を...
-
ユニクロ色落ち
-
色画用紙に絵を写したい! 学校...
-
Excelの参照元の色がつかない
-
海上自衛隊の自衛艦旗の描き方
-
緑や黄緑と相性のいい色って何...
-
色について
-
Word 2010で「その他の色」を保...
-
水色の作り方
-
道路(アスファルト)の色の塗り...
-
access2013でフォームに配置し...
-
イラストの下書きを消すタイミング
おすすめ情報