编程开发

关注公众号 jb51net

关闭
软件教程 > 编程开发 >

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

临风听蝉歌

visual basic中想要编写代码将一表拆分成多表,该怎么实现呢?下面我们就来看看详细的教程。

1、实例【编写、运行VBA代码将“年度统计表”依据月份拆分成各月度表?】

2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!

3、会进入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 & "月份产品销售统计表"
    End If
    Rng.Resize(, 6).Copy Sheets(i & "月").Range("a" & k + 2)
  End If
  Next Rng
  k = 0
Next i
End Sub

6、在工作表的【开发工具】菜单下,点击【插入】按钮,插入一【表单】按钮,并与编写的【一表分多表】代码关联,且进入命名为【一表分多表】!

7、点击【一表分多表】按钮,【年度】表被瞬间分成4个月度表!

以上就是vb编写代码将一表拆分成多表的教程,希望大家喜欢,请继续关注脚本之家。

相关推荐:

VB6.0怎么设置窗口平铺方式?

VB6.0项目怎么添加用户控件?

VB怎么编写给表格快速添加批注的代码?