スポンサーリンク

選択範囲の罫線とセルの色を設定するマクロ~データ集計業務に即したマクロVBA

マクロVBA
この記事は約4分で読めます。

罫線を引きたいけど、xlEdgeTopなどなどのコードは忘れてしまいがちなので、覚えやすい名前に変更。
また、同時に色も付けられる設定にしています。

スポンサーリンク

選択範囲の罫線とセルの色の設定

Public Sub BOR_THIN(FROM_Y, FROM_X, TO_Y, TO_X, Optional BS = 0, Optional CLR = 0)

(FROM_Y, FROM_X, TO_Y, TO_X)で範囲の指定をしてください。
 RANGE(CELLS(1,1),CELLS(2,2))→(1,1,2,2)です。

Optional BS = 0 ,で罫線の種類を選択できます。
 ”UE”,”SHITA”,”MIGI”,”HIDARI”,”ALL”,”JOUGE”何もなしだと外側を囲います。

Optional CLR = 0 ,で色を選択してください。
”RED”, ”YELLOW”, “BLUE”,”GREEN”,”HADA”,”MOMO”,から選べます。何もなしだと塗りつぶしなしです。

Sub TEST()
  Call BOR_THIN(1, 1, 3, 4, "SITA", "RED")
end Sub

Public Sub BOR_THIN(FROM_Y, FROM_X, TO_Y, TO_X, Optional BS = 0, Optional CLR = 0)

    Range(Cells(FROM_Y, FROM_X), Cells(TO_Y, TO_X)).Select
 
    If BS = "ALL" Then
    
        Selection.Borders.Weight = xlThin
    
    ElseIf BS = "UE" Then
    
        Selection.Borders(xlEdgeTop).Weight = xlThin
    
    ElseIf BS = "SITA" Then
    
        Selection.Borders(xlEdgeBottom).Weight = xlThin
    
    ElseIf BS = "HIDARI" Then
    
        Selection.Borders(xlEdgeLeft).Weight = xlThin
        
    ElseIf BS = "JOUGE" Then

        Selection.Borders(xlEdgeRight).Weight = xlThin

    ElseIf BS = "MIGI" Then

        Selection.Borders(xlEdgeRight).Weight = xlThin
            
    Else
    
        Selection.BorderAround Weight:=xlThin
    
    End If

    
    If CLR = "RED" Then
    
        Selection.Interior.ColorIndex = 3
    
    ElseIf CLR = "YELLOW" Then
    
        Selection.Interior.ColorIndex = 6

    ElseIf CLR = "BLUE" Then
    
        Selection.Interior.ColorIndex = 34
    
    ElseIf CLR = "GREEN" Then
    
        Selection.Interior.ColorIndex = 35

    ElseIf CLR = "HADA" Then
    
        Selection.Interior.Color = 13434879
    
    ElseIf CLR = "MOMO" Then
    
        Selection.Interior.Color = 16764159    

    End If

End Sub

コメント欄

タイトルとURLをコピーしました