预算费用表数据的筛选与定位VBA

hkyooa · 发表于 2011-5-28 22:06

作为一名财务人员，不免终日与二维表打交道，有时为了记录全面的信息，往往需要把一张表做的非常大，上百行与上百列同时并存，比如费用预算表，表中的“行”用来记录部门与预算科目，“列”用来记录各时间段的数据，这样可以把数据记录的很全，但也带来一个问题，当要查找特定部门特定预算科目特定时间段的数据时，需要作行筛选、列隐藏操作，很繁琐，特别是在一些需要公示评选的场合，往往耗时耗力且不讨好。
年初在做单位费用预算时，用VBA作了一个简单的筛选定位程序，使用起来自我感觉方便许多，现将原表简化后，贴上来与大家共享，希望能给大家提供一些助益，更希望大家有更好的方法可以指教共享。

rufeng · 发表于 2011-5-30 00:15

非常感谢，下来学习研究

crane331 · 发表于 2011-8-18 21:11

谢谢，小菜鸟要多多向师傅们学习！

jia811007 · 发表于 2011-8-19 13:23

非常感谢，下来学习一下。

我不清楚 · 发表于 2011-8-19 14:14

顶！顶！！顶！！！

谢锋 · 发表于 2011-8-25 11:21

如果可以自由增加或减少预算部门、预算科目就完美了，能否指教一下，我都是每年都是做预算做到晕的？求教!!!!

hkyooa · 发表于 2011-8-25 23:01

本帖最后由 hkyooa 于 2011-8-25 23:15 编辑

谢锋发表于 2011-8-25 11:21
如果可以自由增加或减少预算部门、预算科目就完美了，能否指教一下，我都是每年都是做预算做到晕的？求教!! ...

可以自由增减行数和列数的.

表中给出的预算部门和科目只是示例用.
点击"显示全部"即可,在A列 B列所在的任意行(连续),只要有数据就会被当成"部门"和"预算科目"
预算表在运行过程中只显示有数据的行.

hkyooa · 发表于 2011-8-25 23:09

在该表中设置科目时,应有一些规律,比如:所有部门的差旅费统一设成一个名称"差旅费",不要一个叫差旅费,一个叫交通费,以便可以通过科目自定义查找"差旅费"将其选定列示,又如,在每个部门预算科目结束后,再加一个科目名称如"行政部合计""财务部合计",就可以通过科目自定义查找"合计"字眼,把所有部门的合计列选定列示,避免手工一个一个勾选.合计列则可以通过EXCEL公式合计出本部门的合计数.
列标题也有自定义勾选功能,和行操作一样.

谢锋 · 发表于 2011-8-26 00:16

确实可以增加和减少，另外还有一个问题：最后一项各部门总合计，好象还不能实现根据我“所选”的部门自动累加，不选的部门不合计，有办法解决吗？

hkyooa · 发表于 2011-8-26 18:25

谢锋发表于 2011-8-26 00:16
确实可以增加和减少，另外还有一个问题：最后一项各部门总合计，好象还不能实现根据我“所选”的部门自动累 ...

这个表的初衷还是以简单为导向做的，以现成的表单，实现一点定位功能。要实现根据所选进行累计，又要设计很多参数，比如要在每行作出标识，标识这个行在被选中时，是否把数据加计或不加计到总合计中，无形中又会把简单的东西搞复杂了。

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

[原创] 预算费用表数据的筛选与定位VBA