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

[發問] 找出最少的組合

4^# 跳轉到 »

發表於 2011-3-30 19:56 | 只看該作者

回復 3# GBKEE

謝謝GBKEE大大常常用心的教導.
可能是我的例子不好,我做了1個比較易明的例子.

book.rar (11.64 KB)

50 字節以內
不支持自定義 Discuz! 代碼

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

3^#

發表於 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

複製代碼

　暱稱: VBA向前衝

2^#

發表於 2011-3-29 18:30 | 只看該作者

這個問題~ 樓主應該先將問題的邏輯釐清~
在x=y的矩陣它選擇的剔除條件為何?
  x=3 , y=3
在x<>y時矩陣它選擇的剔除條件為何?
  x=3, y=4

  這些樓主不是交待的很清楚唷~

這種題目好像是or的題目~ 有點像是線性規劃~

學習才能提升自己

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。