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中怎么利用VBA制作一個登錄數據驗證窗口?

excel怎么利用vba實現批量套打快遞單批量打印單據?