ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[Excel 函数与公式] [开_148]计算单月销售金额最高的月份(已评分总结)

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2014-10-14 10:39 | 显示全部楼层
本帖最后由 fugb-2010 于 2014-10-17 07:12 编辑

F15=TEXT(MOD(MAX(MMULT((COLUMN(A:OI)<=ROW(1:399))*(TRANSPOSE(B2:B400)>=--TEXT(B2:B400,"e-m")),C2:C400)*10^5+B2:B400),10^5),"e年m月")

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-10-14 12:11 | 显示全部楼层
还是一直用2003版的,常规思路
=TEXT(INDEX(B:B,RIGHT(MAX(MMULT((TEXT(B2:B731,"em")=TRANSPOSE(TEXT(B2:B731,"em")))*TRANSPOSE(C2:C731),ROW(2:731)^0)/1%%+ROW(2:731)),3)),"e年m月")

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-10-14 20:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 kuangben8 于 2014-10-19 00:59 编辑

含=号136字符。
  1. =TEXT(MOD(MAX(SUMIFS(C:C,B:B,">"&DATE(2013,COLUMN(A:X),0),B:B,"<"&DATE(2013,COLUMN(B:Y),1))*10^5+EDATE(41244,COLUMN(A:X))),10^5),"e年m月")
复制代码
允许设置单元格格式,含=号123字符。
  1. =MOD(MAX(SUMIFS(C:C,B:B,">"&DATE(2013,COLUMN(A:X),0),B:B,"<"&DATE(2013,COLUMN(B:Y),1))*10^5+EDATE(41244,COLUMN(A:X))),10^5)
复制代码











在减一点,含=号118字符。
  1. =TEXT(MOD(MAX(MMULT(SUMIF(B:B,">"&DATE(2013,ROW(1:24)+{0,1},0),C:C),{1;-1})*10^5+DATE(2013,ROW(1:24),1)),10^5),"e年m月")
复制代码

再想想吧。。。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-10-18 13:52 | 显示全部楼层
  1. =TEXT(DATE(2013,100*MOD(MAX(SUMIFS(C:C,B:B,"<="&DATE(2013,ROW(2:25),),B:B,">="&DATE(2013,ROW(1:24),1))+ROW(1:24)%),1),1),"yyyy年m月")
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-10-19 09:23 | 显示全部楼层
本帖最后由 apirl2008 于 2014-10-22 15:01 编辑
  1. =TEXT(LOOKUP(,0/(MAX(MMULT(TRANSPOSE(ROW(A2:A731))^0,(DATE(YEAR(B2:B731),MONTH(B2:B731),1)=DATE(2013,COLUMN(A1:X1),1))*C2:C731))=MMULT(TRANSPOSE(ROW(A2:A731))^0,(DATE(YEAR(B2:B731),MONTH(B2:B731),1)=DATE(2013,COLUMN(A1:X1),1))*C2:C731)),DATE(2013,COLUMN(A1:X1),1)),"yyyy年M月")
复制代码
居然有人说这是送分题,我怎么解的这么的费劲呢?275个字符,好长啊。。。。
  1. =TEXT(DATE(2013,MATCH(MAX(SUMIFS(C2:C731,B2:B731,">="&DATE(2013,COLUMN(A1:X1),1),B2:B731,"<"&DATE(2013,COLUMN(A1:X1)+1,1))),SUMIFS(C2:C731,B2:B731,">="&DATE(2013,COLUMN(A1:X1),1),B2:B731,"<"&DATE(2013,COLUMN(A1:X1)+1,1)),),1),"yyyy年M月")
复制代码
省了一点点,236个字符,继续省
  1. =TEXT(MOD(MAX(SUMIFS(C2:C731,B2:B731,">="&DATE(2013,COLUMN(A1:X1),1),B2:B731,"<"&DATE(2013,COLUMN(A1:X1)+1,1))/1%%%+DATE(2013,COLUMN(A1:X1),1)),10^6),"yyyy年M月")
复制代码

一下子又省掉了几十个字符,比吃肉还开心呢,哈,继续省
  1. =MOD(MAX(SUMIFS(C2:C731,B2:B731,">="&DATE(2013,COLUMN(A1:X1),1),B2:B731,"<"&DATE(2013,COLUMN(A1:X1)+1,1))/1%%%+DATE(2013,COLUMN(A1:X1),1)),10^6)
复制代码

去掉外层的text,144个字符,能过关么?日期格式直接用设置单元格来解决吧。。。。。没办法了、、、、、

  1. =TEXT(MOD(MAX(MMULT(TRANSPOSE(ROW(A2:A731))^0,(IFERROR(DATEDIF("2013/1/1",$B$2:$B$731,"M"),4^8)+1=COLUMN(A1:X1))*C2:C731)/1%%%+DATE(2013,COLUMN(A1:X1),1)),10^6),"yyyy年M月")
复制代码

额。。。。。没省下来,又涨了一些,171字符
  1. =TEXT(RIGHT(MAX(MMULT(TRANSPOSE(ROW(A2:A731))^0,(IFERROR(DATEDIF("2013/1/1",$B$2:$B$731,"M"),4^8)+1=COLUMN(A1:X1))*C2:C731)/1%%%+DATE(2013,COLUMN(A1:X1),1)),5),"yyyy年m月")
复制代码

决定再也不想了,坐等优秀答案(再想就剁手!)

点评

144字符的结果不正确,看70楼的第4条。  发表于 2014-10-29 00:13
。。。哈哈,请上传手照。  发表于 2014-10-24 21:45
酸梅,软妹子还是女汉子?  发表于 2014-10-24 16:48
这个“再想就剁手”还真是有趣!!!有个性!!!EH的女侠们都如此……  发表于 2014-10-24 10:47
四姐又出山啦?  发表于 2014-10-24 08:09

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-10-19 10:58 | 显示全部楼层
来一个玩玩,没有细想
  1. =TEXT(DATE(2013,RIGHT(MAX(SUMIFS(C:C,B:B,"<"&DATE(2013,ROW(2:25),1),B:B,">"&DATE(2013,ROW(1:24),))/1%+ROW(2:25)),2),),"e年m月")
复制代码
  1. =TEXT(DATE(2013,RIGHT(MAX(MMULT(TRANSPOSE(C2:C731)+0,N(TEXT(B2:B731,"em")=TEXT(DATE(2013,COLUMN(B:Y),),"em")))/1%+COLUMN(B:Y)),2),),"e年m月")
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-10-20 07:02 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
F15=TEXT(DATE(2013,100*MOD(MAX(SUMIFS(C2:C731,B2:B731,">"&DATE(2013,ROW(1:24),),B2:B731,"<"&DATE(2013,ROW(2:25),1))+ROW(1:24)%),1),1),"e年m月")
数组
如果光要长度不要速度的话,取整列
=TEXT(DATE(2013,100*MOD(MAX(SUMIFS(C:C,B:B,">"&DATE(2013,ROW(1:24),),B:B,"<"&DATE(2013,ROW(2:25),1))+ROW(1:24)%),1),1),"e年m月")

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-10-21 00:04 | 显示全部楼层
凑个热闹:
  1. =INDEX((2012+INT(ROW(12:35)/12)&"年"&MOD(ROW(12:35),12)+1)&"月",RIGHT(MAX(MMULT(-(TEXT(TRANSPOSE(B2:B731),"yy-m")=12+INT(ROW(12:35)/12)&"-"&MOD(ROW(12:35),12)+1),-C2:C731)/1%+ROW(1:24)),2))
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-10-22 13:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 素锦流年つ 于 2014-10-22 14:07 编辑

=TEXT(OFFSET(B1,MATCH(MAX(MMULT(--(TRIM(LEFT(SUBSTITUTE(TEXT(INDIRECT("B2:B"&MATCH(LOOKUP(4^8,B:B),B:B,)),"yyyy-m-d"),"-",REPT(" ",5),2),7))=TRANSPOSE(TRIM(LEFT(SUBSTITUTE(TEXT(INDIRECT("B2:B"&MATCH(LOOKUP(4^8,B:B),B:B,)),"yyyy-m-d"),"-",REPT(" ",5),2),7)))),INDIRECT("C2:C"&MATCH(LOOKUP(4^8,B:B),B:B,)))),MMULT(--(TRIM(LEFT(SUBSTITUTE(TEXT(INDIRECT("B2:B"&MATCH(LOOKUP(4^8,B:B),B:B,)),"yyyy-m-d"),"-",REPT(" ",5),2),7))=TRANSPOSE(TRIM(LEFT(SUBSTITUTE(TEXT(INDIRECT("B2:B"&MATCH(LOOKUP(4^8,B:B),B:B,)),"yyyy-m-d"),"-",REPT(" ",5),2),7)))),INDIRECT("C2:C"&MATCH(LOOKUP(4^8,B:B),B:B,))),),),"yyyy年m月")

点评

不容易,建议给你额外奖励。  发表于 2014-10-28 22:55
公式很威武,有人提议送女子!  发表于 2014-10-26 12:57

评分

3

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-10-24 00:41 | 显示全部楼层
本帖最后由 cleverzhzhf 于 2014-10-30 00:24 编辑

评分规则见附件,由于最近时间较紧,可能测试过程中难免有些疏漏。错误与疑问之处可直接与我联系。
如没有问题过些时日加分,并进行题目分析和答案思路总结。

简单说几点评分内容:
1、3楼一剑惊心老师的答案突破100字符,额外奖励1技术分
2、多占楼层扣财富
3、超过字符数,答案正确奖励30财富
4、对于修改单元格格式的,并答案接近的,奖励20财富,但并不能得到与截图一致的答案,因为:
    1)文本型数据,默认单元格左对齐
    2)数值型数据,默认单元格右对齐
计算单月销售金额最高的月份(答案汇总测试v2).rar (49.28 KB, 下载次数: 127)
计算单月销售金额最高的月份(评分).png

点评

额。。。。。哥,你就不能挑我最短的那个公式来测试啊,好歹俺也有个140个字符的公式呢  发表于 2014-10-28 09:18
学导辛苦了……能不能转一个2003版的?  发表于 2014-10-24 10:48

评分

4

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-5-9 10:48 , Processed in 0.048366 second(s), 22 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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