日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

公告:魔扣目錄網為廣大站長提供免費收錄網站服務,提交前請做好本站友鏈:【 網站目錄:http://www.ylptlb.cn 】, 免友鏈快審服務(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

文章通過一個實例來介紹數字排列組合公式的寫法,感興趣的朋友對排列組合公式稍微變通實現類似的需求。

  需要排列組合公式的,多是對數字感興趣的朋友,喜歡對數字排列組合。

  本文介紹通過excel中編寫VBA代碼,掌握一些規律和算法來寫排列組合公式。

  數字排列組合公式的思路,可以這樣理解:從n個不同元素中,任取m(m≤n)個元素按照一定的順序排成一列。

  下面通過一個實例來講解如何通過排列組合公式完成數字排列組合。

  比如從"9876543"中任意取5個數來進行排列組合,方法是:

  新建一個工作表,按ALT+F11,打開VBE編輯器,插入——模塊,在右邊代碼編輯框復制下面的代碼,然后單擊工具欄的“運行”命令,然后切換到工作表中,可以看見A列已經根據排列組合公式自動生成了所需要的所有數字排列組合。

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

分享到:
標簽:公式 感興趣 排列組合 數字 Excel函數
用戶無頭像

網友整理

注冊時間:

網站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網站吧!
最新入駐小程序

數獨大挑戰2018-06-03

數獨一種數學游戲,玩家需要根據9

答題星2018-06-03

您可以通過答題星輕松地創建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學四六

運動步數有氧達人2018-06-03

記錄運動步數,積累氧氣值。還可偷

每日養生app2018-06-03

每日養生,天天健康

體育訓練成績評定2018-06-03

通用課目體育訓練成績評定