子程序格式細胞

我試圖單元格的格式在Excel子程序格式細胞

以下是我的代碼有：

Range("A1:F1").Select 
Selection.Font.Bold = True 
With Selection.Interior 
    .Pattern = xlSolid 
    .PatternColorIndex = xlAutomatic 
    .Color = 65535 
    .TintAndShade = 0 
    .PatternTintAndShade = 0 
End With

我需要重複用於不同範圍的格式化步驟多次，我可以調用子程序呢？

來源

2014-02-28 user3324344

我可以給你一個小提示：使用此代碼創建新subroutin（除了第一行 - 它應該是稍修改），每次你需要使用這段代碼時，調用這個新的sub並將期望的範圍傳遞給parameters。這個鏈接可以給你一個良好的開始：http://www.functionx.com/vbaexcel/functions/Lesson3.htm –

感謝您的方向 – user3324344

這裏的格式適用於在一個循環的一些範圍的一種方式：

Sub dural() 
    Dim r As Range 
    ary = Array(Range("A1:Z1"), Range("A3:Z3"), Range("A7:Z7")) 
    For i = LBound(ary) To UBound(ary) 
     Call FFormat(ary(i)) 
    Next 
End Sub 

Sub FFormat(rIn As Variant) 
    rIn.Font.Bold = True 
    With rIn.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .Color = 65535 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
End Sub

來源

2014-02-28 20:21:50

子程序格式細胞

回答

相關問題