VBA计算某个集合中哪6个数字的和为…
2013-11-15 16:37
316 查看
A列中从A1到A20分别为数字1-20
B1为100,为计算的结果(6个数的和)
现在计算A列中哪6个数字的和为100
符合条件的就放在C列中
Sub
CountTotal()
Application.ScreenUpdating = False
Range("c:c").ClearContents
Dim a%, b%, c%, d%
Dim e%, f%
Dim x%, tmp As String, K, totalco As Integer
Dim dic
Set dic = CreateObject("scripting.dictionary")
x =
Range("a65536").End(xlUp).Row
For a = 1 To x
- 5
For b = a +
1 To x - 4
For c = b + 1 To x - 3
For d = c + 1 To x - 2
For e = d + 1 To x - 1
For f = e + 1 To x
If Cells(a, 1) + Cells(b, 1) + Cells(c, 1) + Cells(d, 1) + Cells(e,
1) + Cells(f, 1) = [B1] Then
tmp = Cells(a, 1) & " + " &
Cells(b, 1) & " + " & Cells(c, 1)
& " + " & Cells(d, 1)
& " + " & Cells(e, 1)
& " + " & Cells(f, 1)
& " = " & [B1]
dic.Add tmp, ""
End If
Next
Next
Next
Next
Next
Next
totalco = dic.Count
'K = dic.keys
'For x = 0 To totalco - 1
'Cells(x + 1, 3) = K(x)
'Next
[C1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
'这个语句也可以用上面四句来完成
MsgBox "共有" & totalco &
"条符合记录的!"
Application.ScreenUpdating = True
End Sub
自己感觉这样的算法速度似乎比较慢
慢慢再琢磨有没有快点的算法
如果A列中的数字越多,算起来就越慢了。
类似的过程别人早就有了,只是人家用别的算法(自己写的看得明白,别人写的看起来好费劲
)
B1为100,为计算的结果(6个数的和)
现在计算A列中哪6个数字的和为100
符合条件的就放在C列中
Sub
CountTotal()
Application.ScreenUpdating = False
Range("c:c").ClearContents
Dim a%, b%, c%, d%
Dim e%, f%
Dim x%, tmp As String, K, totalco As Integer
Dim dic
Set dic = CreateObject("scripting.dictionary")
x =
Range("a65536").End(xlUp).Row
For a = 1 To x
- 5
For b = a +
1 To x - 4
For c = b + 1 To x - 3
For d = c + 1 To x - 2
For e = d + 1 To x - 1
For f = e + 1 To x
If Cells(a, 1) + Cells(b, 1) + Cells(c, 1) + Cells(d, 1) + Cells(e,
1) + Cells(f, 1) = [B1] Then
tmp = Cells(a, 1) & " + " &
Cells(b, 1) & " + " & Cells(c, 1)
& " + " & Cells(d, 1)
& " + " & Cells(e, 1)
& " + " & Cells(f, 1)
& " = " & [B1]
dic.Add tmp, ""
End If
Next
Next
Next
Next
Next
Next
totalco = dic.Count
'K = dic.keys
'For x = 0 To totalco - 1
'Cells(x + 1, 3) = K(x)
'Next
[C1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
'这个语句也可以用上面四句来完成
MsgBox "共有" & totalco &
"条符合记录的!"
Application.ScreenUpdating = True
End Sub
自己感觉这样的算法速度似乎比较慢
慢慢再琢磨有没有快点的算法
如果A列中的数字越多,算起来就越慢了。
类似的过程别人早就有了,只是人家用别的算法(自己写的看得明白,别人写的看起来好费劲
)
相关文章推荐
- VBA窗体模拟显示进度条
- VBA 获取和设置(文件和文件夹属性…
- VBA 检查文件或文件名是否存在
- VBA ADO连接语法及常用参数
- VBA-循环赋值CheckBox
- VBA檢查文件夾里是否存在指定文件…
- VB.net 应用积累
- vb.net 灵活注册事件,达到可以有条件调用事件的目的
- VB.Net 文本框TextBox只允许输入数字判断
- vb.net类的属性定义,使用方式
- VB.NET中IDictionaryEnumerator使用示例
- 按键(vb)启动指定目录的程序以及获取当前应用路径
- Excel删除某一行之后的所有数据 及VBA运行方法
- 访问Vbox的web服务
- VB的一些项目中常用的通用方法-一般用于验证类
- VB将MSHFlexGrid数据导出到Excel文件通用功能
- VB高效导入Excel2003和Excel2007文件到MSHFlexGrid控件显示
- 浅谈VB.NET文章系列之一通过例子,浅谈反射(Reflection)的应用说明
- VBS下载者
- Windows API 在线查询(for C# VB.NET AND VB6)