GBKEE

Dim B1, B2, B3 As Integer
¤W­±ªºÅܼƫŧi¤¤, B1, B2 ªº«¬ºA¬O Variant, ¥u¦³B3 ªº«¬ºA¬O Integer
http://forum.twbts.com/thread-4009-1-1.html

GBKEE

• ¦^´_ 5# lincsn
  ¬O³o¼Ë¶Ü?
  ­×§ï oobirdª©¥Dªºµ{¦¡¦p¤U
  1. Sub Lottery()
     
  2.     Dim B1%, B2%, B3%, ball%, m&, P$
     
  3.     Dim arr()
     
  4.     ball = 49
     
  5.     With ActiveSheet
     
  6.         P = Join(Array(.[D1].Text, .[D2].Text, [D3].Text), ",")  '¤T­Ó¼Æ¦r"00"ªº®æ¦¡¦r¦ê
     
  7.         For B1 = 1 To ball - 2
     
  8.             For B2 = B1 + 1 To ball - 1
     
  9.                 For B3 = B2 + 1 To ball
     
  10.                     If InStr(P, Format(B1, "00")) Or InStr(P, Format(B2, "00")) Or InStr(P, Format(B3, "00")) Then
      
  11.                         m = m + 1
      
  12.                         ReDim Preserve arr(1 To 3, 1 To m)
      
  13.                         arr(1, m) = B1
      
  14.                         arr(2, m) = B2
      
  15.                         arr(3, m) = B3
      
  16.                     End If
      
  17.         Next B3, B2, B1
      
  18.         ActiveSheet.[a1].Resize(m, 3) = Application.Transpose(arr)
      
  19.     End With
      
  20. End Sub

  ½Æ»s¥N½X

¸ê®Æ¿é¤J¤u§@ªí  ¨t²Î¶·³B¸Ì
1¼Óªºµ{§Ç¤¤¨C¦¸°j°é¤¤¦³±N¸ê®Æ¿é¤J¤u§@ªí
ActiveSheet.Cells(Row, 1).Value = B1
ActiveSheet.Cells(Row, 2).Value = B2
ActiveSheet.Cells(Row, 3).Value = B3
¨t²Î¶·³B¸Ì¤T¦¸

³t«×·|¥[§Ö :
ActiveSheet.[a1].Resize(m, 3) = Application.Transpose(arr)  
¤@¦¸±N¸ê®Æ¿é¤J¤u§@ªí  ¨t²Î¥u¶·³B¸Ì¤@¦¸

GBKEE

¦^´_ 7# lincsn

1. Sub Ex()
   
2.     Dim R(), i%, P$
   
3.     R = [D1:D49].Value
   
4.     For i = 1 To UBound(R)
   
5.         R(i, 1) = Format(R(i, 1), "00")
   
6.     Next
   
7.     P = Join(Application.Transpose(R), ",")
   
8. End Sub

½Æ»s¥N½X