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

百度经验   发布时间:2019-02-27 11:10:25   作者:临风听蝉歌   我要评论

vb怎么将年表分成四份季度表?visual basic中的一个表想要分成多分表,该怎么实现呢?我们可以使用代码实现,下面我们就来看看详细的教程,需要的朋友可以参考下

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

软件名称:
Visual Basic 6.0 精简安装版
软件大小:
5.86MB
更新时间:
2014-08-25

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怎么编写给表格快速添加批注的代码?

  • Tag:VB  

相关文章

  • VB6.0怎么定义一个字符串变量?

    VB6.0怎么定义一个字符串变量?VB6.0中想要定义变量,该怎么定义字符串变量恩?下面我们就来看看详细的教程,需要的朋友可以参考下
    2018-09-27
  • VB6.0把普通窗体怎么改成MDI窗体?

    VB6.0把普通窗体怎么改成MDI窗体?VB6.0中想要修改窗体,该怎么将普通窗体改成MDI窗体呢?下面我们就来看看详细的教程,需要的朋友可以参考下
    2018-09-27
  • VB6.0怎么制作菜单?

    VB6.0怎么制作菜单?VB6.0中想要制作一个菜单,该怎么编辑菜单呢?下面我们就来看看VB6.0菜单的制作方法,需要的朋友可以参考下
    2018-09-27
  • PPT怎么使用VBA代码编程?

    PPT怎么使用VBA代码编程?ppt中想要实现编程效果,我们可以使用vba实现,下面我们就来看看ppt使用vba代码编程的教程,需要的朋友可以参考下
    2018-09-25
  • VB6.0怎么调出被关闭的工具窗口?

    VB6.0怎么调出被关闭的工具窗口?VB6.0中的窗口关闭了,想要重新打开,该怎么打开呢?下面我们就来看看VB6.0打开窗口的教程,需要的朋友可以参考下
    2018-09-18
  • excel怎么设置退出删除vba工具栏?

    excel怎么设置退出删除vba工具栏?excel中使用vba以后,想要退出的时候删除vba工具栏,该怎么设置呢?下面我们就来看看详细的教程,需要的朋友可以参考下
    2018-09-12
  • vb6.0怎么设置弹窗倒计时器效果?

    vb6.0怎么设置弹窗倒计时器效果?vb6.0中想要制作一个倒计时的效果,该怎么制作倒计时呢?下面我们就来看看详细的教程,需要的朋友可以参考下
    2018-08-31
  • VB6.0一串数字怎么拆分成单个数字?

    VB6.0一串数字怎么拆分成单个数字?VB6.0表格中输入的一串数字想要拆分成单个的数字,该怎么拆分呢?下面我们就来看看详细的教程,需要的朋友可以参考下
    2018-07-30
  • VB6.0怎么快速批量删除txt内容?

    VB6.0怎么快速批量删除txt内容?VB6.0中想要快速删除txt文件中的内容,该怎么删除呢?我们就来看看使用vb6.0删除txt文件内容的教程,需要的朋友可以参考下
    2018-06-29
  • VB6.0怎么使用图片框?

    VB6.0怎么使用图片框?VB6.0编程开发的时候,想要使用图片框,该怎么使用呢?下面我们就来看看详细的教程,很简单,需要的朋友可以参考下
    2018-06-25

最新评论