查看: 175|回复: 6
任意4个数字
求解 比较奇特的结果
阅读权限20
在线时间 小时
本帖最后由 wjs521 于
08:14 编辑
如果在B2到D5的范围内，任意4个单元格数字相加的和的尾数等于B6的数值，那么则把相加的单元格输出在E列的每个单元格内 99+14+25+90=228 则把 D2+B2+C2+B5 输出在E2&&单元格内
(13.16 KB, 下载次数: 0)
19:31 上传
19:30 上传
点击文件名下载附件
1.67 KB, 下载次数: 7
阅读权限20
在线时间 小时
看样子 我这个问题是没人解答了
阅读权限95
在线时间 小时
Sub Macro1()
Set rng = [b2:d5]
n = 1: x = [b6]
For a = 1 To 9
& & s = 0: p = &&
& & For b = a + 1 To 10
& && &&&For c = b + 1 To 11
& && && && &For d = c + 1 To 12
& && && && && & s = rng(a) + rng(b) + rng(c) + rng(d)
& && && && && & p = rng(a).Address(0, 0) & &+& & rng(b).Address(0, 0) & &+& & rng(c).Address(0, 0) & &+& & rng(d).Address(0, 0)
& && && && && & If Val(Right(s, 1)) = x Then n = n + 1: Cells(n, 5) = p
& && && && &Next
& && &&&Next
& & Next
Next
End Sub复制代码
阅读权限50
在线时间 小时
本帖最后由 chenbiao2012 于
21:50 编辑
&blockquote&Sub test()复制代码
阅读权限50
在线时间 小时
Sub test()
& & w = [b6]
& & Set d = CreateObject(&scripting.dictionary&)
& & Range(&e:e&).Clear
& & For i = 1 To 12
& && &&&r = (i - 1) \ 3 + 2
& && &&&c = (i + 2) Mod 3 + 2
& && &&&d(i) = Cells(r, c).Address(0, 0)
& & Next
& & arr = Range(&b2:d5&)
& & ReDim brr(1 To UBound(arr) * UBound(arr, 2))
& & For i = 1 To UBound(arr)
& && &&&For j = 1 To UBound(arr, 2)
& && && && &n = n + 1
& && && && &brr(n) = arr(i, j)
& && &&&Next
& & Next
& & For i = 1 To UBound(brr) - 3
& && &&&For j = i + 1 To UBound(brr) - 2
& && && && &For x = j + 1 To UBound(brr) - 1
& && && && && & For y = x + 1 To UBound(brr)
& && && && && && &&&If Val(Right(brr(i) + brr(j) + brr(x) + brr(y), 1)) = w Then
& && && && && && && && &m = m + 1
& && && && && && && && &Cells(m, &e&) = d(i) & &+& & d(j) & &+& & d(x) & &+& & d(y)
& && && && && && &&&End If
& && && && && & Next
& && && && &Next
& && &&&Next
& & Next
End Sub
复制代码
阅读权限20
在线时间 小时
非常感谢老师的解答，老师辛苦了，谢谢老师！
阅读权限20
在线时间 小时
老师辛苦了，完美的解答了我的问题，谢谢老师！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1869|回复: 4
由1，2，3，4四个数字组成的排列组合
阅读权限20
在线时间 小时
如何自动生成由1，2，3，4四个数字组成的8位数。
阅读权限20
在线时间 小时
不明白，请将附件提供上来。
阅读权限20
在线时间 小时
附件写好了，急用，在线等。
10:59 上传
点击文件名下载附件
14.2 KB, 下载次数: 23
阅读权限90
在线时间 小时
=1111&RANDBETWEEN(1,4)&RANDBETWEEN(1,4)&RANDBETWEEN(1,4)&RANDBETWEEN(1,4) 看下這樣能不能滿足。。
阅读权限20
在线时间 小时
=VALUE(RANDBETWEEN(1,4)&RANDBETWEEN(1,4)&RANDBETWEEN(1,4)&RANDBETWEEN(1,4)&RANDBETWEEN(1,4)&RANDBETWEEN(1,4)&RANDBETWEEN(1,4)&RANDBETWEEN(1,4))
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师计算机应用基础在线作业及答案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
计算机应用基础在线作业及答案
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
下载文档到电脑，查找使用更方便
还剩21页未读，继续阅读
你可能喜欢利用excel表格,从16个数字选出任意4个数字,有多少个排列方式,要把具体的排列个数显示出来.我会计算有几种排列方式,就想知道具体每组数字的排列方式,各位大大们,有具体的计算公式嘛,不会弄啊,跪谢!
右键sheet1,查看代码.F5运行即可.
是从任意的16个数字 不是1到16，不会改这个，比方说1,5,，6三个数字选2个 怎么改啊。谢谢
重新下载查看。
为您推荐：
其他类似问题
扫描下载二维码excel任意一个4位数，连续减一个相同的4位数的公式怎么写？
请教大神，任意一个每位不为零的4位数，连续减一个相同的四位数，比如在下个单元格自动填充答案3333，然后3333再减1111反复直到4位数中有一个数为零则不再减。用公式能实现么？
已有帐号？
无法登录？
社交帐号登录}