[[20190519153637]]　『選択範囲内の背景色をクリアしたい』（Taka）　ページの最後に飛ぶ

『選択範囲内の背景色をクリアしたい』（Taka）

初歩的な質問かもしれませんが、教えて頂きたいです。
タイトルの通りですが、選択範囲内の背景色をクリア（白色ではなく、塗りつぶしなしの状態）するための、VBAを組みたいです。
どなたか、よろしくお願い致します。

＜使用 Excel：Excel2010、使用 OS：unknown ＞

え～と、たしか、インテリアーカラーインデックスにゼロ
を設定すれば良かったのでは無いかと思います。
（隠居じーさん） 2019/05/19(日) 15:45

 Option Explicit
 Sub One_Instance()
     With Worksheets("Sheet1")
          .UsedRange.Interior.ColorIndex = 0
     End With
 End Sub
（隠居じーさん） 2019/05/19(日) 15:50

 横から失礼します。

 参考ＨＰです。

 背景色
https://www.239-programing.com/excel-vba/basic/basic067.html

 フォント
https://www.239-programing.com/excel-vba/basic/basic065.html

 背景は無し、フォントは自動、という感じです。
（ＯＫ） 2019/05/19(日) 15:59

 >初歩的な質問かもしれませんが
 >VBAを組みたいです。

 そう思っているなら、何でマクロ記録しないの？？？？
（BJ） 2019/05/19(日) 16:04

https://docs.microsoft.com/ja-jp/office/vba/api/excel.xlcolorindex

xlColorIndexAutomatic -4105 自動設定
xlColorIndexNone -4142 色なし

ＯＫさん、もご案内の　　。。。↑　が正解みたいですね。
zeroでも消えてくれますが。。。？　＾＾：

m(_ _)m

（隠居じーさん） 2019/05/19(日) 16:23

皆さんありがとうございます。
隠居じーさん様、お陰様で背景色はクリアされましたが、シート全体が対象となってしまいます。クリアしたい選択範囲をドラックし、マクロを実行することで背景色をクリアする方法はありますか？
（Taka） 2019/05/19(日) 16:35

上記URLも参考にさせていただき、できました。
ありがとうございました！
（Taka） 2019/05/19(日) 17:20

＞＞範囲をドラックし、マクロを実行することで背景色をクリアする方法はありますか？
はい。
あります。
わたしならアプリケーションインプットボックスを使い、範囲を取得、
取得した範囲を
.UsedRange.Interior.ColorIndex = xlColorIndexNone
の
.UsedRangeと取り換えればＯＫかと。

（隠居じーさん） 2019/05/19(日) 17:38

 私なら
 >ActiveWindow.RangeSelection.Interior.ColorIndex=xlColorIndexNone
 を使います。

　※　私も　「マクロ記録」をお勧めします。
（チオチモリン） 2019/05/19(日) 18:26

 すでにスマートな方法がご案内されており、汗顔の至りです。かなり
ぎょうぎょうしい感じになってしまいましたが。＾＾；
こんな方法もあるぐらいにご理解いただくとして。
Option Explicit
Sub One_Instance()
    Dim rr As Range
    On Error GoTo ERR01
    Set rr = Application.InputBox("背景色をリセットする範囲を選択してください", "範囲選択", , , , , , 8)
    With Worksheets("Sheet1")
         rr.Interior.ColorIndex = xlColorIndexNone
    End With
    Exit Sub
ERR01:
    If Err.Number = 424 Then
        On Error GoTo 0
        Exit Sub
    Else
        MsgBox "エラーです。 " & Err.Number
        Set rr = Nothing
        On Error GoTo 0
    End If
End Sub
（隠居じーさん） 2019/05/19(日) 18:42

皆さん、ご親切にありがとうございました。
色々な方法があることに驚きです。

また、今後ともよろしくお願い致します。
（Taka） 2019/05/20(月) 06:37

コメント返信：

[ 一覧(最新更新順) ]

[[20190519153637]] 『選択範囲内の背景色をクリアしたい』（Taka） ページの最後に飛ぶ

[[20190519153637]]　『選択範囲内の背景色をクリアしたい』（Taka）　ページの最後に飛ぶ