[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『選択したセル全てに背景色をつけたい』(お願いします!)
ctrlを押しながらセルを複数選択し、背景色をつけたいときに、 一般的にはリボンの塗りつぶしから色を選択して色を付けます。
ここで質問なのですが、vbaのマクロボタンを押したときに同じような 動作をしてほしいのですが、どのようなコードを書けばよろしいでしょうか。 選択するセルは毎回違います。
お手数ですが、ご回答いただきますようお願いいたします。
< 使用 Excel:Excel2019、使用 OS:Windows10 >
こんばんわ ^^ セレクション.エリアズをフォーイーチ で回せば良いとは思うのですが。 外していましたらお許しを。。。m(_ _)m (隠居Z) 2022/01/22(土) 19:20
Sub OneInstanceMain() Selection.Interior.ColorIndex = 5 End Sub
(隠居Z) 2022/01/22(土) 19:27
隠居Z さん こんばんは! お元気ですかぁ????わちきは元気です。v(=∩_∩=)v ところで証拠にもなく想像力Maxで書いてみましたよ。 Ctrlを押した時と同じように??? その手間を省きたいのでしょうか??? Ctrlキーを押したままの方が手軽だと思いますが、、SelectionChange を使って無理やり(笑) 標準モジュールに↓これを仕込んでおいて A1 に開始と入力されている間イベントが有効になります。
Sub 開始() Range("A1").Value = "開始" End Sub
Sub 終了() Range("A1").Value = "終了" End Sub
終了するときは、、、終了を押してからイベントを発生させると終了します。この辺は応用していただけると助かります。。。。
シートモジュールに↓ Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static r As Range If Me.Range("A1").Value = "終了" Then Set r = Nothing: Exit Sub If Me.Range("A1").Value = "開始" Then If r Is Nothing Then Set r = Target Set r = Union(r, Target) Application.EnableEvents = False r.Select Application.EnableEvents = True End If End Sub (SoulMan) 2022/01/22(土) 23:50
SoulManさん こんにちわ ^^ 昨日は寝ていました。(^◇^) わたしも元気にいたしております。 どんどん 選択されていきますね。。。← 乳酸菌みたい。。。(#^ ^#)v きっと、お願いします!さん のお役にたつことでせう。^^ でわでわ m(_ _)m (隠居Z) 2022/01/23(日) 13:32
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.