[VBA ] 列出矩陣內所有排列組合的值

看板Visual_Basic作者 (neo)時間13年前 (2012/11/10 14:53), 編輯推噓1(104)
留言5則, 4人參與, 最新討論串1/2 (看更多)
請問我要怎麼列印出矩陣裡面的值 所有排列組合的狀況呢? ex: M={(1,2),(3,4)} 印出 col1 col2 row1 1 2 row2 1 4 row3 3 2 row4 3 4 共有四種 印到儲存格裡面 M={(1,2),(3,4),(5,6)} 會有9種組合 這是簡單的情況.. 我的矩陣內 情形是這樣 M是7*7, 裡面會有0值與非零值 以下是舉例 M={(1,2,0,0..,0),(9,5,3,1,0..0),(7,6,3,0,0..0),(0,0,0...0)....(0,0,...0)} 我印出來的條件 : 1, 遇到有 組合裡面有0的就不印 例如(1,3,7,0,0,0,0)這種組合 ==========如果能達到第一條件寫出這樣小弟已經很佩服..以下是附加條件 2, (1,2,x,y,z,a,b),和 (2,1,x,y,z,a,b)這種組合 是一樣的 (第1和2數字互調視為相同) 3, (1,x,y,2,z,a,b),和 (2,x,y,1,z,a,b)這組合 是不一樣的 就是第一, 第二數字 彼此互調 視為相同組合 其他位置的數字互調 都算不同組合 ==========全部達到的話我覺得是神人了>< 我想超久阿!! 想了好久...想不出來= = 敬請高手幫忙!!! -- -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.193.71.35 ※ 編輯: neocc 來自: 123.193.71.35 (11/10 15:06) ※ 編輯: neocc 來自: 123.193.71.35 (11/10 15:12) ※ 編輯: neocc 來自: 123.193.71.35 (11/10 15:15)

11/10 19:17, , 1F
把第1和2個字排列,然後check 1和2 有沒有相同 這樣呢?
11/10 19:17, 1F

11/10 21:59, , 2F
最前面row1有寫錯嗎? 1 2 ??
11/10 21:59, 2F

11/10 22:37, , 3F
想了好久 想到了什麼 寫出來瞧瞧
11/10 22:37, 3F

11/10 22:42, , 4F
這個元素檢查簡單得很。湊元素排列還難一點。
11/10 22:42, 4F

11/11 00:20, , 5F
謝謝各位^^
11/11 00:20, 5F
文章代碼(AID): #1GdVdY-K (Visual_Basic)
文章代碼(AID): #1GdVdY-K (Visual_Basic)