標題: [發問] 填數字的語法。 [打印本頁]

---

作者: papaya    時間: 2019-3-24 11:09     標題: 填數字的語法。

本帖最後由 papaya 於 2019-3-24 11:11 編輯

[attach]30279[/attach]
[attach]30280[/attach]
   [attach]30281[/attach]      

                  For j = 1 To 49
                    Cells(1, j + 1) = j
                 Next

需求_1︰
將B1︰AX1的1~49由小而大排序的語法改為尾數(即=個位數)=1,2,3,4,5,6,7,8,9,0的10個排列組合的語法~
即B1︰AX1=1,11,21,31,41,2,12,22,32,42,3,13,23,33,43,4,14,24,34,44,5,15, 25,35,45,6,16,26,36,46,7,17,27,37,47,8,18,28,38,48,9,19,29,39,49,10,20,30,40

需求_2︰
將B1︰AX1的1~49由小而大排序的語法改為合數(即=個位數加十位數)=1,2,3,4,5,6,7,8,9,0的10個排列組合的語法~
即B1︰AX1=1,10,29,38,47,2,11,20,39,48,3,12,21,30,49,4,13,22,31,40,5,14, 23,32,41,6,15,24,33,42,7,16,25,34,43,8,17,26,35,44,9,18,27,36,45,19,28,37,46

以上需求，誠請各位大大幫忙和賜教!

---

作者: papaya    時間: 2019-3-28 09:08

回復 1# papaya
重新整理範例檔~
[attach]30322[/attach]

[attach]30323[/attach]

[attach]30324[/attach]

---

作者: ML089    時間: 2019-3-28 10:02

需求1

1. Sub num1()
   
2.     P = 2
   
3.     For j = 1 To 10
   
4.         For i = 0 To 4
   
5.             Cells(2, P) = i & j Mod 10
   
6.             P = P + 1
   
7.         Next
   
8.     Next
   
9. End Sub

複製代碼

---

作者: papaya    時間: 2019-3-28 10:25

回復 3# ML089
版主大大:
感謝解題~
因為要放在第1列~所以將Cells(2, P) = i & j Mod 10改為Cells(1, P) = i & j Mod 10
答案多一個00，我不知怎麼修正^^"
煩請指正~謝謝您!

[attach]30325[/attach]

---

作者: ML089    時間: 2019-3-28 11:07

回復 4# papaya

if  i & j Mod 10 <> "00"
            Cells(2, P) = i & j Mod 10
            P = P + 1
endif

---

作者: papaya    時間: 2019-3-28 11:19

回復 5# ML089
版主大大:您好!
不好意思，還是不行~變成這樣~
[attach]30327[/attach]

---

作者: ML089    時間: 2019-3-28 13:16

回復 6# papaya

P = P +1 要在 IF 以內

Sub num1()
    P = 2
    For j = 1 To 10
        For i = 0 To 4
            If i & j Mod 10 <> "00" Then
                Cells(2, P) = i & j Mod 10
                P = P + 1
            End If
        Next
    Next
End Sub

---

作者: ML089    時間: 2019-3-28 13:23

需求2，看不懂，需要舉例計算

---

作者: papaya    時間: 2019-3-28 14:06

回復 8# ML089
01=(0+1)/10=1 =>餘數
10=(1+0)/10=1
29=(2+9)/10=1
38=(3+8)/10=1
47=(4+7)/10=1

02=(0+2)/10=2
11=(1+1)/10=2
20=(2+0)/10=2
39=(3+9)/10=2
48=(4+8)/10=2

:
:
:   
:

09=(0+9)/10=9
18=(1+8)/10=9
27=(2+7)/10=9
36=(3+6)/10=9
45=(4+5)/10=9

19=(1+9)/10=0
28=(2+8)/10=0
37=(3+7)/10=0
46=(4+6)/10=0

---

作者: ML089    時間: 2019-3-28 15:29

需求 2

Sub num2()
    p = 2
    For j = 1 To 10
        For i = 0 To 4
            If i & j Mod 10 <> "00" Then
                Cells(3, p) = i & (10 + j - i) Mod 10
                p = p + 1
            End If
        Next
    Next
End Sub

---

作者: papaya    時間: 2019-3-28 15:38

回復 10# ML089
版主大大:您好!
OK了!謝謝您!感恩

---

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