[[20080123201347]] 『アクティブセル』(あや) >>BOT

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

 

『アクティブセル』(あや)

 初心者です。宜しくお願い致します^^

 ある列のアクティブセルを選んだ時にその行が
 行番号をクリックした状態のようになる(水色の網掛けのような^^;)
 方法はありますか?

 宜しくお願い致します^^;


 こちらが参考になりそうですね^^
 
[[20030910025935]]『カーソルのある行・列を目立たせたい』(Achilley) 
 
 (キリキ)(〃⌒o⌒)b

 19:40頃消されていました。
 なぜか消されてしまっていたので復元しました。
 何か問題でもあったのでしょうか?
 
 (キリキ)(〃⌒o⌒)b 20:15頃復元


 キリキさま^^有難うございます♪
 削除は私が何か押し間違えたのでしょうか???
 よく判りません><;

 『カーソルのある行・列を目立たせたい』(Achilley)
 で、ほとんど解決しました♪

 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

 上記で検索をかけた場合・・・
 一度、検索画面の『閉じる』をクリックしないとラインが出ません><;
 単価表を作っているのですが、品番を検索します
 その時に品番の検索をかけたら、すぐにラインが出て欲しいのです(; ;)
 『閉じる』をクリックせずにラインが出る方法はないでしょうか???

 『カーソルのある行・列を目立たせたい』(Achilley)にある
 他の方法も試しましたが、検索をかけれない状態とかで駄目でした。

 宜しくお願い致します^^;

 2008/1/25/9:40復活  (to-risugari)

 書式を設定したいセルを選択→条件付き書式で[数式が]=CELL("row")=ROW()を設定
シート名を右クリックしコード表示
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.ScreenUpdating = True
End Sub
↑をコピペ

 条件付き書式で、こんな事が出来るのですね・・・。

 ちなみに、列方向は
=CELL("col")=COLUMN()
 で出来るようです。

 (HANA)


 >削除は私が何か押し間違えたのでしょうか???
 
[返信・編集]で内容をクリアしてから投稿していませんか?
[返信・編集]は既存の書き込みの修正に使用します。
既存の書き込みへの返信は[コメント:]欄に書き込んで、
[コメント・プレビュー]ボタンでプレビュー。
プレビューで確認したら[ページの更新]ボタンクリック、と言う手順で。
(みやほりん)(-_∂)b

コメント返信:

[ 一覧(最新更新順) ]


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