Sub myregist() Range("A1").Select ActiveCell.Value = 9 For i = 10 To 9999 Step 1 good_num = 0 b1 = i Mod 10 'base 1 If (b1 = 1 Or b1 = 2 Or b1 = 4 Or b1 = 5 Or b1 = 6 Or b1 = 9) Then good_num = 1 End If If (good_num = 1) Then good_num = 0 b2 = Int(i / 10) Mod 10 'base2 If (b2 = 1 Or b2 = 2 Or b2 = 4 Or b2 = 5 Or b2 = 6 Or b2 = 9) Then good_num = 1 End If If (b2 = 0 Or b2 = 3 Or b2 = 7 Or b2 = 8) Then good_num = 0 End If End If If (i > 99 And good_num = 1) Then good_num = 0 b3 = Int(i / 100) Mod 10 'base3 If (b3 = 1 Or b3 = 2 Or b3 = 4 Or b3 = 5 Or b3 = 6 Or b3 = 9) Then good_num = 1 End If If (b3 = 0 Or b3 = 3 Or b3 = 7 Or b3 = 8) Then good_num = 0 End If End If If (i > 999 And good_num = 1) Then good_num = 0 b4 = Int(i / 1000) Mod 10 'base4 If (b4 = 1 Or b4 = 2 Or b4 = 4 Or b4 = 5 Or b4 = 6 Or b4 = 9) Then good_num = 1 End If If (b4 = 0 Or b4 = 3 Or b4 = 7 Or b4 = 8) Then good_num = 0 End If End If If (good_num = 1) Then If (i < 100) Then If (b1 + b2 = 9 Or b1 + b2 = 18) Then good_num = 1 Else good_num = 0 End If ElseIf (i < 1000) Then If (b1 + b2 + b3 = 9 Or b1 + b2 + b3 = 18 Or b1 + b2 + b3 = 27) Then good_num = 1 Else good_num = 0 End If Else If (b1 + b2 + b3 + b4 = 9 Or b1 + b2 + b3 + b4 = 18 Or b1 + b2 + b3 + b4 = 27 Or b1 + b2 + b3 + b4 = 36) Then good_num = 1 Else good_num = 0 End If End If End If If (good_num = 1) Then ActiveCell.Offset(1, 0).Select ActiveCell.Value = i End If Next i End Sub
Considering the real-time nature of this webboard, it is impossible for us to review all messages/post. Please remember that we do not actively monitor the contents of and are not responsible for any messages posted. Anyone who feels that a posted message is inappropriate, Please encouraged to contact us immediately by email at kratoo@pantip.com , and We will remove objectionable messages within a reasonable time frame.
ความคิดเห็นที่ 1
: