找出最少的組合 - Excel程式區 - 麻辣家族討論版版

[發問] 找出最少的組合

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-3-30 14:26 | 顯示全部帖子

回復 1# basarasy
試試看

Sub Ex()
Dim Rng(1 To 2) As Range, E, R As Variant, C As Variant
With Sheets("eg.1")
Set Rng(1) = .[D1:G4]
Set Rng(2) = .[Q2:R4]
End With
For Each E In Rng(2).Rows
R = Application.Match(E.Cells(1, 1), Rng(1).Columns(1), 0)
C = Application.Match(E.Cells(1, 2), Rng(1).Rows(1), 0)
If IsNumeric(C) And IsNumeric(R) Then E.Cells(1, 3) = Rng(1).Cells(C, R)
Next
With Rng(2)
.Cells(.Cells.Count).Offset(1, 1) = "=SUM(" & .Columns(.Columns.Count + 1).Address & ")"
End With
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-4-1 14:42 | 顯示全部帖子

回復 4# basarasy
[ 如何用最少的錢去買所有數量的商品? ]
你的範例中,沒看到金錢?? ,請再詳列範例讓大家試試看

靜思自在 : 站在半路，比走到目標更辛苦。