ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

迭代试算找结果,所有最佳组合放到下拉菜单

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-2-2 21:04 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
组孩子起名,规则:属于迭代试算限制条件后出结果,保证五项都为吉后,把相关的名找出来,放到下拉菜单。。1、人格名=天格笔画数+人格笔画数,为吉。示例:钱姓,16画,人格笔画数“吉”数组中找
出所有可能数有,16+1画=17为吉; 16+2画=18 为吉;16+5画=21 为吉;。。。。。此,{1画、2画、5画。。。}可选用,暂存。
2、地格名=人格笔画数+地格笔画数,为吉。示例:人格笔画数组{1,2,5。。。。},每个都试算,如,1画,地格笔画数“吉”数组中找
出所有可能数有,1+2画=3为吉; 1+4画=5 为吉;1+5画=6 为吉;。。。。。此,2画、4画、5画。。。可选用,暂存
3、总格名(属于限制性条件)=天格笔画数+人格笔画数+地格笔画数,为吉。示例:天格笔画数:16;人格笔画数组{1,2,5。。。。},地格笔画数组{2,4,5。。。};总格笔画数“吉”数组中找出所有可能数有,16+1画+2画=19为凶(人格1画和地格2画组合过滤掉);16+1画+4画=21 为吉(人格1画+地格4画组合保留)如果此组合在总格和外格约束条件下都为吉成立,人格下拉菜单为1画的字,地格只能是保留4画的字,其它都一样;16+1画+5画=22 为凶(人格1画和地格5画组合过滤掉);。。。。。此时,21。。。暂存,
4、外格名(属于限制性条件)=总格笔画数-人格笔画数+1,为吉。示例:总格笔画数:21;人格笔画数组留下的{1,2,5。。。。};总格笔画数“吉”数组中找出所有可能数有,21-1+1=19为凶(总格为21时人格1画过滤掉);21-2+1=18 为吉;21-5+1=17 为吉;。。。。。此时人格1画,地格4画不能保证外格吉,组合过滤掉。再试其它的,最后最佳组合放在人格和地格下拉菜单。谢谢。
点天格下拉菜单,显示笔画数17
吉 = Array(1, 3, 5, 6, 7, 8, 11, 13, 15, 16, 17, 18, 21, 23, 24, 25, 29, 31, 32, 33, 35, 37, 39, 41, 45, 47, 48, 52, 55, 57, 61, 63, 65, 67, 68, 81) '
凶 = Array(2, 4, 9, 10, 12, 14, 19, 20, 22, 26, 27, 28, 30, 34, 36, 38, 40, 42, 43, 44, 46, 49, 50, 51, 53, 54, 56, 58, 59, 60, 62, 64, 66, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80) ' 起名.zip (62 KB, 下载次数: 5)



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

本版积分规则

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

GMT+8, 2024-11-25 21:41 , Processed in 0.023790 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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