[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セル』(ウーマン)
こんな事をご所望でッか? \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.