欢迎访问服务器技术网-www.fuwuqijishu.com

EXCEL表格求和问题(急)

软件 fuwuqijishu 2年前 (2022-10-01) 11次浏览 0个评论 扫描二维码

关于EXCEL表格里有一列10个数字比如有1000.200.2500.35000********,要挑出5个来,求出固定的一个数字,比如10000,怎么挑出这5个数字的问题

意思就是一列有10个数字,任意挑5个数字的和要等于10000。
只想到用宏(可能有更改的办法),循环所有数值求和。还好是10个数字选5个数字,得到结果应该不会超过10秒吧。
等我做做看
Sub li()
Dim z(10)
i = 1
y = Selection。
Column
pd = InputBox(“请输入结果数值,只能为数字”, “结果”, 10000)
For Each x In Selection
If x。Value “” Then
z(i) = x。Value
i = i + 1
End If
Next
For a = 1 To 10
For b = 1 To 10
If a b Then
For c = 1 To 10
If c a And c b Then
For d = 1 To 10
If d a And d b And d c Then
For e = 1 To 10
If e a And e b And e c And e d Then
panduan = z(a) + z(b) + z(c) + z(d) + z(e)
If panduan = CInt(pd) Then
Cells(a, y)。
Font。ColorIndex = 3
Cells(b, y)。Font。ColorIndex = 3
Cells(c, y)。Font。ColorIndex = 3
Cells(d, y)。Font。ColorIndex = 3
Cells(e, y)。
Font。ColorIndex = 3
Exit Sub
End If
End If
Next e
End If
Next d
End If
Next c
End If
Next b
Next a
End Sub

喜欢 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

Warning: error_log(/www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/#log/log-2706.txt): failed to open stream: No such file or directory in /www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/spider.class.php on line 2900