[發問] 兩個６的排列組合數，用VBA如何實現？

maiko

各位先進你們好：
想用VBA做一個有兩個６的排列組合數，像圖片這個做法，請問如何實現？謝謝！

下載 (14.95 KB)

2022-5-2 17:57

quickfixer

回復 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

maiko

謝謝！解決了我的問題！

samwang

回復 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

hcm19522

https://blog.xuite.net/hcm19522/twblog/590367515

singo1232001

回復 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