想在EXCEL里做个宏 打开文件后自动筛选本月的数据(假设某一列里有日期输入),再设计一个按钮,

单击后现实左右月份的数据

我在在B1里加一按钮,目前命名为Button 6.
第二行写表头,并加自动筛选.

A列为输入的日期,C3里输入=month(A3),下拉.然后编制下面的宏.
再指定Button 6单击运行下面的宏就行了.
如果你想一加载就显示的是当月的.你再建一个startup的宏,把按钮不是全部的(Else块)放进去试试.我不试了.
Dim m As Integer
m = Month(Now())
ActiveSheet.Shapes("Button 6").Select
If Selection.Characters.Text = "全部" Then
Selection.Characters.Text = "本月"
Range("c2").Select
Selection.AutoFilter Field:=3
Else
Selection.Characters.Text = "全部"
Range("C2").Select
Selection.AutoFilter Field:=3, Criteria1:=m, Operator:=xlAnd
End If
Range("A1").Select
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-07-04
VBA可以实现追问

能否详细些

追答

你家我
2658436761

追问

单位里无QQ,能否直接把宏写上

第2个回答  2012-07-05
左右月份?是左右箭头而不是菜单式选择?前者比较难。追问

sorry, 应该是单击后显示所有月份的数据。

第3个回答  2012-07-05
这个不用宏,利用控件工具箱和有关函数即可实现。

想在EXCEL里做个宏 打开文件后自动筛选本月的数据(假设某一列里有日 ...
第二行写表头,并加自动筛选.A列为输入的日期,C3里输入=month(A3),下拉.然后编制下面的宏.再指定Button 6单击运行下面的宏就行了.如果你想一加载就显示的是当月的.你再建一个startup的宏,把按钮不是全部的(Else块)放进去试试.我不试了.Dim m As Integer m = Month(Now())ActiveSheet.Shapes...

Excel中如何自动筛选出某一列的数据进行显示?
选中第二行(小标题部分),点击筛选,小标题就会多出一个小三角型:这时点击“考核部门”这个小标题,就可以筛选出你想要看到的部门了:把不想看到的部门前面的勾去除,点击下面的确定按钮,就可以了:

怎么在excel表格筛选把具体的日期变成月份下的小类
1、首先,在日期单元格旁边设置一列空白格,如果没有空白格可以插入一列,2、如图片,右键单击B列,在弹出的菜单里选择插入,3、就会出现一列新的空白格,4、在空白格的第一列输入“=MONTH()”,光标会自动跳进括号中,这时你可以点击左边的日期,括号中会出现日期所在的表格号,5、如果不记的MON...

一个EXCEL问题:假如有一列为日期,如何要按日期筛选出一个月里每天8:00...
数据-->筛选-->自动筛选-->点下接箭头-->选”自定义”-->选择”包含”-->接着右边填上:”8:”就可以了!记住要8后面要加上个冒号

如何制作EXCEL中的宏,实现输入日期后,在工作簿的其他表格中筛选与输入日...
没有必要使用宏,链接到有公式的表格即可 没有重复数据的可以用vlookup日期的方法显示出来,日期分别依次减1,重复六次。如果有现成表格,我可以帮你做好

excel表怎样筛选某个人某月的数据
excel表筛选某个人某月的数据方法是:1、打开excel表格,该表格一共有300多行,手动一个个去筛出想要的数据效率很低。使用excel自带的筛选功能才是正确的方法。用鼠标选中第一行中的标题,点击工具栏中的【数据】-【筛选】。2、标题行中出现了三角图标,点击日期单元格的三角图标。3、在下拉菜单中,...

一个EXCEL问题:假如有一列为日期,如何要按日期筛选出一个月里每天8:00...
方法是你先用截取的公式截取日期列中的时间出来,然后再筛选一下,注意截后字符串的格式,要变成小时格式的.具体的你自己试一下.

excel做每个月的报表,怎么把每个月单独整理出一个表格,或者怎么设置...
单独看一个月的有多种方法:数据透视表、自动筛选、高级筛选、用函数公式另建一表。比如说用自动筛选,点A1那个倒三角形,点“自定义”,用“日期”“大于等于”某年某月1日,“与”“日期”“小于”某年次月1日

Excel执行宏命令实现“在现有数据表中以某条件筛选后建立一个新表”
使用自定义筛选就可以了 步骤:1 选择需要的列 2 设置好筛选 3 选择筛选中的自定义筛选 4 输入多个条件 这样就可以显示符合多个条件的数据了

您好,Excel工作表中,想利用一个宏程式来实现日期范围筛选,求高手帮忙一...
假设你的数据表中,A列示日期列,你要对A列日期进行筛选,单元格B1输入你需要筛选日期的起始日期,单元格C1输入你需要筛选日期的结束日期。代码如下:sub filterdate ()if range("B1")="" or range("B1").value > range("C1").value then msgbox "请检查筛选日期合理性"exit sub end if rang...

相似回答