|
VBA過程代碼118：在復制單元格區域時，如何僅復制單元格區域的數值 Sub mynz() Sheets('6').Range('A1').CurrentRegion.Copy Sheets('11').Range('A1').PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub 代碼的解析說明：上述過程復制工作表Sheets('6')中A1單元格的當前區域的數值到工作表Sheets('11').的A1單元格所在區域中。 VBA過程代碼119：使用直接賦值的方法選擇性粘貼數值 Sub mynz() With Sheets('6').Range('A1').CurrentRegion Sheets('11').Range('A1').Resize(.Rows.Count, .Columns.Count).Value = .Value End With End Sub 代碼的解析說明：上述過程復制工作表Sheets('6')中A1單元格的當前區域的數值到工作表Sheets('11').的A1單元格所在區域中。 在對單元格區域直接賦值時，應保證源區域大小與目標區域的大小一致，如果源區域為動態的單元格區域，可使用Resize方法確定目標區域。 VBA過程代碼120：在單元格區操作時，如何對字體格式進行設置 Sub mynz() Sheets('12').Select With Range('A1').Font .Name = '華文彩云' .FontStyle = 'Bold' .Size = 28 .ColorIndex = 3 .Underline = 2 End With End Sub 代碼的解析說明：上面過程可以實現對單元格A1的字體格式進行設置。其中代碼.Name設置字體為'華文彩云'，應用于Font對象的Name屬性返回或設置對象的名稱。 代碼.FontStyle設置字體為加粗，FontStyle屬性返回或設置字體樣式。設置為'Bold' 加粗字體，設置為'Italic'傾斜字體，也可以設置成'Bold Italic'。代碼.Size設置字體的大小為18磅，Size屬性返回或設置字體大小。代碼.ColorIndex設置字體的顏色為紅色，應用于Font對象的ColorIndex屬性返回或設置字體的顏色，該顏色可指定為當前調色板中顏色的編號.看下面的編碼方案： 代碼.Underline設置字體為單下劃線類型，Underline屬性返回或設置應用于字體的下劃線類型，可為下面的XlUnderlineStyle常量之一。 xlUnderlineStyleNone -4142 無 xlUnderlineStyleSingle 2 單下劃線 xlUnderlineStyleDouble -4119 雙下劃線 xlUnderlineStyleSingleAccounting 4 會計用單下劃線 xlUnderlineStyleDoubleAccounting 5 會計用雙下劃線 越簡單的事物往往越容易理解，簡單的過程組合起來就是一個復雜的過程，我們要先認真掌握這些簡單的過程，才能在可以為我們復雜的工程服務。 |
|
|
