求教：用VBA解决条件筛选记录到另一工作表

danhanqing · 发表于 2013-3-30 15:06

本帖最后由 danhanqing 于 2013-4-1 11:17 编辑

财务管理.rar (46.59 KB, 下载次数: 38)
设计要求，用VBA，以“财务月汇总表”L2值为条件，筛选“财务日现金帐”A7：J65536区域A列中月份＝本表L2（可变）的记录到财务月汇总表的A7：J7下

LangQueS · 发表于 2013-3-30 15:24

楼主的附件有密码。

danhanqing · 发表于 2013-4-1 11:15

哦！对不起，忘了删掉密码了！{:soso_e162:}，现在重传一个吧！

LangQueS · 发表于 2013-4-2 09:14

建议楼主参考下帖附件中的文字说明，修改工作表的设置，首先要建立好记录日常所发生数据的“一维数据表”。我们的目的是使用好Excel，实现对数据的管理，而不是制作软件。因此要充分发挥 Excel 自带的强大功能，例如“高级筛选”、“数据透视表”等等，再用函数和代码等方法作为补充，以降低制作和修改难度，提高工作效率。

★Excel数据管理的一般规律★ http://club.excelhome.net/thread-287461-1-1.html

danhanqing · 发表于 2013-4-2 09:21

因我开的是电子商务公司，下面的人员时时要进行相关操作，而她们都不太懂EXCEL应用，于是我就想让工作简单化。而不是为了制作软件啦。就是为了让应用与管理更简单些。至少对她们来说。感谢！

grf1973 · 发表于 2013-4-2 15:04

Private Sub CommandButton1_Click()
' Sheets("财务日现金帐").Range("A7:J65536").AdvancedFilter Action:=xlFilterCopy, _
'       CopyToRange:=Range("A7:J7"), Unique:=False
' Range("L2").Select
xmonth = [L2]
With Sheets("财务日现金帐")
      For i = 8 To .[a65536].End(3).Row
         If .Cells(i, 1) = xmonth Then
            r = [a65536].End(3).Row + 1
            .Cells(i, 1).Resize(1, 10).Copy Cells(r, 1)
         End If
      Next
End With

End Sub

danhanqing · 发表于 2013-4-2 15:25

感谢grf193老师给的建议，昨天晚上整了一晚上，已经解决，同时也看到网上不少朋友都在问这个问题，所以将文件稍做处理后贴上来，供大家讨论，个人认为，通过VBA将指定条件的记录复制到另一工作表这方面，本方案是我看到的最实用最方便的最灵活的设计（我也是学来的，综合了一下。）由于原文件的明细数据是从我公司其实部门数据中自动收集来的，为了体现这个功能，也为了公司信息的安全，我将明细表数据做了值贴入转换，也已经看不到相关函数了，但不影响汇总表中功能的实现。其他代码我也没有删除。有用得上的朋友自己去提取吧。

财务管理.rar (36.55 KB, 下载次数: 59)

danhanqing · 发表于 2013-4-2 15:39

检查了一下，因为删除了其他sheet引起部分功能不正常，为方便大家完整了解，修改了一下。现在是OK的了。

财务管理.rar (36.84 KB, 下载次数: 341)

danhanqing · 发表于 2013-4-3 09:41

已完美解决。感谢各位！

		自动登录	找回密码
密码			免费注册