[已解决]百十个输入0-9任意几个数 组合成三个为一组 的号码复试输入任意码 直选组选组号器！

neicezhanghao

大意     分别从百十个位选择0-9若干个数，
         组合成3个数为一组的号码！

条件1   分别在百，十，个位输入0-9任意几个数
                        
条件2        豹子，组三，组六后面的方块中可以点击
        对号或取消对号，包括或排除的意思
                        
条件3        点击确定或转为组选后，运算组合结果显
        示在下方空白区域。

条件4   运算后的结果区域中有多少注号就在注数
        后面的空白单元格（G4）中显示多少

豹子 就是三个一样的数 如 000 111 222 333
组三 就是对子号 如 001 010 100
组六 就是完全不同的号 如  123 132 213 231 312 321

确定后 也就全部组合 称为 直选 （也就是百十个位置一样）
转为组选 就是 位置不限 如 123 132 213 231 312 321 转为组选后 123


如果实在看不懂我说的 有现成的 在线排列 参考

网址不让发把网址中的@去掉！http@://www@.55128.cn/tool/3d_fs_array.aspx

最佳答案

月排行榜 / 总排行榜

lichuanboy44

2015-11-21 17:45

neicezhanghao 发表于 2015-11-20 17:19
完美解决者 RMB 奖励！

      我在“金樽空对月”老师的代码基础上，进一步完善了此程序。因为我较懂3D,故将程序界面重新进行了设计，且加上了“和值”这一直选和组选方法。
     此程序排列编程相对容易一些，即将个十百三位数依次各取一个，如果个十百三位完全不相等时，则为"组六"；有其中两个数相等时，则为"组三"(但三个都相等的除外)；三个数都相等的则为"豹子"。
    程序完善后，可以实现豹子、组三、组六任意单选或复合多选，打勾即为选取，无勾则为排除。具体如下：
        1.直选：从豹子、组三、组六三个复选按钮中，单选或任意多选后,再按"直选"键,结果为指定数的所有排列；
        2.组选：在上述排列(直选)的基础上,再按"转为组选"，结果为所有组合；
        3.和值：B3单元格输入和值，再按"和值直选"键,结果为指定和值的所有排列；
       4.组选前提条件：必须先有直选，然后才能将直选数据转成组选。因组选数据来源于直选的结果。
       6.如果全部不选,则视为全选处理。
要从众多排列中筛选出组合，我费了一点心思。主要思路是如下：
       1.将直选的所有数据通过split空格转为数组；
       2.将每个直选数据通过 mid生成一个临时数组，然后在数组中进行升序排序，这是关键的。
       3.用字典进行重复值判断，如果排序后的值字典中存在，则忽略，否则，加入字典。
       4.最后说是正确的结果了，将字典的keys值用Join连接起来。
       达到了要求，给个最佳就、赏个金币就行，祝中奖！！

跳转到最佳答案楼层

lichuanboy44

neicezhanghao 发表于 2015-11-20 17:19
完美解决者 RMB 奖励！

      我在“金樽空对月”老师的代码基础上，进一步完善了此程序。因为我较懂3D,故将程序界面重新进行了设计，且加上了“和值”这一直选和组选方法。
     此程序排列编程相对容易一些，即将个十百三位数依次各取一个，如果个十百三位完全不相等时，则为"组六"；有其中两个数相等时，则为"组三"(但三个都相等的除外)；三个数都相等的则为"豹子"。
    程序完善后，可以实现豹子、组三、组六任意单选或复合多选，打勾即为选取，无勾则为排除。具体如下：
        1.直选：从豹子、组三、组六三个复选按钮中，单选或任意多选后,再按"直选"键,结果为指定数的所有排列；
        2.组选：在上述排列(直选)的基础上,再按"转为组选"，结果为所有组合；
        3.和值：B3单元格输入和值，再按"和值直选"键,结果为指定和值的所有排列；
       4.组选前提条件：必须先有直选，然后才能将直选数据转成组选。因组选数据来源于直选的结果。
       6.如果全部不选,则视为全选处理。
要从众多排列中筛选出组合，我费了一点心思。主要思路是如下：
       1.将直选的所有数据通过split空格转为数组；
       2.将每个直选数据通过 mid生成一个临时数组，然后在数组中进行升序排序，这是关键的。
       3.用字典进行重复值判断，如果排序后的值字典中存在，则忽略，否则，加入字典。
       4.最后说是正确的结果了，将字典的keys值用Join连接起来。
       达到了要求，给个最佳就、赏个金币就行，祝中奖！！

neicezhanghao

如果各位嫌麻烦 可以省略一部分  只要 输入 百十个位 若干数 点击确定 显示全部 组合就行！ 转为组选 豹子组三组六 部分可以去掉！！！！求老师帮帮小弟吧！

金樽空对月

你的豹子、组三和组六分别是什么意思？

grf1973

不知豹子，组三，组六是何意。仅做全排列。

1. Sub 生成组()
   
2.     a = [c2]: b = [c3]: c = [c4] '百十个位
   
3.     For i = 1 To Len(a)
   
4.         aa = Mid(a, i, 1)
   
5.         For j = 1 To Len(b)
   
6.             bb = Mid(b, j, 1)
   
7.             For k = 1 To Len(c)
   
8.                 cc = Mid(c, k, 1)
   
9.                 x = x & " " & aa & bb & cc
   
10.                 n = n + 1
    
11.             Next
    
12.         Next
    
13.     Next
    
14.     [b5] = Trim(x)
    
15.     [g4] = n
    
16. End Sub
    

复制代码

neicezhanghao

金樽空对月 发表于 2015-11-20 16:32
你的豹子、组三和组六分别是什么意思？

豹子 就是三个一样的数 如 000 111 222 333
组三 就是对子号 如 001 010 100
组六 就是完全不同的号 如  123 132 213 231 312 321

neicezhanghao

grf1973 发表于 2015-11-20 16:42
不知豹子，组三，组六是何意。仅做全排列。

豹子 就是三个一样的数 如 000 111 222 333
组三 就是对子号 如 001 010 100
组六 就是完全不同的号 如  123 132 213 231 312 321

neicezhanghao

完美解决者 RMB 奖励！

金樽空对月

neicezhanghao 发表于 2015-11-20 17:19
完美解决者 RMB 奖励！

这么诱惑？

neicezhanghao

金樽空对月 发表于 2015-11-20 18:58
这么诱惑？

诱惑到提不上吧！只是我也感觉的确有点麻烦！用RMB鼓励下吧！真给！

金樽空对月

neicezhanghao 发表于 2015-11-20 21:02
诱惑到提不上吧！只是我也感觉的确有点麻烦！用RMB鼓励下吧！真给！

你看一下，是不是如附件那样。