真的太方便了！用Excel公式就能实现轻松明细账功能！
目前还有一些企业选择用excel做手工帐，以前我也有1年多用excel做手工帐的经历，手工帐excel模板最开始是从网上找的，后来就自己动手做了一个，经过慢慢调整完善，最后觉得还不错。其实一般的企业excel手工帐并不比财务软件差，甚至有时候更加灵活，但关键是手工帐模板要弄好。
今天给大家分享下以前我手工帐模板中做的用excel实现明细账调取的功能，通过指定科目，从凭证明细中调取该科目的明细账。
这个小技巧其实就是用函数实现的，他的运行原理不光光适用于明细账，比如进销存模型等等都可以用得到，让我们一起看下它是如何制作的吧。
1、IF函数（条件判断）
2、vlookup函数（查找引用）
3、Iferror函数（错误判断，辅助用）
4、Count函数（数字单元格计数）
5、Column函数（返回列，辅助用）
可能有的同学看到需要这么多函数，心里有一点恐惧，其实这些函数都是比较简单，并且财务应当掌握的，一起来看看视频吧。
（本期视频时长较长，建议使用WIFI观看）
通过这些函数技能，
你绝对能够统治上海滩！
高阶Excel大神玩转透视表
gif动图分解，手把手教你操作
我们习惯于在excel中制作数据透视表，但数据透视图却很少有同学用过，其实数据透视图也很有用
选取数据透视图，设计 - 切换行列、修改图表类型、隐藏图表上的所有按钮。结果如下图所示。
动画演示操作过程：
是谁说的Excel没有魔法
VBN就能“见证奇迹”
许多高级程序员瞧不上VBA。因为程序员是有鄙视链的：汇编 &C &C++ &Python &Java及C#及PHP（这三者相互撕） &VB &HTML。在这长长的鄙视链中，甚至都没有VBA的位置。
可是，Excel+VBA是图灵完备的，所以被程序员用来耍酷的各类性感语言能实现的大部分功能，Excel+VBA都能实现，而且往往是以更高效更快捷的方式，在这里不谈效率和优雅
利用Excel+VBA做出数张炫酷的信息地图，利用VBA为每个省的图形涂色。为了进一步增强炫酷结果，还利用VBA将这些连续变化的图表做成了GIF动画
为什么别人做事总比你快？这下明白了吧。如果你也学会这些神技，放眼望去，你的Excel已经超过90%的同事了。
为了助你超神小度很贴心的帮你准备了
还没够？还有技能没有get？
不慌，资源包里一共有70套教程全部动态演示，看完瞬间excel天赋点满，相信用不了多久就会升职加薪当上总经理，出任CEO,迎娶白富美，走向人生巅峰。嘿嘿，想想还有点小激动呢~
------------我是可爱的分割线------------
就能拿到以上礼包啦
责任编辑：
声明：该文观点仅代表作者本人，搜狐号系信息发布平台，搜狐仅提供信息存储空间服务。
今日搜狐热点拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(434faf6e06623a88-ua98).
重新安装浏览器，或使用别的浏览器EXCEL-案例-VBA-自动生成明细帐_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&10W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
EXCEL-案例-VBA-自动生成明细帐
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢(window.slotbydup=window.slotbydup || []).push({
id: '5450491',
container: s,
size: '600,50',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '3991088',
container: s,
size: '100,240',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '3991102',
container: s,
size: '100,240',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '4044404',
container: s,
size: '240,146',
display: 'inlay-fix'
以excel的VBA进行股票全自动交易的现实
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
以excel的VBA进行股票全自动交易的现实
浏览：53962
欢迎光临理想论坛，由于您没有登录，所以无法查看到论坛的附件及隐藏分区，也无法与其他会员交流。
还没有理想论坛的帐号？
结合股票助手的DLL文件及万得的实时行情数据，已实现股票的全自动交易，核心在于5分钟买卖点的指标及参数：股票论坛 www.55188.com
给学长拜年了。
楼主为什么不用你这个自动的交易区做期货呢，股票周期有点长吧
冬至快乐！
多谢分享！
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
股票自动交易助手的信息可在本论坛能找到，万得数据要帐号哦，某宝能买到帐号，关键还是统计出成功率高的交易策略，我依然是用自己的正交透视法来优选的，发个图辅助理解：
对excel统计有兴趣的坛友可见本人的几个精华贴、谢谢！：
“大智慧与excel结合、来点务实的：用excel统计分析出关键的专业财务指标”
“告别穷日子：我在不同的波浪阶段用不同的公式选股”
“大智慧与excel结合务实三用excel统计分析出选股公式的有效性时间分布”
“大智慧与excel结合务实四：找出了惊人超短线收益的主因子”
“excel应用之五：将分类进行到底、将投机进行到底，漫谈excel统计”
“excel选股的极致应用——正交透视法，最近似阿尔法狗算法的统计”
哦、还漏了介绍我写的益盟帖子：
“现在才知道益盟是好东西”
感谢关注。谢谢！
如果觉得我的思路正确，请点击本帖左边栏、右下角的“加关注”
[ 本帖最后由 知物悟道 于
21:59 编辑 ]
(21.02 KB)
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想高三级同学
还需要 8165 积分才能升级
谢谢楼主分享。。。。。。。。。。。
积分21835&理想币8288 个&彩币5 个&共享币11877 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
其中部分代码截图，不是虚的
[ 本帖最后由 知物悟道 于
21:30 编辑 ]
(205.85 KB)
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想高二级同学
还需要 2938 积分才能升级
我顶你个肺，飘过
积分17062&理想币1767 个&彩币0 个&共享币17551 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
全套完成自动交易的代码也是齐的
(56.61 KB)
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
有了万得（wind）数据，就可完全不用大智慧或通达信的数据了
(86.37 KB)
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
万得的帐号要机构版，这样才能实现excel直接使用万得的excel插件来得到交易实时数据
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想初二级同学
还需要 1028 积分才能升级
看看明摸摸平
积分4972&理想币176 个&彩币0 个&共享币579 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
在excel中实现自动交易有很大的灵活性，只实现一股一策的方式进行，我事前已将各股的买卖点指标的参数、以正交透视法统计出各自最佳的参数，参数不可能是一致的
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想学士级同学
还需要 2571 积分才能升级
谢谢分享，祝投资愉快！！！
积分97429&理想币49658 个&彩币5 个&共享币134 个&注册时间&
理想高三级同学(菠菜一段)
还需要 7065 积分才能升级
谢分享，祝投资愉快！！！
积分22935&理想币7295 个&彩币94 个&共享币4487 个&注册时间&
理想大三级同学
还需要 7741 积分才能升级
谢谢楼主分享！！！
积分52259&理想币1969 个&彩币0 个&共享币17216 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
本坛周大侠的帖子就重点说到策略的重要性
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想高二级同学
还需要 4619 积分才能升级
感谢分享，祝投资愉快！！！
积分15381&理想币5304 个&彩币5 个&共享币5611 个&注册时间&
理想大二级同学
还需要 7631 积分才能升级
以excel的VBA进行股票全自动交易的现实
积分42369&理想币25071 个&彩币3 个&共享币1768 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
【大数据】“私慕乐园”11月私募英雄榜发布！各策略TOP10都有谁？
(52.43 KB)
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5146 积分才能升级
日内波段，强
积分24854&理想币81 个&彩币400 个&共享币1 个&注册时间&
理想高二级同学(菠菜一段)
还需要 5867 积分才能升级
以excel的VBA进行股票全自动交易的现实
积分14133&理想币1105 个&彩币10 个&共享币2476 个&注册时间&
理想大二级同学
还需要 5650 积分才能升级
中午好！& && &&&冬至快乐！& && && && & 多谢分享！& && && && &&&
积分44350&理想币32867 个&彩币5 个&共享币2079 个&注册时间&
快速回复主题
禁用 URL 识别
使用个人签名
接收新回复邮件通知
发帖请务遵守本站的相关规则，所有发表(包括转发)政治、色情非法信息者本站将实时提供发贴者个人信息给公安局，追究责任，特此申明！
具体规则请参见《》
您需要登录后才可以发帖
发表帖子[完成后可按 Ctrl+Enter 发布]
理想论坛上的网友发表的帖子纯属个人意见，理想论坛不负任何责任！广告赞助商内容与本站无关！
理想论坛值班电话[9:30～18:30]： &#6 5518-1 &#66 3090 ☎ 186 (广告)☎ 187 (广告)
工业和信息化部信息备案：VBA实现自动生成EXCEL表代码_中华文本库
第1页/共2页
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim work_dir As String
Dim muban_dir As String
Dim pinguzongbiao_dir As String
Dim shengchengbiao_dir As String
Dim muban_name As String
Dim pinguzongbiao_name As String
Dim shengchengbiao_name As String
Dim muban_path As String
Dim pinguzongbiao_path As String
Dim shengchengbiao_path As String
Dim i, bigin_row, stop_row As String
Dim file_name As String
Dim kehumingchen As String
Dim liucheng_id As String
Dim kehudizhi As String
Dim kehujingli As String
Dim lianxiren As String
Dim yueshouru As String
Dim weihufei As String
Dim guandaojianshe As String
Dim guandaotouzi As String
Dim guanglanjianshe As String
Dim guanglantouzi As String
Dim shebeijianshe As String
Dim shebeitouzi As String
Dim shejifei As String
Dim jianlifei As String
Dim zongtouzi As String
bigin_row = TextBox1.Value
stop_row = TextBox2.Value
If (bigin_row = "" Or stop_row = "") Then
MsgBox ("行号不能为空值！请重新输入！")
Exit Sub
End If
If bigin_row & stop_row Then
MsgBox ("结束行号不能小于开始行号！请重新输入！")
Exit Sub
End If
'获取当前工作路径
work_dir = ActiveWorkbook.Path
muban_dir = work_dir & "\模板"
pinguzongbiao_dir = work_dir & "\评估总表"
shengchengbiao_dir = work_dir & "\生成表"
muban_name = Dir(muban_dir & "\*.xls*")
If (muban_name = "") Then
MsgBox ("模板文件不存在！")
Exit Sub
End If
pinguzongbiao_name = Dir(pinguzongbiao_dir & "\*.xls*")
If (pinguzongbiao_name = "") Then
MsgBox ("评估总表文件不存在！")
Exit Sub
End If
muban_path = muban_dir & "\" & muban_name
pinguzongbiao_path = pinguzongbiao_dir & "\" & pinguzongbiao_name
For i = 1 To Windows.Count
If Windows(i).Caption = pinguzongbiao_name Then
MsgBox "评估总表文件已经打开，请关闭后再运行程序！"
Exit Sub
End If
Next i
For i = 1 To Windows.Count
If Windows(i).Caption = muban_name Then
MsgBox "模板文件已经打开，请关闭后再运行程序！"
Exit Sub
End If
Next i
Workbooks.Open pinguzongbiao_path
For i = bigin_row To stop_row
Workbooks.Open muban_path
liucheng_id = Workbooks(pinguzongbiao_name).Sheets(1).Range("B" & i)
kehumingchen = Workbooks(pinguzongbiao_name).Sheets(1).Range("C" & i)
kehudizhi = Workbooks(pinguzongbiao_name).Sheets(1).Range("D" & i)
kehujingli = Workbooks(pinguzongbiao_name).Sheets(1).Range("E" & i)
lianxiren = Workbooks(pinguzongbiao_name).Sheets(1).Range("F"
第1页/共2页
寻找更多 ""