標題: [發問] 兩個６的排列組合數，用VBA如何實現？ [打印本頁]

---

作者: maiko    時間: 2022-5-2 17:57     標題: 兩個６的排列組合數，用VBA如何實現？

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

---

作者: quickfixer    時間: 2022-5-2 19:23

回復 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    時間: 2022-5-3 06:35

謝謝！解決了我的問題！

---

作者: samwang    時間: 2022-5-3 08:42

回復 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    時間: 2022-5-3 11:26

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

---

作者: singo1232001    時間: 2022-5-3 14:58

本帖最後由 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)