visual basic中想要編寫代碼將一表拆分成多表，該怎么實(shí)現(xiàn)呢？下面我們就來(lái)看看詳細(xì)的教程。

軟件名稱：Visual Basic 6.0 精簡(jiǎn)安裝版軟件大小：5.86MB更新時(shí)間：2014-08-25

1、實(shí)例【編寫、運(yùn)行VBA代碼將“年度統(tǒng)計(jì)表”依據(jù)月份拆分成各月度表？】

2、在工作表中，點(diǎn)擊菜單欄【開發(fā)工具】，在其工具欄內(nèi)，點(diǎn)擊【visual basic】!

3、會(huì)進(jìn)入VBA編輯界面！點(diǎn)擊菜單欄【插入】，在其下拉菜單中，選擇【模塊】！

4、會(huì)彈出模塊編輯窗口！

5、在代碼編輯窗口輸入以下代碼：

Sub 一表分多表()For i = 1 To 4  Worksheets.Add.Name = i & "月"  Sheets(i & "月").Move after:=Sheets(Sheets.Count)  Set rg = Sheets("年度").Cells(Rows.Count, 1).End(xlUp)  For Each Rng In Sheets("年度").Range(Sheets("年度").[a3], rg)  If Rng = i & "月" Then    k = k + 1    If k = 1 Then      Sheets("年度").[a1:g2].Copy Sheets(i & "月").Range("a1")      Sheets(i & "月").[a1] = "2019年" & i & "月份產(chǎn)品銷售統(tǒng)計(jì)表"    End If    Rng.Resize(, 6).Copy Sheets(i & "月").Range("a" & k + 2)  End If  Next Rng  k = 0Next iEnd Sub

6、在工作表的【開發(fā)工具】菜單下，點(diǎn)擊【插入】按鈕，插入一【表單】按鈕，并與編寫的【一表分多表】代碼關(guān)聯(lián)，且進(jìn)入命名為【一表分多表】！

7、點(diǎn)擊【一表分多表】按鈕，【年度】表被瞬間分成4個(gè)月度表！

以上就是vb編寫代碼將一表拆分成多表的教程，希望大家喜歡，請(qǐng)繼續(xù)關(guān)注錯(cuò)新站長(zhǎng)站。

相關(guān)推薦：

VB6.0怎么設(shè)置窗口平鋪方式?

VB6.0項(xiàng)目怎么添加用戶控件?

VB怎么編寫給表格快速添加批注的代碼?