EXCEL 表格中数据归总分类求和.高分悬赏!

EXCEL表格求和问题(急)EX

意思就是一列有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个数字，任意挑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 。收起