返回列表 上一主題 發帖

[發問] 兩個6的排列組合數,用VBA如何實現?

[發問] 兩個6的排列組合數,用VBA如何實現?

各位先進你們好:
想用VBA做一個有兩個6的排列組合數,像圖片這個做法,請問如何實現?謝謝!
排列組合.png
2022-5-2 17:57

回復 1# maiko


    Sub test()
    For i = 1 To 6
        For j = 1 To 6
            rr = rr + 1
            Cells(rr, 1) = i
            Cells(rr, 2) = j
        Next j
    Next i
End Sub

TOP

謝謝!解決了我的問題!

TOP

回復 1# maiko

Sub test()
Dim Arr(1 To 100000, 1 To 2), T&, i&, j&, n
Range("a1").CurrentRegion.ClearContents
T = InputBox("請輸入組合數字", "1,2,3...", "1")
For i = 1 To T: For j = 1 To T
    n = n + 1: Arr(n, 1) = i: Arr(n, 2) = j
Next: Next
Range("a1").Resize(n, 2) = Arr
End Sub

TOP

隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

本帖最後由 singo1232001 於 2022-5-3 15:04 編輯

回復 1# maiko





Sub abc()
y = 6
For i = 1 To y ^ 2 Step y
Cells(i, 1).Resize(6, 1) = i / 6 + 5 / 6  '<---公式在下方
Cells(i, 2).Resize(6, 1) = Application.Transpose(Array(1, 2, 3, 4, 5, 6))
Next
End Sub

發現規律
1列 =1
7列 =2
.......

設聯立方程式 代入y=ax+b
(   1=a+b
(   2=7a+b
-> a=1-b 代入 2=7a+b
-> 2=7(1-b)+b
-> -5=-6b  
-> b=5/6  代入 1=a+b  
-> a=1/6
獲得方程式  y=x/6+5/6

獲得程式碼       i/6+5/6

TOP

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題