欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

vb怎么將年表分成四份季度表?

百度經(jīng)驗   發(fā)布時間：2019-02-27 11:10:25   作者：臨風(fēng)聽蟬歌   我要評論
vb怎么將年表分成四份季度表？visual basic中的一個表想要分成多分表，該怎么實現(xiàn)呢？我們可以使用代碼實現(xiàn)，下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下

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

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

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

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

4、會彈出模塊編輯窗口！

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)計表"
    End If
    Rng.Resize(, 6).Copy Sheets(i & "月").Range("a" & k + 2)
  End If
  Next Rng
  k = 0
Next i
End Sub

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

7、點擊【一表分多表】按鈕，【年度】表被瞬間分成4個月度表！

以上就是vb編寫代碼將一表拆分成多表的教程，希望大家喜歡，請繼續(xù)關(guān)注腳本之家。

相關(guān)推薦：

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

VB6.0項目怎么添加用戶控件?

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

  • Tag：VB  

相關(guān)文章

  • VB6.0怎么定義一個字符串變量?

    VB6.0怎么定義一個字符串變量？VB6.0中想要定義變量，該怎么定義字符串變量恩？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
    2018-09-27

  • VB6.0把普通窗體怎么改成MDI窗體?

    VB6.0把普通窗體怎么改成MDI窗體？VB6.0中想要修改窗體，該怎么將普通窗體改成MDI窗體呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
    2018-09-27

  • VB6.0怎么制作菜單?

    VB6.0怎么制作菜單？VB6.0中想要制作一個菜單，該怎么編輯菜單呢？下面我們就來看看VB6.0菜單的制作方法，需要的朋友可以參考下
    2018-09-27

  • PPT怎么使用VBA代碼編程?

    PPT怎么使用VBA代碼編程？ppt中想要實現(xiàn)編程效果，我們可以使用vba實現(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怎么設(shè)置退出刪除vba工具欄？excel中使用vba以后，想要退出的時候刪除vba工具欄，該怎么設(shè)置呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
    2018-09-12

  • vb6.0怎么設(shè)置彈窗倒計時器效果?

    vb6.0怎么設(shè)置彈窗倒計時器效果？vb6.0中想要制作一個倒計時的效果，該怎么制作倒計時呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
    2018-08-31

  • VB6.0一串?dāng)?shù)字怎么拆分成單個數(shù)字?

    VB6.0一串?dāng)?shù)字怎么拆分成單個數(shù)字？VB6.0表格中輸入的一串?dāng)?shù)字想要拆分成單個的數(shù)字，該怎么拆分呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
    2018-07-30

  • VB6.0怎么快速批量刪除txt內(nèi)容?

    VB6.0怎么快速批量刪除txt內(nèi)容？VB6.0中想要快速刪除txt文件中的內(nèi)容，該怎么刪除呢？我們就來看看使用vb6.0刪除txt文件內(nèi)容的教程，需要的朋友可以參考下
    2018-06-29

  • VB6.0怎么使用圖片框?

    VB6.0怎么使用圖片框？VB6.0編程開發(fā)的時候，想要使用圖片框，該怎么使用呢？下面我們就來看看詳細(xì)的教程，很簡單，需要的朋友可以參考下
    2018-06-25

最新評論