[征集专题] Excel函数在各行业中的典型应用【可获技术分】阅至683楼

obsr

学习学习再学习

chickingone

都是好资料，可惜能力有限，努力学习！！！

gao0979

好玩，转了，呵呵

任我行之狂风

太好了，学习中……

hswuxing

正在学习中，准备做工程预算表，估计要用到一些简单函数，数据有效性，定义等等！

吾股丰登

新人来也，不知道能否给点面子 给个技术分
这是对账函模板  涉及条件格式，大写转换，以及一些日期函数等，另外用宏代码（本人刚接触VBA，属于初级中的初级水平），这是个人工作中在去年设计的，一直沿用至今的（最近没时间去做更好的改进，不好意思）
毕竟楼主的主要目的是应用实例，所以把自己的这个垃圾东西搬上来凑热闹了

HANFEIZI

喜欢这样的论坛！！没有太多困扰！

吾股丰登

一个关于考勤记录的  显示每天早中晚三次符合条件的最早的打卡时间，均无打卡的则显示矿工。
前不久花了10来个小时给本论坛的一个不认识的坛友设计的
（当时我是另外一个ID，昨天开始改用新ID了  因为以前的那ID不太好听
如果是版主或者管理员可以通过IP查询到我以前的ID的）
总之是花了大力气设计的  用宏按钮执行即可
里面设计好几个自定义名称  如下



打卡时间        =IF(打卡时间!O$2="早",MIN(IF((数据区间数值>=早时间1)*(数据区间数值<=早时间2),数据区间数值,1)),IF(打卡时间!O$2="中",MIN(IF((数据区间数值>=中时间1)*(数据区间数值<=中时间2),数据区间数值,1)),MAX(IF((数据区间数值>=晚时间1)*(数据区间数值<=晚时间2),数据区间数值,0))))
全部时间区间        =OFFSET(数据!$A$1,SMALL(IF(数据!$A$1:$A$1997=#REF!$B422,ROW(#REF!$1:$2000),4^8),1)-1,4,COUNTIF(数据!$A:$A,#REF!$B422),10)
日期时间区间        =OFFSET(数据!$A$1,SMALL(IF(AND(数据!$A$1:$A$1997=#REF!$B423,DATEVALUE(数据!$D$1:$D$1997)=OFFSET(#REF!$C$1,,INT(COLUMN()/3))),ROW(#REF!$1:$2000),4^8),1)-1,4,COUNTIF(数据!$A:$A,#REF!$B423),10)
数据行数        =SUM(IF((OFFSET(数据!$A$2,,,COUNTA(数据!$A:$A)-1,)=打卡时间!$B424)*(DATEVALUE(OFFSET(数据!$D$2,,,COUNTA(数据!$A:$A)-1,))=打卡时间!O$1),1,0))
数据区间数值        =OFFSET(数据!$A$1,向下移动行,4,数据行数,10)^1
数据区间数值转换        =IF(MIN(数据区间数值),MIN(数据区间数值),1)
晚时间1        =TIMEVALUE("17:00:00")
晚时间2        =TIMEVALUE("18:10:00")
向下移动行        =SMALL(IF((OFFSET(数据!$A$2,,,COUNTA(数据!$A:$A)-1,)=打卡时间!$B429)*(DATEVALUE(OFFSET(数据!$D$2,,,COUNTA(数据!$A:$A)-1,))=打卡时间!O$1),ROW(OFFSET(数据!$A$2,,,COUNTA(数据!$A:$A)-1,)),4^8),1)-1
早时间1        =TIMEVALUE("07:00:00")
早时间2        =TIMEVALUE("08:10:00")
中时间1        =TIMEVALUE("13:00:00")
中时间2        =TIMEVALUE("14:00:00")

charmingming

自己设计的，

高玉甫

杨先生，您好！
    您在网址 http://club.excelhome.net/thread-247994-69-1.html### -683楼的附件我看了，很不错，我下载了并正在学习，谢谢您。
   您说您“所提供的附件是本人为一家乡级卫生院设计的门诊收费应用系统的基础上简化修改而成的”，那么，您的用VBA代码编成的“门诊收费”系统一定更好。我是一名乡镇卫生院的工作人员，正需要这样的东西，能否把您的用VBA代码编写的医院“门诊收费”系统发给我一份呢？不知您是否舍得。
    以上请求，请杨先生予以施舍，为盼。