需要排列組合公式的，多是對數(shù)字感興趣的朋友，喜歡對數(shù)字排列組合。
本文介紹通過excel中編寫VBA代碼，掌握一些規(guī)律和算法來寫排列組合公式。
數(shù)字排列組合公式的思路，可以這樣理解：從n個不同元素中，任取m(m≤n)個元素按照一定的順序排成一列。
下面通過一個實例來講解如何通過排列組合公式完成數(shù)字排列組合。
比如從"9876543"中任意取5個數(shù)來進行排列組合，方法是：
新建一個工作表，按ALT+F11，打開VBE編輯器，插入——模塊，在右邊代碼編輯框復制下面的代碼，然后單擊工具欄的“運行”命令，然后切換到工作表中，可以看見A列已經(jīng)根據(jù)排列組合公式自動生成了所需要的所有數(shù)字排列組合。
Sub 排列組合公式()
Dim II%, I%, J%, K%, L%, M%
Dim Srt1$, Srt2$, Srt3$, Srt4$, Srt5$
Dim TStr1$, TStr2$, TStr3$, TStr4$
Dim t, arr()
Const FullStr = "9876543"
t = Timer
II = 0
For I = 1 To 7
Srt1 = Mid(FullStr, I, 1)
TStr1 = Replace(FullStr, Srt1, "")
For J = 1 To 6
Srt2 = Mid(TStr1, J, 1)
TStr2 = Replace(TStr1, Srt2, "")
For K = 1 To 5
Srt3 = Mid(TStr2, K, 1)
TStr3 = Replace(TStr2, Srt3, "")
For L = 1 To 4
Srt4 = Mid(TStr3, L, 1)
TStr4 = Replace(TStr3, Srt4, "")
For M = 1 To 3
Srt5 = Mid(TStr3, M, 1)
II = II + 1
ReDim Preserve arr(1 To II)
arr(II) = Srt1 & Srt2 & Srt3 & Srt4 & Srt5
Next
Next
Next
Next
Next
Range("A1:A" & II) = Application.Transpose(arr)
End Sub
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務領(lǐng)域、行業(yè)應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業(yè)務領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.oesoe.com/
本文標題：數(shù)字排列組合公式寫法介紹
本文網(wǎng)址：http://www.oesoe.com/html/support/11139214133.html
相關(guān)文章
