excel怎么使用vba創(chuàng)建一個預(yù)設(shè)格式的工作表?
我要評論excel中使用vba創(chuàng)建一個預(yù)設(shè)格式的工作表
1、首先我們打開一個工作樣表作為例子。
2、我們使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：
Sub CreateNewWorkbook2()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long
MsgBox "將創(chuàng)建一個新工作簿,并預(yù)設(shè)工作表格式."
Set wb = Workbooks.Add
Set ws = wb.Sheets(1)
ws.Name = "產(chǎn)品匯總表"
ws.Cells(1, 1) = "序號"
ws.Cells(1, 2) = "產(chǎn)品名稱"
ws.Cells(1, 3) = "產(chǎn)品數(shù)量"
For i = 2 To 10
ws.Cells(i, 1) = i - 1
Next i
End Sub
3、運(yùn)行這段代碼，會創(chuàng)建一個新的工作薄，并設(shè)置工作薄的基本樣式，工作薄中的工作表1例子如圖。
4、首先我們定義了了兩個對象變量，分別是wb和ws。wb是創(chuàng)建的新的工作薄，使用工作薄對象workbooks后的add方法新建。因為新建的工作薄有默認(rèn)的三個工作表，所以可以直接定義使用set來定義ws為wb的第一個序列工作表。
5、這里我們使用單元格選擇代碼直接對單元格進(jìn)行賦值。ws.cells（1,1）選取的就是a1單元格，可以對其直接賦值字符串“序號”，一次類推。順序設(shè)置了產(chǎn)品名稱和產(chǎn)品數(shù)量。
6、接著使用for循環(huán)語句來簡寫了序列號，這里是個小技巧，大家可以在不斷的練習(xí)中學(xué)會這樣使用循環(huán)來優(yōu)化代碼的方法。簡單的說，就是順序選擇了a列2-10行的單元格并將其賦值為1-10。
相關(guān)推薦：
excel中怎么利用VBA制作一個登錄數(shù)據(jù)驗證窗口?
excel怎么利用vba實現(xiàn)批量套打快遞單批量打印單據(jù)?
相關(guān)文章
- 有時在編寫VBA程序時，會發(fā)現(xiàn)沒有與Excel函數(shù)相對應(yīng)的VBA指令，在此情況下，只能想辦法通過引用Excel函數(shù)來達(dá)到目地，下面小編就為大家介紹在excel表格中vba使用day函數(shù)方2016-08-22
- 這篇教程是向腳本之家的朋友分享excel vba制作一個數(shù)字時鐘方法，教程真的很不錯，值得大家學(xué)習(xí)，推薦到腳本之家，喜歡的朋友可以參考本文，來看看吧2016-08-19
- excel表格中的日期怎么通過vba計算日期所在季度？excel表格中有很多日期，想知道這些日期都是哪個季度的，該怎么辦呢？下面我們就來看看求出日期所在季度的教程，需要的朋2016-08-19
excel如何使用vba函數(shù)計算指定間隔月后的日期?
excel如何使用vba函數(shù)計算指定間隔月后的日期？很多朋友并不是很清楚，所以下面小編就為大家詳細(xì)介紹一下，不會的朋友可以參考本文，希望能對大家有所幫助2016-08-19- 今天小編為大家分享利用excel vba編程在窗體上畫盆子方法，教程很不錯，值得大家學(xué)習(xí)，推薦到腳本之家，一起來學(xué)習(xí)吧2016-08-19
- 這篇教程主要是向腳本之家的朋友分享excel vba編程制作一個惡作劇小程序方法，教程比較基礎(chǔ)，但很不錯，推薦過來，一起來學(xué)習(xí)吧2016-08-17
- excel怎么借助vba畫一個簡筆畫西紅柿？excel中可以使用vba變成來繪制一些圖形，今天我們就來看看繪制一個簡筆畫番茄的教程，很簡單，需要的朋友可以參考下2016-08-17
- 這篇教程是向腳本之家的朋友分享excel vba編程怎么畫西紅柿方法，教程很不錯，值得大家學(xué)習(xí)，推薦過來，一起來學(xué)習(xí)吧2016-08-17
- excel中怎么使用vba查看字符串的asc值？我們想要查看某個字符串的asc的值，就可以使用vba來查看，具體該怎么實現(xiàn)呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2016-08-17
- excel怎么借用VBA繪制小卡車？excel中直接繪制圖形很困難，我們要借助vba窗體，下面我們就來看看詳細(xì)的畫法，很簡單，需要的朋友可以參考下2016-08-16