ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[准提方帖]請為三顆骰子(色子)計算點數

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-2-5 21:42 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 准提部林 于 2017-2-6 21:24 编辑

請為三顆骰子(色子)計算點數
TEST001.JPG

要求:
純公式,不使用參照表,不定義名稱.無輔助.無VBA.一個公式完成 
需求不難,請自由發揮,公式長短及版本不拘(2007以上者,恕無法驗證),
既為發帖主,就不提供自己的公式,所以,不會有標準答案,能正確得到結果就是好公式,
鮮花不多,若有遺漏者,請見諒!!!


點數計算規則.詳見附件:
_TTEST001.rar (93.77 KB, 下载次数: 60)


=========================================
謝謝各位的參加,真心感謝不吝費心費力共享精心的公式.
最後還是將拙作提供參考,若有誤請指正:
<一>數組,107字:
=CHOOSE(MAX(COUNTIF(A2:C2,A2:C2)),SUM((A2+B2+C2={6,15})*{-1,10}),-TEXT(MODE(A2:C2)*2-A2-B2-C2,"[=-1]1"),10)
<二>數組.107字:
=LOOKUP(11,IF({1,0},SUM((A2+B2+C2={6,15})*{-1,10}),--TEXT(SUM((A2:C2<>MODE(A2:C2))*A2:C2),"[=]10;[=1]-1")))
<三>數組.104字:
=CHOOSE(OR(A2=B2:C2)+(B2=C2)+1,SUM((A2+B2+C2={6,15})*{-1,10}),-TEXT(MODE(A2:C2)*2-A2-B2-C2,"[=-1]1"),10)
 
<四>一般.120字:
=LOOKUP(11,CHOOSE({1,2,3},SUM((A2+B2+C2={6,15})*{-1,10}),-TEXT(MODE(A2:C2)*2-A2-B2-C2,"[=-1]1"),MODE(A2:C2,0,0,0)^0*10))
<五>一般.116字:
=LOOKUP(11,CHOOSE({1,2,3},SUM((A2+B2+C2={6,15})*{-1,10}),-TEXT(MODE(A2:C2)*2-A2-B2-C2,"[=-1]1"),10/(A2=B2)/(B2=C2)))
 
<六>數組.98字:
=LOOKUP(A2+B2+C2-MODE(A2:C2,8,8)*(2+AND(A2=B2:C2)),{-10,-9,-1,1,2,3,4,5,6},{-1,0,10,-1,2,3,4,5,6})
<七>一般,100字:
=LOOKUP(A2+B2+C2-MODE(A2:C2,8,8)*2-MODE(A2:C2,0,0,0),{-10,-9,-1,1,2,3,4,5,6},{-1,0,10,-1,2,3,4,5,6})
 
 

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-2-5 23:36 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-2-5 23:39 | 显示全部楼层
本帖最后由 准提部林 于 2017-2-5 23:41 编辑


是的, 三子不同, 只計算123=-1及456=10
123莊家通賠, 456莊家通吃, 這是台灣的玩法!!!


TA的精华主题

TA的得分主题

发表于 2017-2-5 23:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
公式有点长,请验证
=LOOKUP(--LEFT(MAX(FREQUENCY(A2:C2,ROW($1:$5)))*10^6+SUM(FREQUENCY(A2:C2,ROW($1:$5))*10^{5;4;3;2;1;0}),4),{1000;1001;1111;2000;2100;2200;3000},CHOOSE({1;2;3;4;5;6;7},10,0,-1,MAX((COUNTIF(A2:C2,A2:C2)=1)*A2:C2),-1,MAX((COUNTIF(A2:C2,A2:C2)=1)*A2:C2),10))
三键

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-2-6 08:33 | 显示全部楼层
  1. =IF(ISNA(MODE(A2:C2)),LOOKUP(A2^2+B2^2+C2^2,{0,15,77},{-1,0,10}),--TEXT(SUM(IF(A2:C2=MODE(A2:C2),0,A2:C2)),"[=1]-1;[=0]10;0"))
复制代码


數組

TA的精华主题

TA的得分主题

发表于 2017-2-6 08:49 | 显示全部楼层
簡化一下 117字元

  1. =IF(MODE(A2:C2,0,0),--TEXT(SUM(IF(A2:C2=MODE(A2:C2),0,A2:C2)),"[=1]-1;[=0]10;0"),LOOKUP(A2+B2+C2,{0,7,15},{-1,0,10}))
复制代码

TA的精华主题

TA的得分主题

发表于 2017-2-6 08:53 | 显示全部楼层
簡化一下 113字元

  1. =IF(MODE(A2:C2,0,0),--TEXT(SUM(IF(A2:C2=MODE(A2:C2),0,A2:C2)),"[=1]-1;[=0]10;0"),11^(A2+B2+C2=15)-2^(A2+B2+C2=6))
复制代码

TA的精华主题

TA的得分主题

发表于 2017-2-6 08:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
借piny版主5楼公式:
  1. =IF(ISNA(MODE(A2:C2)),LOOKUP(SUM(A2:C2),{6,7,15},{-1,0,10}),--TEXT(SUM(IF(A2:C2=MODE(A2:C2),0,A2:C2)),"[=1]-1;[=0]10;0"))
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-2-6 09:18 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
簡化一下 110字元

  1. =--IF(MODE(A2:C2,0,0),TEXT(SUM(IF(A2:C2=MODE(A2:C2),,A2:C2)),"[=1]-1;[=0]10;0"),10*(A2+B2+C2=15)-(A2+B2+C2=6))
复制代码

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-2-6 09:46 | 显示全部楼层
piny 发表于 2017-2-6 09:18
簡化一下 110字元

piny版主,是否可以去掉前面的“--”,文本数字显示,再减两字符?
你的思路真令我望尘莫及,五体投地!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

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

GMT+8, 2024-4-26 22:28 , Processed in 0.043363 second(s), 19 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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