[[20071019145736]]　『セル』（ウーマン）　ページの最後に飛ぶ

『セル』（ウーマン）
エクセルでセルの選択している行、列を十字に色付けさせるのはどうすればいいのでしょうか？選択しているセルだけです。セルの位置を変えれば、消えるということです。無知ですみません。

 こんな事をご所望でッか？
 ＼Sheet1／を右クリックしてコードを選択
 そこへ下のコードを貼り付けます。
 　　　　　　　（弥太郎）
 '---------------
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Target.EntireRow.Interior.ColorIndex = 6
    Target.EntireColumn.Interior.ColorIndex = 6
 End Sub

 ししょ～としょ～とつ。

 シートモジュールに下記コードを貼り付けます。(ROUGE)
'----
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = Range("B2:G20")   '<--ご希望のセル番地に書き換えてください。
    rng.Interior.ColorIndex = xlNone
    If Intersect(rng, Target) Is Nothing Then Exit Sub
    With Intersect(rng, Target)
        Intersect(.EntireColumn, rng).Interior.ColorIndex = 35
        Intersect(.EntireRow, rng).Interior.ColorIndex = 36
        .Cells.Interior.ColorIndex = 38
    End With
End Sub

 おやまぁ　せんぱいさん。
 本日はねじりハチマキでフル回転でんなぁ。＾＾
 　　　　（弥太郎）

 最近サボっていたので、取り戻していますｗ(ROUGE)

おじゃましますよ。

むかし、それが実用的ではないということでいろいろやったなぁ～　と思い出に
浸ってましたｗ

[[20030313092225]]『選択中のセルの色をかえるには』（ケン）
[[20030910025935]]『カーソルのある行・列を目立たせたい』（Achilley）

で、最終バージョンはこれです。

[[20040522182517]]『右クリックメニューが出ません』（kobi）

（ramrun）

 これはまた親分さん。
 随分お見限りやおまへんか。＾＾
 　　　　　（弥太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20071019145736]] 『セル』（ウーマン） ページの最後に飛ぶ

[[20071019145736]]　『セル』（ウーマン）　ページの最後に飛ぶ