No.3ベストアンサー
- 回答日時:
すみません、何がやりたいのか今ひとつわかってないのですが、
> この状態からH7~K7の色が付いてしまうと消えないので
> ダブルクリックで消したいのです よろしくお願いいたします。
E3:E6の範囲のように、H7:K7の範囲のセルをダブルクリックしたらそのセルに色がついて、その他のセルを無色にしたいのであれば、
myRng.Interior.ColorIndex = 37
の前に
Rng.Interior.ColorIndex = xlColorIndexNone
を挿入したらいいでしょう。
そうでなくて、H7:K7の範囲のセルをダブルクリックしたら色がつき、もう一回ダブルクリックしたら色が消える、ということをしたいのであれば、
myRng.Interior.ColorIndex = 37
の部分を、
If myRng.Interior.ColorIndex = xlColorIndexNone Then
myRng.Interior.ColorIndex = 37
Else
myRng.Interior.ColorIndex = xlColorIndexNone
End If
のようにすればいいかと思います。
お返事遅くなりませて申し訳ありません
今回は下の構文をいただきました。
わかりにくい文章ですいませんでした。
色々教えていただきありがとうございました。
また次回もよろしくお願いいたします
No.2
- 回答日時:
シートタブを右クリックして「コードの表示」を選択すると、VBAの画面が出るので、その画面の右側に以下のマクロをコピーして貼り付けてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = xlColorIndexNone
Cancel = True
End Sub
貼り付けたらVBAの画面は閉じてかまいません。
これで、色をついているセルを(色のついてないせるも同じですが)ダブルクリックしすると、セルが無色になります。
普通はダブルクリックをしたらセルが入力状態になりますが、このマクロでは入力状態にしないようにしています。
ダブルクリックで入力状態にしたい場合は、
Cancel = True
の行を削除してください。
この回答への補足
説明不足ですいません・・・
現状で下記のようなVBAを組んでいるのですが、それの中に組み込みたいのです。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng As Range, myRng As Range
Dim RngA As Range, myRngA As Range
Set Rng = Range("H7:K7")
Set myRng = Intersect(Target, Rng)
If myRng Is Nothing Then
Set RngA = Range("E3:E6")
Set myRngA = Intersect(Target, RngA)
If myRngA Is Nothing Then Exit Sub
RngA.Interior.ColorIndex = xlColorIndexNone
myRngA.Interior.ColorIndex = 46
Else
myRng.Interior.ColorIndex = 37
End If
Cancel = True
End Sub
この状態からH7~K7の色が付いてしまうと消えないのでダブルクリックで消したいのです よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Excel(エクセル) Excel アクティブセルのみ条件付き書式の色を他の色にしたい。 4 2022/06/11 22:19
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
- Excel(エクセル) こんなことできますか?例えば、sheetに貼り付けた図形のタイトルを、セルA1の文字で表示する。 5 2022/04/22 15:25
- Visual Basic(VBA) VBAについて教えてください。 Excelで セルのB6~BG24でダブルクリックすると ダブルクリ 1 2022/06/02 17:07
- Visual Basic(VBA) 複数指定セルの可視セルのみを別シートに転記するVBAについて 2 2022/05/27 21:19
- Excel(エクセル) エクセルで書式設定とフィルタの組み合わせでうまく行かないのですが 4 2022/10/07 10:02
- Visual Basic(VBA) VBAについて教えてください 4 2022/11/10 12:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】IF関数 Aまたは...
-
対象セル内(複数)が埋まった...
-
貼り付けで複数セルに貼り付けたい
-
エクセルで指定したセルのどれ...
-
セルをクリック⇒そのセルに入力...
-
EXCEL VBA セルに既に入...
-
エクセル 足して割る
-
excelのCOUNTIF関数で、『範囲=...
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
エクセルの一つのセルに複数の...
-
エクセルで作成したカレンダー...
-
エクセル オートフィルタで絞...
-
【Excel】 セルの色での判断は...
-
エクセルでオブジェクトを常に...
-
excelの特定のセルの隣のセル指...
-
エクセルのセルの枠を超えて文...
-
Excel2003 の『コメント』の編...
-
【Excel】特定の文字から文字ま...
-
(Excel)数字記入セルの数値の後...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
Excelで数式内の文字色を一部だ...
-
【エクセル】IF関数 Aまたは...
-
Excelでのコメント表示位置
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
エクセル 足して割る
-
セルをクリック⇒そのセルに入力...
-
EXCEL VBA セルに既に入...
-
excelのCOUNTIF関数で、『範囲=...
-
【Excel】 セルの色での判断は...
-
エクセルの一つのセルに複数の...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
Excelで、「特定のセル」に入力...
-
Excel2003 の『コメント』の編...
-
Excelで教えてください。 バー...
-
複数のセルのいずれかに数字が...
-
(Excel)数字記入セルの数値の後...
-
Excelで住所を2つ(町名迄と番...
おすすめ情報