新人小白求助！各位大神，此表只用公式能实现自动填入吗？

micch

这是我个人的学习过程，开始的时候觉得Excel真方便能解决很多问题；然后发现自己不会就去学习，一开始我也兴致勃勃要做一个账套出来，但是学了很久以后发现想的太简单了，我距离那个目的还有很遥远的路要走，到现在也没做出自己想要的账套来；

学习是一个过程，不要想着马上就等做出一个想要的东西来，一步步去完善吧，这个过程很快乐。如果是为了解决现实问题，那还是找一个现成的工具来解决实际问题的好，当然现成的要不收费，要不就是功能不够完整，这也是没办法的（所以最后我还是无奈的选择了收费软件）；如果不很迫切的需求，那就一边做，一边学习，一边完善吧

mm329572201

micch 发表于 2018-11-18 11:06
准提部林老师说的很中肯，不同的人对待问题的认知是不同的；你的能力决定了你对问题认知的深度，也许你现在 ...

谢谢老师的回复，作为一个文科生数学一直不是很好，EXCEL表格也一直只是会基础操作而已，来到这个论坛之后发现这个论坛里都是乐于分享知识的大神，而且EXCEL原来这么强大的，所以从零基础开始学习，望各位大神多多指导

micch

本想给你写写公式的，但是看了你做的表，就想到很久以前我刚学Excel的时候，从表格的设计上，就导致了函数的不方便；但是这是没办法的，正因为不会才不知道怎么做，这是我个人学习的动力；

纯粹个人的建议：输入数据的表格最基本的特点：简单直观，表1输入就需要多列，那表2用公式获取数据就变复杂了；所以参考所有流水账的通用方式，一行一组数据：既然大大小小的软件都是这么做的，那就表示应该是适用的，也许有更好的，但不是我这个水平能做出来的。

amazeyeli

micch 发表于 2018-11-18 11:26
本想给你写写公式的，但是看了你做的表，就想到很久以前我刚学Excel的时候，从表格的设计上，就导致了函数 ...

对于纯小白来说，不要去学Excel，直接学Access，从表，结构，主键，约束开始学，学完之后就再也不会把表做成这种花花绿绿，中看不中用的形式了。

micch

amazeyeli 发表于 2018-11-18 11:36
对于纯小白来说，不要去学Excel，直接学Access，从表，结构，主键，约束开始学，学完之后就再也不会把表 ...

学Excel是爱好，这个看个人喜好；解决问题的方法有很多，在解决的过程中学习，这是我的建议，学习是目的，问题不是目的；

单纯解决问题没有高低，只有喜欢不喜欢；明明5行代码能解决的问题，我还是愿意用200个字符的公式解决，甚至用3-5个公式+辅助的办法解决；

不论函数也好，代码也好，甚至access等等衍生工具，都只是工具而已，能解决问题，效率差不多就行；如果实在解决不了那就没办法了，不想放弃也不行，没有一个工具是万能的

micch

废话这么多，还是用函数公式说话吧；表2；A4，数组，下拉

1. =INDIRECT("日记账!"&TEXT(RIGHT(SMALL(IF(日记账!D$7:P$17=A$1,ROW($7:$17)/1%+COLUMN(A:M)*10001),ROW(A1)),4),"r0c00"),)

复制代码

B4，数组右拉下拉

1. =INDIRECT("日记账!"&TEXT(RIGHT(SMALL(IF(日记账!$D$7:$P$17=$A$1,(ROW($7:$17)+33*(COLUMN($B:$N)<>COLUMN()*4-6))/1%+COLUMN($B:$N)*10001),ROW(A1)),4),"r0c00"),)

复制代码

以现金为例，写个不成熟的公式；就以这两个公式来讲：首先表1是一天的数据？这个从设计上就不好，难道一天做一个表，那引用的时候还要从无数个表去引用数据；所以表1作为源数据，最好是有一个日期列，这样表2引用的时候就可以生成流水；
其次，A列的数据是以Z字型，还是倒Z字型引用源数据为结果，决定了公式的不同，没有要求自然就不知道该怎么写，这个公式是先行后列的倒Z字型引用
第三，B列公式右拉，到E列，得到的是其他支出，为什么，因为转出这一列设计的就不合理，一定要这么设计，那公式就需要单独写了，不能一个通用公式右拉；转出和其他支出位置互换，这样B:E列的公式就通用了，但是转出和手续费的公式依然要单独写，因为规律不同所以通用公式会非常长。所以如果源数据格式设计好，对函数公式的应用是非常重要的。

micch

mm329572201 发表于 2018-11-18 11:21
谢谢老师的回复，作为一个文科生数学一直不是很好，EXCEL表格也一直只是会基础操作而已，来到这个论坛之 ...

学习循序渐进比较好，你可以从最简单的表格做起，不要一开始就立这么大工程。

一个问题一个表格，不要想着把所有目的放在一个表格里，还想着一步就完成想要的结果。

多设表格，多用辅助，甚至辅助表格，逐步完成自己想要的目的；

等实现目的后，再逐步减少表格，减少辅助，直到能做到一个源表格，通过函数，公式，甚至代码得到自己想要的各种结果表格。
我从天猫还叫淘宝商城的时候就想做一个适合自己的账套，到现在都不需要了，都做不出一个自己的账套来，所以很渺小，建议适合不适合自己思量吧：
首先要知道自己有什么原始数据，然后是要什么结果表格，然后才是如果实现。
输入数据如果可以就一步到位做一个原始表包含所有的源数据；如果太复杂可以把原始数据分不同的表格输入，做几个源数据表格，以方便输入为准；然后把不同的源数据表格汇总为一个总的源数据，或者汇总为适合自己的不同源数据表；
然后自己想要什么数据，就做什么表格甚至制图，而从总的源数据表格到生成目的表格，如果复杂，中间就做辅助表，别怕表格多了麻烦，等你学懂了，就可以简化这个过程。

举个例子：你的目的是4个账户，4个表格，目前的格局，不利于应用函数；甚至将来你可能发现银行卡可能不止一个，还需要分银行做表格；

所以可以做一个统一规格的表，然后通过选择账户名称来实现不同账户的明细之间切换，而不是把4个表并列放置；这是个人建议，不一定适合你，

准提部林

粗略寫個VBA:
１）當天的日記帳輸入完成後，確定沒問題，在A3輸入密碼"1234"，執行〔過帳〕，即可將全部內容轉出．
２）现金／支付宝／微信／银行卡，各以獨立的工作表存放資料
３）隔天要進行輸入新資料，先執行〔清空內容〕，並更改〔日期〕，以免新舊資料重覆轉出
４）同一天的資料若重覆執行過帳，程式無法判別，須自行事先檢查
５）以下幾行代碼的〔繁體中文〕，自行改成〔簡體〕：
If Not IsDate([D3]) Then MsgBox "※日期錯誤或未輸入！　　": Exit Sub
If [A3] & "" <> "1234" Then MsgBox "※密碼錯誤！　　": Exit Sub
　
If MsgBox("※確定要清除本表輸入的內容嗎？　　", 1 + 32 + 256) = vbCancel Then Exit Sub
　
附件在樓下~~
　
　
　
　

准提部林

剛發的帖子還在宙核中,
附件公式有修改, 以這份為準:
Xl0000342.rar (20.39 KB, 下载次数: 22)

2018-11-18 13:40 上传

点击文件名下载附件

zhengyangzi2017

准提部林 发表于 2018-11-18 13:31
剛發的帖子還在宙核中,
附件公式有修改, 以這份為準:

这个是真的牛，正在研究怎么做出这个效果，没想到老师都做出来了.哈哈，忍不住继续编辑下我的这个帖子，我是把她的这个表，分成了四个单独的工作表，也引入了每天的点，但是我最笨的就是，我是做了30张工作表，因为我实在想不出来，如果单独设置，该怎么设定。
VBA我正在学习当中，所以没法去用。
准提部林老师的这段代码，同时也解决了我的一个大问题。
膜拜大神啊，对于我这个文科生来说，这个工作簿就是神一样的存在啊。