vb怎么將年表分成四份季度表?
百度經(jīng)驗(yàn) 發(fā)布時(shí)間：2019-02-27 11:10:25 作者：臨風(fēng)聽蟬歌 
我要評(píng)論
我要評(píng)論vb怎么將年表分成四份季度表？visual basic中的一個(gè)表想要分成多分表，該怎么實(shí)現(xiàn)呢？我們可以使用代碼實(shí)現(xiàn)，下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
visual basic中想要編寫代碼將一表拆分成多表，該怎么實(shí)現(xiàn)呢？下面我們就來看看詳細(xì)的教程。
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 = 0
Next i
End Sub
6、在工作表的【開發(fā)工具】菜單下，點(diǎn)擊【插入】按鈕，插入一【表單】按鈕，并與編寫的【一表分多表】代碼關(guān)聯(lián)，且進(jìn)入命名為【一表分多表】！
7、點(diǎn)擊【一表分多表】按鈕，【年度】表被瞬間分成4個(gè)月度表！
以上就是vb編寫代碼將一表拆分成多表的教程，希望大家喜歡，請(qǐng)繼續(xù)關(guān)注腳本之家。
相關(guān)推薦：
相關(guān)文章
VB6.0怎么定義一個(gè)字符串變量？VB6.0中想要定義變量，該怎么定義字符串變量恩？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2018-09-27
VB6.0把普通窗體怎么改成MDI窗體？VB6.0中想要修改窗體，該怎么將普通窗體改成MDI窗體呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2018-09-27
VB6.0怎么制作菜單？VB6.0中想要制作一個(gè)菜單，該怎么編輯菜單呢？下面我們就來看看VB6.0菜單的制作方法，需要的朋友可以參考下2018-09-27
PPT怎么使用VBA代碼編程？ppt中想要實(shí)現(xiàn)編程效果，我們可以使用vba實(shí)現(xiàn)，下面我們就來看看ppt使用vba代碼編程的教程，需要的朋友可以參考下2018-09-25
VB6.0怎么調(diào)出被關(guān)閉的工具窗口?
VB6.0怎么調(diào)出被關(guān)閉的工具窗口？VB6.0中的窗口關(guān)閉了，想要重新打開，該怎么打開呢？下面我們就來看看VB6.0打開窗口的教程，需要的朋友可以參考下2018-09-18
excel怎么設(shè)置退出刪除vba工具欄？excel中使用vba以后，想要退出的時(shí)候刪除vba工具欄，該怎么設(shè)置呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2018-09-12
vb6.0怎么設(shè)置彈窗倒計(jì)時(shí)器效果?
vb6.0怎么設(shè)置彈窗倒計(jì)時(shí)器效果？vb6.0中想要制作一個(gè)倒計(jì)時(shí)的效果，該怎么制作倒計(jì)時(shí)呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2018-08-31
VB6.0一串?dāng)?shù)字怎么拆分成單個(gè)數(shù)字?
VB6.0一串?dāng)?shù)字怎么拆分成單個(gè)數(shù)字？VB6.0表格中輸入的一串?dāng)?shù)字想要拆分成單個(gè)的數(shù)字，該怎么拆分呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2018-07-30
VB6.0怎么快速批量刪除txt內(nèi)容？VB6.0中想要快速刪除txt文件中的內(nèi)容，該怎么刪除呢？我們就來看看使用vb6.0刪除txt文件內(nèi)容的教程，需要的朋友可以參考下2018-06-29
VB6.0怎么使用圖片框？VB6.0編程開發(fā)的時(shí)候，想要使用圖片框，該怎么使用呢？下面我們就來看看詳細(xì)的教程，很簡(jiǎn)單，需要的朋友可以參考下2018-06-25
