Excel 2003中 - VBA通​​過每一個細胞都在一行中提供的屬性循環/格式化

Question

說我想要做的Excel的SS像這樣的第一行：

    .Rows("1:1").Select 
        With Selection.Borders(xlEdgeLeft) 
         .LineStyle = xlContinuous 
         .Weight = xlMedium 
         .ColorIndex = xlAutomatic 
        End With 
        With Selection.Borders(xlEdgeTop) 
         .LineStyle = xlContinuous 
         .Weight = xlMedium 
         .ColorIndex = xlAutomatic 
        End With 
        With Selection.Borders(xlEdgeBottom) 
         .LineStyle = xlContinuous 
         .Weight = xlMedium 
         .ColorIndex = xlAutomatic 
        End With 
        With Selection.Borders(xlEdgeRight) 
         .LineStyle = xlContinuous 
         .Weight = xlMedium 
         .ColorIndex = xlAutomatic 
        End With 

只是我想每個人的細胞有輪廓，不是全部選擇。我怎麼能說第1行的每個單元格，做上述想法

謝謝！

Answer 1

這很簡單：

Dim c As Range 
For Each c In ActiveSheet.Range("1:1") 
    c.Select 
    With Selection.Borders(xlEdgeLeft) 
     .LineStyle = xlContinuous 
     .Weight = xlMedium 
     .ColorIndex = xlAutomatic 
    End With 
Next 

但是這可能需要很長的時間，所以設定Application.ScreenUpdating到在你開始之前虛假！

Answer 2

還設置xlInsideHorizontal

錄製宏，結果是

Selection.Borders(xlDiagonalDown).LineStyle = xlNone 
Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
With Selection.Borders(xlEdgeLeft) 
    .LineStyle = xlContinuous 
    .ColorIndex = xlAutomatic 
    .TintAndShade = 0 
    .Weight = xlThin 
End With 
With Selection.Borders(xlEdgeTop) 
    .LineStyle = xlContinuous 
    .ColorIndex = xlAutomatic 
    .TintAndShade = 0 
    .Weight = xlThin 
End With 
With Selection.Borders(xlEdgeBottom) 
    .LineStyle = xlContinuous 
    .ColorIndex = xlAutomatic 
    .TintAndShade = 0 
    .Weight = xlThin 
End With 
With Selection.Borders(xlEdgeRight) 
    .LineStyle = xlContinuous 
    .ColorIndex = xlAutomatic 
    .TintAndShade = 0 
    .Weight = xlThin 
End With 
Selection.Borders(xlInsideVertical).LineStyle = xlNone 

'I think this is what you were missing 
With Selection.Borders(xlInsideHorizontal) 
    .LineStyle = xlContinuous 
    .ColorIndex = xlAutomatic 
    .TintAndShade = 0 
    .Weight = xlThin 
End With