エクセル2003にて質問です。
ダブルクリックをすると、その行のAからHのセル
(例えば1Bでダブルクリックすると1Aから1Hまで、3Hでダブルクリックすると3Aから3Hまで)が、一番薄い灰色に塗られる
という設定って可能でしょうか???
無理なら、?Aでダブルクリックすると?A~?Hでも構いません。
よくA~Hまでの横の行に対して灰色やピンクなどで色付けするのですが横スクロールを伴いますし、他のセルも間違って選択してしまう等で困っています。
また、もう一度ダブルクリックで元にもどるって機能もあれば最高です。
誰かわかる方おしえてください。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
標準モジュールではなくシートのモジュールにコピペしてみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Long
If Target.Columns >= 8 Then Exit Sub
r = Target.Row
If Range(Cells(r, "A"), Cells(r, "H")).Interior.ColorIndex = xlNone Then
Range(Cells(r, "A"), Cells(r, "H")).Interior.ColorIndex = 15
Else
Range(Cells(r, "A"), Cells(r, "H")).Interior.ColorIndex = xlNone
End If
Cancel = True
End Sub
No.1
- 回答日時:
こんな感じでしょうか?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Set r = Intersect(Target, Range("A:H"))
If r Is Nothing Then Exit Sub
With Range("A" & r.Row).Resize(, 8).Interior
If .ColorIndex = xlNone Then
.ColorIndex = 15
.Pattern = xlSolid
ElseIf .ColorIndex = 15 Then
.ColorIndex = xlNone
End If
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) エクセルマクロ セルをクリックするたびに記号を入力 1 2022/10/13 19:47
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBAについて教えてください。 Excelで セルのB6~BG24でダブルクリックすると ダブルクリ 1 2022/06/02 17:07
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) エクセルでセルに数式を入力した状態で、数式バーをクリックすると添付資料のように 「数式に関連するセル 2 2022/11/25 19:36
- Excel(エクセル) Excelの文字列を転記したいのですが。 2 2022/09/30 12:09
- Excel(エクセル) エクセル関数のXlookupのフィルハンドル機能(類した機能でも可)を知りたいです。 3 2022/09/20 20:02
- Excel(エクセル) ExcelVBAで自動調整できますか? 3 2023/08/25 22:59
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAで複数セルの色を変更する方法
Excel(エクセル)
-
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
VBA ダブルクリックするたびにセルの色が順番に変わる
Excel(エクセル)
-
-
4
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
5
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
6
ダブルクリックでセルに色をつける方法
Excel(エクセル)
-
7
エクセル 特定の文字を入れると他のセルの色が変わる
Excel(エクセル)
-
8
【VBA】クリックする毎にセル色が変わる
Excel(エクセル)
-
9
同じシート内にイベントプロシージャが二つある時
Excel(エクセル)
-
10
複数条件でのダブルクリック
Excel(エクセル)
-
11
エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで数式内の文字色を一部だ...
-
【エクセル】IF関数 Aまたは...
-
Excelでのコメント表示位置
-
エクセルの一つのセルに複数の...
-
エクセルで指定したセルのどれ...
-
セルをクリック⇒そのセルに入力...
-
投資番組の専門家は どういうと...
-
エクセルのセルの枠を超えて文...
-
エクセル 足して割る
-
貼り付けで複数セルに貼り付けたい
-
(Excel)数字記入セルの数値の後...
-
対象セル内(複数)が埋まった...
-
Excel2003 の『コメント』の編...
-
【Excel】 セルの色での判断は...
-
EXCEL VBA セルに既に入...
-
エクセル オートフィルタで絞...
-
セルの高さ(行高)を求めるには?
-
複数のセルのいずれかに数字が...
-
LARGE関数 飛び飛びの範囲を指定
-
Excelで住所を2つ(町名迄と番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル 足して割る
-
【エクセル】IF関数 Aまたは...
-
エクセルで指定したセルのどれ...
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
セルをクリック⇒そのセルに入力...
-
【Excel】 セルの色での判断は...
-
エクセルの一つのセルに複数の...
-
EXCEL VBA セルに既に入...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
excelのCOUNTIF関数で、『範囲=...
-
(Excel)数字記入セルの数値の後...
-
枠に収まらない文字を非表示に...
-
Excel2003 の『コメント』の編...
-
Excel 例A(1+9) のように番地の...
-
複数のセルのいずれかに数字が...
おすすめ情報