ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 苹果落落

[分享] 晒晒我新做的《费用预算管理系统》

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-6-29 14:19 | 显示全部楼层
原帖由 cq68841377 于 2010-6-28 21:39 发表
请问楼主关于该项技术如何授人以渔呢?期待学习。。。。

呵呵 你好
模板里面的保护密码已经公布了的,

TA的精华主题

TA的得分主题

发表于 2010-6-29 23:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢分享,一直都想找有关费用预算的表格

TA的精华主题

TA的得分主题

发表于 2010-6-30 10:31 | 显示全部楼层
rivate Sub CommandButton1_Click()
Worksheets("计划").Visible = True
Worksheets("计划").Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton2_Click()
Worksheets("费用实际数").Visible = True
Worksheets("费用实际数").Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton3_Click()
Worksheets("区域实际查询").Visible = True
Worksheets("区域实际查询").Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton4_Click()
Worksheets("区域计划差异表").Visible = True
Worksheets("区域计划差异表").Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton5_Click()
Chart1.Visible = True
Chart1.Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton6_Click()
Worksheets("费用计划差异总表").Visible = True
Worksheets("费用计划差异总表").Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton7_Click()
Worksheets("费用预算总表").Visible = True
Worksheets("费用预算总表").Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton8_Click()
Worksheets("损益表").Visible = True
Worksheets("损益表").Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton9_Click()
Worksheets("汇总损益表").Visible = True
Worksheets("汇总损益表").Activate
Worksheets("首页").Visible = False
End Sub,,,我点击什么变成这样呢?请教楼主,急用啊

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-6-30 15:16 | 显示全部楼层
原帖由 潘秀艳 于 2010-6-30 10:31 发表
rivate Sub CommandButton1_Click()
Worksheets("计划").Visible = True
Worksheets("计划").Activate
Worksheets("首页").Visible = False
End Sub

Private Sub CommandButton2_Click()
Worksheets("费用实 ...

点击了首页的代码ba

TA的精华主题

TA的得分主题

发表于 2010-6-30 16:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
为什么我下的却不能用呢,点击没反应

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-7-1 08:14 | 显示全部楼层
[quote]原帖由 xyxc0117 于 2010-6-30 16:30 发表
为什么我下的却不能用呢,点击没反应 [/quot、
你好 如果仔细看帖子的话 应该会发现前面有说到版本安装不齐的话 是会有这样的现象

TA的精华主题

TA的得分主题

发表于 2010-7-1 09:00 | 显示全部楼层
苹果落落 楼主你好:
看了你的预算系统觉得做的很漂亮,也很细。提点建议供你参考:
对于执行预算的控制,不知你考虑的是由那个部门承担。我觉得是否可考虑由出纳部门承担,因为从规范的财务管理角度讲,企业每天的收支情况都要经出纳的手,而且每日终了都必须编制现金及银行存款日报表,这样非常有利于对预算执行情况进行及时的记录和统计。如是这样的话,还可考虑将现金及银行存款日报表加入系统中,这样一来出纳在编制现金及银行存款日报表的同时就对预算执行数据进行了采集,几乎不会额外增加出纳的工作量。
以上建议仅供参考。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-7-1 11:05 | 显示全部楼层
原帖由 xj.cpa 于 2010-7-1 09:00 发表
苹果落落 楼主你好:
看了你的预算系统觉得做的很漂亮,也很细。提点建议供你参考:
对于执行预算的控制,不知你考虑的是由那个部门承担。我觉得是否可考虑由出纳部门承担,因为从规范的财务管理角度讲,企业每天的 ...

谢谢您的提议 这个表是做给预算经理用的 因为我们公司不同财务不同分工 出纳不负责这部分工作 所以.....谢谢您的意见,很好,我会根据您的建议尝试做一份新的,更适合其他公司 其他岗位用的 呵呵 很感谢您的回复

TA的精华主题

TA的得分主题

发表于 2010-7-1 11:15 | 显示全部楼层
原帖由 苹果落落 于 2010-6-18 21:37 发表

阁下仔细看 就会发现本页前面就有回复的 呵呵 密码6666

美女做的很好,谢谢了

TA的精华主题

TA的得分主题

发表于 2010-7-2 17:06 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-27 03:19 , Processed in 0.043095 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表