No.4ベストアンサー
- 回答日時:
ThisWorkbookのイベントでやると、どのシートでも実現できる。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells.Interior.ColorIndex = xlNone
Dim i, j As Long
i = Target.Row
j = Target.Column
Rows(i).Interior.ColorIndex = 6
Columns(j).Interior.ColorIndex = 6
End Sub
既存の他セルの色設定も消えてしまう。
直前の列と行に限るコードは組めるが、それでも解決にならない。
反応性もパソコンによってはもうひとつの場合もあろう。
だからVBAでのユーザーのセルの色設定では力不足でしょう。
だから、とりあえずあきらめてください。
No.5
- 回答日時:
ん? マクロとか以前に,条件付き書式を使った事がありませんか。
実際にエクセルを起動して,ちゃんと自分の手を動かして試しながら次の通りに進めてみてください。
>表範囲を選ぶ
あなたがご質問された,選択したセルの行と列に色が付いて欲しいセル範囲を選ぶことです。
>条件付き書式
ホームタブにある「条件付き書式▼」をプルダウンして使い始めることです
>数式を使用して
セルの強調表示ルールからその他のルールを開始すると「数式を使用して書式設定するセルを決定」という選択肢があるので,それを選ぶことです
>=OR(CELL("Col")=COLUMN(),CELL("Row")=ROW())
>と設定し
ダイアログの数式記入欄に,この通りに数式を記入することです。
>選択された行列の色を書式設定しておく
書式ボタンをクリックして,条件付き書式で塗りつぶしの色を設定することです。
No.3
- 回答日時:
時にある質問ですね。
私も検索のシートにはよく使っています。
元々のシートに色を付けていたり条件付き書式を設定したりした場合には
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
With Target
Range(.EntireColumn.Address & "," & .EntireRow.Address).Select
.Activate
End With
Application.EnableEvents = True
End Sub
のコードしかないと思います。
但し、色は自由には選べませんが。
複数のセルを選択した場合でもOKです。
No.2
- 回答日時:
幾つかの方法が提唱されてきましたが,セルに直接色を塗ってしまうと「目的があって色塗りしたセル」を塗り替えてしまうなどの不都合があります。
現在では,下記の手順がもっともクールだと考えられています。
手順:
表範囲を選ぶ
条件付き書式で「数式を使用して」を使い
=OR(CELL("Col")=COLUMN(),CELL("Row")=ROW())
と設定し,選択された行列の色を書式設定しておく
シート名タブを右クリックしてコードの表示を選び
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub
と登録しておく。
早速のご回答ありがとうございます。
「表範囲を選ぶ
条件付き書式で「数式を使用して」を使い
=OR(CELL("Col")=COLUMN(),CELL("Row")=ROW())
と設定し,選択された行列の色を書式設定しておく」
上記のやり方がわかりません。
No.1
- 回答日時:
こんばんは!
一例です。
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてみてください。
色は「薄い黄色」にしてみました。
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
Cells.Interior.ColorIndex = xlNone
Dim i, j As Long
i = Target.Row
j = Target.Column
Rows(i).Interior.ColorIndex = 36 '←色は好みによって変更してください。
Columns(j).Interior.ColorIndex = 36
End Sub 'この行まで
尚、複数セルを選択した場合でも選択セルの左上の列・行のみ色が付きます。m(__)m
早速のご回答ありがとうございます。
このコードだと、1つのシートのみ対応ですよね?
複数のシートに対応するには、どうすればいいですか?
さらには、このコードを利用して、永久的に使うにはどうすればいいですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) エクセルVBA 任意のセルの選択時、指定のセルの値を表示 1 2023/04/21 08:13
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) 指定値をマクロで検索&シート移動 2 2022/04/27 23:29
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) なぜか正常にマクロが動いていない? 1 2022/11/03 07:56
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
E列のセルに数値が入れば(空白...
-
条件付書式で「=#N/A」に色を付...
-
Excel にて条件付き書式の色に...
-
条件付き書式で、結果が1行ずれる
-
Excelの条件付き書式にて空白セ...
-
エクセルの枠の中の文字が青文...
-
セル結合させてるときの 条件...
-
Excelについて あるセルに文字...
-
エクセル 条件付き書式で色をつ...
-
エクセル内で複数の文字(50個ぐ...
-
エクセルで特定の数字等を表示...
-
Excel 条件付書式 今日より3日...
-
エクセルでシート参照する場合...
-
Excelで2つのファイルを比較し...
-
エクエルで隣のセルの文字が赤...
-
エクセルで1以上は全て1にするには
-
エクセルで一定期間が経過した...
-
VBA初心者です。 VBAで行単位で...
-
エクセル:文字色を認識して○×...
-
スプレッドシートのセルに連続...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
E列のセルに数値が入れば(空白...
-
Excel にて条件付き書式の色に...
-
条件付書式で「=#N/A」に色を付...
-
条件付き書式で、結果が1行ずれる
-
エクセルの枠の中の文字が青文...
-
エクセルで特定の数字等を表示...
-
Excelの条件付き書式にて空白セ...
-
エクセル 条件付き書式で色をつ...
-
条件付き書式で太罫線を引く方法
-
エクセル内で複数の文字(50個ぐ...
-
エクエルで隣のセルの文字が赤...
-
セル結合させてるときの 条件...
-
Excelについて あるセルに文字...
-
エクセルで一定期間が経過した...
-
条件付き書式を教えてください
-
Excelで2つのファイルを比較し...
-
エクセルで1以上は全て1にするには
-
エクセルでカーソルのある行を...
-
エクセルで日付を入力したらカ...
-
【エクセル】今日の日付に赤枠...
おすすめ情報