[[20220122185312]]　『選択したセル全てに背景色をつけたい』（お願いします！）　ページの最後に飛ぶ

『選択したセル全てに背景色をつけたい』（お願いします！）

 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

コメント返信：

[ 一覧(最新更新順) ]

[[20220122185312]] 『選択したセル全てに背景色をつけたい』（お願いします！） ページの最後に飛ぶ

[[20220122185312]]　『選択したセル全てに背景色をつけたい』（お願いします！）　ページの最後に飛ぶ