ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦³Ãö¥¨¶°¤¤°j°éªº°ÝÃD...

[µo°Ý] ¦³Ãö¥¨¶°¤¤°j°éªº°ÝÃD...

§Úªº°ÝÃD¡G
(1) ¶]¥X¨Ó¬°¤°»ò·|¦³ªÅ¥Õ¦C¡H(EX:§ÚªºD1=5,D2=7¡A¦¹®É­Y¦P®Éº¡¨¬D1¸òD2®É·|¦h¤@¦æªÅ±Æ¦C¡A·í±ø¥ó³]©w¤T­Ó¥B³£º¡¨¬®É¡A·|¦h¨â¦æªÅ±Æ¦C)
(2)³Ì«á¤@¦CµLªk³Q§PÂ_¡A¦]¦¹´Nºâ±ø¥ó¤£²Å¦XÁÙ¬O·|¶]¥X¨Ó¡A¦³¤°»ò¸Ñ¨M¤èªk¶Ü¡H
(3)°j°é«Ü¦h¡A¶]°_¨Ó¦³ÂIºC¡A¦³§ó§Ö³tªº¤èªk¶Ü¡H

ªþ¤Wµ{¦¡½X¡G
  1. Sub Lottery()

  2.   Dim B1, B2, B3 As Integer
  3.   Dim BALL As Integer
  4.   Dim Row As Long
  5.   Dim i As Integer
  6.   
  7.   BALL = 49
  8.   Row = 1


  9.         For B1 = 1 To BALL - 2

  10.           For B2 = B1 + 1 To BALL - 1

  11.             For B3 = B2 + 1 To BALL
  12.                
  13.                 ActiveSheet.Cells(Row, 1).Value = B1
  14.                 ActiveSheet.Cells(Row, 2).Value = B2
  15.                 ActiveSheet.Cells(Row, 3).Value = B3
  16.                
  17.                 For i = 1 To 49
  18.                 If B1 = ActiveSheet.Cells(i, 4).Value _
  19.                 Or B2 = ActiveSheet.Cells(i, 4).Value _
  20.                 Or B3 = ActiveSheet.Cells(i, 4).Value Then Row = Row + 1
  21.                 Next i
  22.                

  23.             Next B3

  24.           Next B2

  25.         Next B1

  26. End Sub
½Æ»s¥N½X
ªþ¥ó¡G
text.rar (93.76 KB)

¦pªG¦³»¡©ú¤£²M·¡ªº¦a¤è¡A¦A³Â·Ð¸ò¤p§Ì»¡Án¡ã·P¿E¤£ºÉXD

¥H§Aªº«ä¸ô¡A¥i¥Hµy¥[§ïÅÜ¡G
  1. Sub Lottery()
  2.     Dim B1%, B2%, B3%, ball%, m&
  3.     Dim arr()
  4.     ball = 49
  5.     For B1 = 1 To ball - 2
  6.         For B2 = B1 + 1 To ball - 1
  7.             For B3 = B2 + 1 To ball
  8.                 m = m + 1
  9.                 ReDim Preserve arr(1 To 3, 1 To m)
  10.                 arr(1, m) = B1
  11.                 arr(2, m) = B2
  12.                 arr(3, m) = B3
  13.             Next B3, B2, B1
  14.             ActiveSheet.[a1].Resize(m, 3) = Application.Transpose(arr)
  15.         End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-3 10:57 ½s¿è

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

TOP

¦^´_ 2# oobird


·PÁÂoobird ^^
­×§ï§¹«á°õ¦æ³t«×®t¶W¦h¡I·Q½Ð°Ý³o¬O¤°»ò­ì²z§ïÅÜ¥Lªº¹B¦æ³t«×©O¡H
¥t¥~¡A
  1.                 For i = 1 To 49

  2.                 If B1 = ActiveSheet.Cells(i, 4).Value _

  3.                 Or B2 = ActiveSheet.Cells(i, 4).Value _

  4.                 Or B3 = ActiveSheet.Cells(i, 4).Value Then Row = Row + 1

  5.                 Next i
½Æ»s¥N½X
§Úªº§P§O¦¡¦pªG­n¥[¶i¥h¡A¸Ó¦p¦ó°µ­×¥¿¡H
³o­Ó§P§O¦¡ªº¥Øªº¡G¡]¿z¿ï¥X§Ú»Ý­nªº¼Æ­È¡^
Ex:
·í§Ú¦bDÄæ¿é¤J¡GD1=3,D2=5,D3=7®É,µ{¦¡°õ¦æµ²ªG·|¬O¡G
A1=1,B1=2,C1=3
A2=1,B2=2,C2=5
A3=1,B3=2,C3=7
.
.
.
A3244=7,B3244=48,C3244=49
¤]´N¬O»¡§Ú­n¦p¦ó¦b¥þ³¡¼Æ­È¤¤¡A¿z¿ï¥XDÄ椤§t¦³ªº¼Æ­È¡H

¦A³Â·Ð±z¤F

TOP

¦^´_ 3# GBKEE


·PÁÂGBKEE~§ÚÁA¸Ñ±zªº·N«ä¤F¡ã
¥i¬OÃö©ó§Úªº°ÝÃD¢°¡A¦³¤°»ò¸Ñ¨M¤è®×¶Ü¡H
§Úªº§P§O¦¡¸Ó¦p¦ó°µ­×¥¿¡H

¦A³Â·Ð±zÅo¡ã

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-3 12:47 ½s¿è

  • ¦^´_ 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¸Ì¤@¦¸

TOP

¦^´_ 6# GBKEE


·PÁÂGBKEE ¡I¡I
©Ò¥H¬O§Q¥Î¯x°}¨Ó·í¼È¦s¡A¤§«á¤@¦¸§â¸ê®Æ¼g¤J¡ã
³o´N¬O§Ú­nªºµ²ªG^^

¤£¹L¦pªG¿é¤Jªº¼Æ­È¦³¥i¯à¨ì49­Ó¼Æ­È®É¡A§Ú­è¸Õ¹L§âD1-D49¥þkey¶i¥h¥i¥H¶]¥Xµ²ªG¡A¤£¹L°w¹ï³o³¡¥÷¡A¦³¥i¯à§Q¥Î°j°é¨Ó§¹¦¨¶Ü¡H

­×§ï±zªº¤@³¡¥÷µ{¦¡¦p¤U¡G
  1.         P = Join(Array(.[D1].Text, .[D2].Text, .[D3].Text, .[D4].Text, .[D5].Text, .[D6].Text, .[D7].Text _
  2.        , .[D8].Text, .[D9].Text, .[D10].Text, .[D11].Text, .[D12].Text, .[D13].Text, .[D14].Text _
  3.        , .[D15].Text, .[D16].Text, .[D17].Text, .[D18].Text, .[D19].Text, .[D20].Text, .[D21].Text _
  4.        , .[D22].Text, .[D23].Text, .[D24].Text, .[D25].Text, .[D26].Text, .[D27].Text, .[D28].Text _
  5.        , .[D29].Text, .[D30].Text, .[D31].Text, .[D32].Text, .[D33].Text, .[D34].Text, .[D35].Text _
  6.        , .[D36].Text, .[D37].Text, .[D38].Text, .[D39].Text, .[D40].Text, .[D41].Text, .[D42].Text _
  7.        , .[D43].Text, .[D44].Text, .[D45].Text, .[D46].Text, .[D47].Text, .[D48].Text, [D49].Text), ",")
½Æ»s¥N½X
¦A³Â·Ð±zÅo^^"

TOP

¦^´_ 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

TOP

¦^´_ 8# GBKEE


­ì¨Ó¦p¦¹¡ã·PÁ±z¡I¡I:lol

TOP

³o¼Ëªº¤¬¬Û¾Ç²ß
¦n¨ë¿E ¦n¤Í±Òµo©Ê
±Â¥Î¤F~·PÁÂ(¯u¬OµL»ù¤§Ä_)
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD