ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[Excel 函数与公式] [开_150]斗牛游戏[已总结]

[复制链接]

TA的精华主题

TA的得分主题

发表于 2015-7-9 19:51 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 wangg913 于 2015-7-13 20:47 编辑

凑一个。组合
  1. =IFERROR(TEXT(MOD(1&-3&MAX(-RIGHT(MMULT((A2:E2<10)*A2:E2,100^MID(0&111001110101101,TEXT(COLUMN(A:K),"[=6]5")+ROW($1:$5),1)),3))-10,10),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
MUNIT 是2013版函数。不用组合
  1. =IFERROR(TEXT(MOD(3&-3&MAX(IF(MUNIT(5)=0,-RIGHT(SUM((A2:E2<10)*A2:E2)/1%-((A2:E2<10)*A2:E2+TRANSPOSE((A2:E2<10)*A2:E2))*99,3)))-10,10),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
  1. =IFERROR(TEXT(RIGHT(10^(2&MIN(IF(MUNIT(5)=0,MOD(SUM((A2:E2<10)*A2:E2)/1%-((A2:E2<10)*A2:E2+TRANSPOSE((A2:E2<10)*A2:E2))*99,1000))))),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
IFNA 是2013的函数,否则改为 IFERROR。还是组合
  1. =IFNA(TEXT(HLOOKUP("3?0*",MID(MMULT(100+(A2:E2<10)*A2:E2,1000^INT(MOD(COLUMN(A:AC)/2^ROW($1:$5)*2,2)))&"",{1;6},{6;1}),2,),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
再减
  1. =IFNA(TEXT(RIGHT(HLOOKUP("3?0*",""&MMULT(100+(A2:E2<10)*A2:E2,1000^ISODD(COLUMN(N:BD)/2^ROW($1:$5))),1,)),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
COLUMN(N:BD) 改成 COLUMN(1:1) ,还能减一个字,就是慢很多。

评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-11 14:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 唐伯狼 于 2015-7-12 15:29 编辑

复制代码
  1. =IF(SMALL(MOD(SUM(1*TEXT(A2:E2,"[>10]1!0"))-SMALL(IF(ROW($1:$5)<>COLUMN(A:E),1*TEXT(A2:E2,"[>10]1!0")+TRANSPOSE(1*TEXT(A2:E2,"[>10]1!0"))),ROW($1:$10)*2),10),1)=0,TEXT(MOD(SUM(1*TEXT(A2:E2,"[>10]1!0")),10),"0点;;牛"), LARGE(A2:E2,1)&"大")
复制代码
235个字符
  1. =IF(MIN(MOD(SUM(1*TEXT(A2:E2,"[>10]1!0"))-SMALL(IF(ROW($1:$5)<>COLUMN(A:E),1*TEXT(A2:E2,"[>10]1!0")+TRANSPOSE(1*TEXT(A2:E2,"[>10]1!0"))),ROW($1:$10)*2),10))=0,TEXT(MOD(SUM(1*TEXT(A2:E2,"[>10]1!0")),10),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
226字符  思路不对
  1. =IF(MIN(MOD(SUM(1*TEXT(A2:E2,"[>10]1!0"))-SMALL((ROW(1:5)<>COLUMN(A:E))*(TEXT(A2:E2,"[>10]1!0")+TRANSPOSE(TEXT(A2:E2,"[>10]1!0"))),ROW($1:$10)*2),10))=0,TEXT(MOD(SUM(1*TEXT(A2:E2,"[>10]1!0")),10),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
220


  1. =IF(MIN(MOD(SUM(IF(A2:E2>10,10,A2:E2))-SMALL(IF(ROW($1:$5)<>COLUMN(A:E),IF(A2:E2>10,10,A2:E2)+TRANSPOSE(IF(A2:E2>10,10,A2:E2))),ROW($1:$10)*2),10))=0,TEXT(MOD(SUM(IF(A2:E2>10,10,A2:E2)),10),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
214



思路二。  不让用不连续的手工数组,连续的总可以用吧。不可以把{4,3,2,1,0}换成(5-COLUMN(A:E))
  1. =IF(MIN(MOD(LARGE(MMULT(MOD(INT(ROW($1:$31)/2^{4,3,2,1,0}),2)*(MMULT(MOD(INT((ROW($1:$31))/2^{4,3,2,1,0}),2),ROW($1:$5)^0)=3),SMALL(--TEXT(A2:E2,"[>10]1!0"),ROW($1:$5))),ROW($1:$10)),10))=0,TEXT(MOD(SUM(1*TEXT(A2:E2,"[>10]1!0")),10),"0点;;牛"),MAX(A2:E2)&"大")
复制代码
257个字符


评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-11 21:50 | 显示全部楼层
本帖最后由 soar.xiaolei 于 2015-7-11 22:18 编辑
  1. =IF(AND(MOD(SUM(IF(A2:E2>10,10,A2:E2))-IF(ROW($1:$5)<>COLUMN(A:E),IF(A2:E2>10,10,A2:E2)+TRANSPOSE(IF(A2:E2>10,10,A2:E2)),0.1),10)),MAX(A2:E2)&"大",TEXT(-RIGHT(SUM(IF(A2:E2>10,10,A2:E2))),"牛;0点"))
复制代码

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-14 15:12 | 显示全部楼层
本帖最后由 delete_007 于 2015-8-24 10:12 编辑

勉强达到148字符
  1. =IFERROR(TEXT(RIGHT(SUMIF(A2:E2,"<11")/OR(MOD(MMULT((A2:E2<11)*A2:E2*10+1,MOD(INT(COLUMN(A:AF)/2^ROW($1:$5)*2),2)),100)=3)),"0点;;牛"),MAX(A2:E2)&"大")
复制代码

03版 152
=TEXT(-1^OR(MOD(MMULT((A2:E2<11)*A2:E2*10+1,MOD(INT(COLUMN(A:AF)/2^ROW($1:$5)*2),2)),100)=3)*RIGHT(SUMIF(A2:E2,"<11")),TEXT(MAX(A2:E2),"#\\#")&"大;0点;牛")

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-20 13:54 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
  1. =IF(MIN(MOD(IF({1;2;3;4}={2,3,4,5},9,SUMIF(A2:E2,"<10")-(B2:E2<10)*B2:E2-TRANSPOSE((A2:D2<10)*A2:D2)),10)),MAX(A2:E2)&"大",TEXT(-RIGHT(SUMIF(A2:E2,"<10")),"牛;0点"))
复制代码

数组

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-22 09:11 | 显示全部楼层
本帖最后由 delete_007 于 2015-8-20 12:41 编辑

一法:=TEXT(IFERROR(LOOKUP(10,TEXT(RIGHT(MMULT(TEXT(N(OFFSET(A2,,MID({12;13;14;15;23;24;25;34;35},{1,2},1)-1)),"[>10]!0")*1,{1;1})),"[="&RIGHT(SUM(IF(A2:E2>10,,A2:E2)))&"]0;")*1),MAX(A2:E2)&"大"),"0点;;牛")

贰法:=TEXT(IFERROR(LOOKUP(,-TEXT(RIGHT(LARGE((IF(A2:E2>10,,A2:E2)+TRANSPOSE(IF(A2:E2>10,,A2:E2)))*(ROW($1:$5)>{1,2,3,4,5}),ROW($1:$10))),"[="&RIGHT(SUM(IF(A2:E2>10,,A2:E2)))&"]0;")),MAX(A2:E2)&"大"),";0点;牛");

三法:
  1. =TEXT(IFERROR(LOOKUP(,(MATCH(MOD(SUM(A2:E2*(A2:E2<10))-A2:E2*(A2:E2<10),10),IF(A2:E2>9,,A2:E2),)<>{1,2,3,4,5})^0*-RIGHT(SUM(A2:E2*(A2:E2<10)))),MAX(A2:E2)&"大"),";0点;牛")
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-22 16:29 | 显示全部楼层
  1. =IFERROR(TEXT(RIGHT(SUM(IF(A2:E2>9,,A2:E2)*(1-MID(DEC2BIN(TEXT(MAX(IF(MOD(TEXT(MMULT(IF(A2:E2>9,,A2:E2)%+1,--MID(DEC2BIN(COLUMN(A:AE),5),ROW($1:$5),1)),"[>4]1%;[<3]1%;.00")/1%,10),,COLUMN(A:AE))),"0;;"),5),COLUMN(A:E),1)))),"#点;;牛"),MAX(A2:E2)&"大")
复制代码


拼了老命搞才到250以下,过段时间忙了也没事研究了。发上来参与一下吧。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-23 13:13 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 delete_007 于 2015-8-20 12:42 编辑
  1. =IF(COUNT(0/(MATCH(MOD(SUMIF(A2:E2,"<10")-(A2:E2<10)*A2:E2,10),(A2:E2<10)*A2:E2,)-COLUMN(A:E))),TEXT(RIGHT(SUMIF(A2:E2,"<10")),"0点;;牛"),MAX(A2:E2)&"大")
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-25 19:38 | 显示全部楼层
本帖最后由 delete_007 于 2015-8-20 12:42 编辑
  1. =IF(OR(MOD(MMULT(IF(A2:E2>=10,,A2:E2),-MID(MID(111001110101101,COLUMN(A:J)+INT(COLUMN(A:J)/6),5),ROW($1:$5),1)),10)=0),TEXT(MOD(SUM(IF(A2:E2>=10,,A2:E2)),10),"[>0]0点;牛"),MAX(A2:E2)&"大")
复制代码


185字符,不知道算不算,来学习了

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-7-27 11:19 | 显示全部楼层
本帖最后由 delete_007 于 2015-8-20 12:43 编辑
jokie0913 发表于 2015-7-8 17:01
=IF(SUM(IF(MOD(ROW($1:$25),6)=1,,IF(MOD(LOOKUP(MOD(ROW($1:$25)-1,5)+1,ROW($1:$5),(A16:E16

=IF(OR((MOD((A2:E2<10)*A2:E2+TRANSPOSE((A2:E2<10)*A2:E2)-SUM((A2:E2<10)*A2:E2),10)=0)*(COLUMN(A:E)<>ROW($1:$5))),IF(MOD(SUM((A2:E2<10)*A2:E2),10),MOD(SUM((A2:E2<10)*A2:E2),10)&"点","牛"),MAX(A2:E2)&"大")

一维生物进化为二维生物,缩短到200字符整

  1. =IF(OR((MOD((A2:E2<10)*A2:E2+TRANSPOSE((A2:E2<10)*A2:E2)-SUM((A2:E2<10)*A2:E2),10)=0)*(COLUMN(A:E)<>ROW($1:$5))),TEXT(MOD(SUM((A2:E2<10)*A2:E2),10),"0点;;牛"),MAX(A2:E2)&"大")
复制代码


再减减,172字符

评分

1

查看全部评分

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

本版积分规则

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

GMT+8, 2024-12-23 10:03 , Processed in 0.053441 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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