[[20220122185312]] 『選択したセル全てに背景色をつけたい』(お願いします!) >>BOT

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

 

『選択したセル全てに背景色をつけたい』(お願いします!)

 ctrlを押しながらセルを複数選択し、背景色をつけたいときに、
 一般的にはリボンの塗りつぶしから色を選択して色を付けます。

 ここで質問なのですが、vbaのマクロボタンを押したときに同じような
 動作をしてほしいのですが、どのようなコードを書けばよろしいでしょうか。
 選択するセルは毎回違います。

 お手数ですが、ご回答いただきますようお願いいたします。

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


 こんばんわ ^^
セレクション.エリアズをフォーイーチ
で回せば良いとは思うのですが。
外していましたらお許しを。。。m(_ _)m
(隠居Z) 2022/01/22(土) 19:20

済みませんセレクションだけでいけるよ〜ですね
m(__)m
(隠居Z) 2022/01/22(土) 19:24

 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.