[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セルをドラッグして範囲を決めると行番号の色が変わる』(YUUKO)
セルをドラッグして範囲を決めると行番号と列(A,B,C)の色が変わりますが、
任意のセルをドラッグして(例えば B3 からD5までをドラッグして範囲を
選択したとき、B1からD5のセルの色を変えたいです。
よろしくお願いいたします。
< 使用 Excel:Excel2010、使用 OS:Windows10 >
色を変えた後、違うセルを選択したら、
どうしたい?
また、
F10:H20を選択した時は?
C3を選択したときは?
C3:G10を選択したときは?
もっと詳しく説明したほうが良いと思います。
(まっつわん) 2018/05/08(火) 18:04
めんどくさかったんで選択されてる範囲の行列を色付けって形にしてます。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.