excel中使用vba創建一個預設格式的工作表。

　　1、首先我們打開一個工作樣表作為例子。

　　2、我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

　　Sub CreateNewWorkbook2()

　　Dim wb As Workbook

　　Dim ws As Worksheet

　　Dim i As Long

　　MsgBox "將創建一個新工作簿，并預設工作表格式."

　　Set wb = Workbooks.Add

　　Set ws = wb.Sheets(1)

　　ws.Name = "產品匯總表"

　　ws.Cells(1， 1) = "序號"

　　ws.Cells(1， 2) = "產品名稱"

　　ws.Cells(1， 3) = "產品數量"

　　For i = 2 To 10

　　ws.Cells(i， 1) = i - 1

　　Next i

　　End Sub

　　3、運行這段代碼，會創建一個新的工作薄，并設置工作薄的基本樣式，工作薄中的工作表1例子

　　4、首先我們 定義了了兩個對象變量，分別是wb和ws 。 wb是創建的新的工作薄， 使用工作薄對象workbooks后的add方法新建。因為新建的工作薄有默認的三個工作表，所以可以直接定義使用set來定義ws為wb的第一個序列工作表。

　　5、這里我們使用單元格選擇代碼直接對單元格進行賦值。 ws.cells(1，1)選取的就是a1單元格 ，可以對其直接賦值字符串“序號”，一次類推。順序設置了產品名稱和產品數量。

　　6、接著使用for循環語句來簡寫了序列號，這里是個小技巧，大家可以在不斷的練習中學會這樣使用循環來優化代碼的方法。簡單的說，就是順序選擇了a列2-10行的單元格并將其賦值為1-10。

總結

以上是生活随笔為你收集整理的excel如何使用vba创建一个预设格式的工作表(Excel新文件)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。