[[20080123201347]]　『アクティブセル』（あや）　ページの最後に飛ぶ

『アクティブセル』（あや）

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

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

 宜しくお願い致します＾＾；

 こちらが参考になりそうですね＾＾
　
[[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

コメント返信：

[ 一覧(最新更新順) ]

[[20080123201347]] 『アクティブセル』（あや） ページの最後に飛ぶ

[[20080123201347]]　『アクティブセル』（あや）　ページの最後に飛ぶ