[[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

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

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

おじゃましますよ。

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

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

(ramrun)


 これはまた親分さん。
 随分お見限りやおまへんか。^^
      (弥太郎)

コメント返信:

[ 一覧(最新更新順) ]


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