[[20061213154142]] 『条件付き書式で、現在位置の行・列に色をつける』(doka) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『条件付き書式で、現在位置の行・列に色をつける』(doka)

何かの雑誌の付録で大きな表の行・列に色をつける

条件付き書式があったのですが、その付録が見つからなく

どんな式だったか覚えていません

どなたかご存じないでしょうか


 どの雑誌か、どんな表かなど具体的なことが書いてないと
 返答はつきにくいかと思います。

 その雑誌・付録を探すよりも例えば
 「A列の数値が500以上だったらセルの色を赤にしたい」など、
 dokaさんがやりたいことをご提示なさったほうが皆さんの助言が得られると思いますよ。

 (donadona)

現在自分がいる位置の列・行に色をつける方法です

入力セルが c3であれば

書式設定しているc列すべてとと3行のすべてに色をつけたい

(クロスカーソルみたいに)

つまり今いる行・列と一致する行列に色をつけたい

どこかに今いる行・列を表示できれば問題ないのだが


 「アクティブセルの列・行の色を変える」ということなら
 条件付書式じゃ無理でしょう。
 (seiya)


 シートモジュールにコピペです。Z1に行番号、Z2に列番号を表示します。
 これを使って、条件付書式で設定出来ます。
(純丸)(o^-')b
 
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("Z1").Value = Target.Row
    Range("Z2").Value = Target.Column
 End Sub

 衝突…☆ そのまま記入(>_<)

 「条件付書式」で色を付けてましたか?
 カーソル位置は、マクロとかじゃないと取得できないと思いますが…

[[20030910025935]]『カーソルのある行・列を目立たせたい』(Achilley)

 (Ohagi)

 ↑でOhagiさんが紹介されてる
 『カーソルのある行・列を目立たせたい』の中で (KAZU)さんが書かれた

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Then
        Exit Sub
     End If
    Cells.Interior.ColorIndex = xlNone
    Columns(Target.Column).Interior.ColorIndex = 34
    Rows(Target.Row).Interior.ColorIndex = 35
    Selection.Interior.ColorIndex = 36
 End Sub

 私は、以前からこれをよく使っていて、超オススメです。大変重宝しています。
   (SS)


 ↑元の表に色が付いてなければベストですね。
(純丸)(o^-')b

ありがとうございました。
参考にしてみます。

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.