[[20180508152514]] 『セルをドラッグして範囲を決めると行番号の色が変』(YUUKO) ページの最後に飛ぶ

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

 

『セルをドラッグして範囲を決めると行番号の色が変わる』(YUUKO)

セルをドラッグして範囲を決めると行番号と列(A,B,C)の色が変わりますが、
任意のセルをドラッグして(例えば B3 からD5までをドラッグして範囲を
選択したとき、B1からD5のセルの色を変えたいです。
よろしくお願いいたします。

< 使用 Excel:Excel2010、使用 OS:Windows10 >


色を変える目的はなんでしょう?
強制的に選択範囲を変える?
本当にセルの塗りつぶしの色を変える?

色を変えた後、違うセルを選択したら、
どうしたい?

また、
F10:H20を選択した時は?
C3を選択したときは?
C3:G10を選択したときは?

もっと詳しく説明したほうが良いと思います。
(まっつわん) 2018/05/08(火) 18:04


任意のセルをドラッグして、一時的にどの列の範囲をドラッグしているか視覚的に見たいのですが
エクセルはセルをドラッグすると列と行の色は変わってくれるのですが、選択範囲と列の番号(A,B,C.....)
までの、距離が離れていて、見ずらいので、近くの行を一時的(エクセルのように)色を付けたいです
色を変えた後、違うセルを選択したら初めの色を変えた所は消えるようにしたいです。
よろしくお願いいたします。
(YUUKO) 2018/05/09(水) 09:28

追加コメントを拝見してもわからないんですが、
>エクセルは〜
>エクセルのように〜
って仰っているので、もしかしてエクセル以外のことを聞いていらっしゃるんでしょうか
(もこな2) 2018/05/09(水) 09:40

いいえ、エクセルの仕様のようにとゆう意味です。エクセルのことです。
(YUUKO) 2018/05/09(水) 09:46

エクセルで任意のセルをドラッグすると行番号と列番号の色が変わりますよね。
列番号の色が変わるみたいに指定した行のセルの色を一時的に変えたいのです。
(YUUKO) 2018/05/09(水) 09:51

 めんどくさかったんで選択されてる範囲の行列を色付けって形にしてます。ThisWorkbookに張り付けて下さい。
 対象になったセルが色付けされてた場合とか指定されてないんで考えてません。
 目が不自由な方は大変ですね。

 Dim rng As Range

 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

 If Not rng Is Nothing Then

   rng.EntireColumn.Interior.Pattern = xlNone
   rng.EntireRow.Interior.Pattern = xlNone

 End If

 Target.EntireColumn.Interior.Color = 65535
 Target.EntireRow.Interior.Color = 65535
 Set rng = Target

 End Sub

 Private Sub Workbook_BeforeClose(Cancel As Boolean)

 If Not rng Is Nothing Then

   rng.EntireColumn.Interior.Pattern = xlNone
   rng.EntireRow.Interior.Pattern = xlNone
   Me.Save

 End If

 End Sub
(GX) 2018/05/09(水) 10:35

コメント返信:

[ 一覧(最新更新順) ]


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