需要排列組合公式的,多是對(duì)數(shù)字感興趣的朋友,喜歡對(duì)數(shù)字排列組合。
本文介紹通過(guò)excel中編寫(xiě)VBA代碼,掌握一些規(guī)律和算法來(lái)寫(xiě)排列組合公式。
數(shù)字排列組合公式的思路,可以這樣理解:從n個(gè)不同元素中,任取m(m≤n)個(gè)元素按照一定的順序排成一列。
下面通過(guò)一個(gè)實(shí)例來(lái)講解如何通過(guò)排列組合公式完成數(shù)字排列組合。
比如從"9876543"中任意取5個(gè)數(shù)來(lái)進(jìn)行排列組合,方法是:
新建一個(gè)工作表,按ALT+F11,打開(kāi)VBE編輯器,插入——模塊,在右邊代碼編輯框復(fù)制下面的代碼,然后單擊工具欄的“運(yùn)行”命令,然后切換到工作表中,可以看見(jiàn)A列已經(jīng)根據(jù)排列組合公式自動(dòng)生成了所需要的所有數(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)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴(lài)品牌。
轉(zhuǎn)載請(qǐng)注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:數(shù)字排列組合公式寫(xiě)法介紹
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139214133.html