Ｐａｇｅ 384 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼選択範囲の行に色をつけたい tomu 02/11/21(木) 18:12 ┣Re:選択範囲の行に色をつけたい りん 02/11/21(木) 22:58 ┗Re:選択範囲の行に色をつけたい tomu 02/11/22(金) 13:48 ┗Re:選択範囲の行に色をつけたい りん 02/11/24(日) 22:09 ─────────────────────────────────────── ■題名 ： 選択範囲の行に色をつけたい ■名前 ： tomu ■日付 ： 02/11/21(木) 18:12 -------------------------------------------------------------------------
| 下記のコードをシートに貼り付けて任意のセルをクリックすると 行全体に色がつきます。次のセルをクリックすると他のセルに設定している 色が全てクリアされます。他のセルに関係なく動作さすことができません だれか、教えてください Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Worksheets(1).UsedRange .Cells.Interior.ColorIndex = xlNone End With ActiveCell.EntireRow.Columns("A:BX").Interior.ColorIndex = 5 End Sub |
| tomu さん、こんばんわ。 >下記のコードをシートに貼り付けて任意のセルをクリックすると >行全体に色がつきます。次のセルをクリックすると他のセルに設定している >色が全てクリアされます。他のセルに関係なく動作さすことができません >だれか、教えてください ？ >With Worksheets(1).UsedRange >.Cells.Interior.ColorIndex = xlNone >End With ↑ ここで消してるからですよね。この３行を削ればいいのでは？ |
| りんさん、説明不足ですみません単に行に色をつけるのではなく、広い表の行を確認するための定規のようなものです。仮にB4をクリックするとその行全体に色がつくまた、F15をクリックするとB4は、元に戻りF15の行に色がつく 現在表現動きもできていますが、セルを移動すると表全体の色がきえてしましまいます。設定している各セルの書式に関係なく色をつけることができません 方法を教えてください |
| tomu さん、こんばんわ。 >仮にB4をクリックするとその行全体に色がつくまた、F15をクリックするとB4は、元に戻りF15の行に色がつく >現在表現動きもできていますが、セルを移動すると表全体の色がきえてしましまいます。設定している各セルの書式に関係なく色をつけることができません >方法を教えてください 質問の意味がよくわかりません（定規の意味はわかりますけど）。 表にもともと色が設定してあって、そのセルから移動したら白ではなくその色に戻したいということでしょうか？ もしも、そうならその情報をどこかに保存しておく必要がありますよ。 |