塗りつぶし枠と枠線なしのマクロ

Question

すべてのセルの塗りつぶしを塗りつぶしにしないで、すべてのセルに枠線がないようにするExcelマクロを探しています。ワークブックに複数のスプレッドシートがあり、すべてのスプレッドシートに適用したいと思っています。私はこれを行う何かを探してインターネットを見てきましたが、短くなりました。

Answer 1

これはそれを行う必要があります。どのサブにも追加すればいいですよ。

Dim wsCount As Integer 
Dim i As Integer 

wsCount = ActiveWorkbook.Worksheets.Count 

For i = 1 to wsCount 
    Worksheets(i).Activate 
    Cells.Select 
    With Selection.Interior 
     .Pattern = xlNone 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone 
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone 
    Selection.Borders(xlEdgeTop).LineStyle = xlNone 
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone 
    Selection.Borders(xlEdgeRight).LineStyle = xlNone 
    Selection.Borders(xlInsideVertical).LineStyle = xlNone 
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone 
Next i