Excelのこととか色々

マクロをどんな Excel ファイルにも実行できるように設定して、3秒かかる操作も1秒で完了。あといろいろ書いてみます・・・

【Excel/VBAのこと45】連続で選択したセルの範囲だけ操作する(空白セルに色付け)

   f:id:tuna-kichi:20200223230814p:plain

 

 

先日、資料を作成して、最終確認したらこんな風になっていました・・・

 

  色付け忘れ

空白セルを灰色の背景色に色を付けていったのですが、

列の一部をグループ化して、非表示になっているのに気が付きませんでした。

そのため、隠れていた空白セルは真っ白なまま・・・

 

一列全部とか、空白セルが連続しているとか、数個であれば修正も楽だったのですが、

飛び飛びで何十個もありました・・・

 

そこで、選択した、連続した範囲だけを対象にしたマクロを作成してみました。

今回は、空白セルだったら色を付けるマクロです。

**********************************************

マクロ

Sub 選択範囲_空白黄色()

    Dim LCell As Long   'Last Cell
    Dim i As Long
    
    LCell = Selection.Count '選択した範囲のセル数を数えます
    
    For i = 1 To LCell
        If Selection(i) = "" Then
            Selection(i).Interior.ColorIndex = 6            
        End If
    Next i

End Sub

------------------------------------------------------

Sub 選択範囲_空白灰色()

    Dim LCell As Long   'Last Cell
    Dim i As Long
    
    LCell = Selection.Count
    
    For i = 1 To LCell
        If Selection(i) = "" Then
            Selection(i).Interior.ColorIndex = 15        
        End If
    Next i

End Sub

------------------------------------------------------

Sub 選択範囲_空白塗りつぶしなし()

    Dim LCell As Long   'Last Cell
    Dim i As Long
    
    LCell = Selection.Count
    
    For i = 1 To LCell
        If Selection(i) = "" Then
            Selection(i).Interior.ColorIndex = xlAutomatic
        End If
    Next i

End Sub

------------------------------------------------------

Sub 選択範囲_空白ハイフン()

    Dim LCell As Long   'Last Cell
    Dim i As Long
    
    LCell = Selection.Count
    
    For i = 1 To LCell
        If Selection(i) = "" Then
            Selection(i) = "-"           
        End If
    Next i

End Sub

**********************************************

選択した範囲の左上のセルが1番になります。

選択した範囲のセル数を数えて、1番目のセルからループで回していけるので、

空白セルだったら指定の色を付ける、または、ハイフンを入力するってだけです。

 

そんなに難しくないですよね。

最初にも書きましたが、このマクロは

連続して選択したセルの範囲に動作します。

 

あとは、いつも通りこのマクロをリボンに登録して、

いつでも、どんなファイルにでも使えるようにしておきます。

 

  リボンに登録

私は、リボンに専用のタブを作成して、よく使う色を登録しました。

 

------------------------------------------------

 

 

個人用マクロブックについてはこちら

www.tuna-kichi.com

 

リボンに登録についてはこちら

www.tuna-kichi.com

 

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/

 

 

 

PVアクセスランキング にほんブログ村 Excelのこととか色々 - にほんブログ村 にほんブログ村 子育てブログ 幼稚園児育児へ にほんブログ村 英語ブログ 初心者英語へ にほんブログ村 IT技術ブログ VBAへ