- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-3 12:47 ½s¿è
- ¦^´_ 5# lincsn
¬O³o¼Ë¶Ü?
קï oobirdª©¥Dªºµ{¦¡¦p¤U- Sub Lottery()
- Dim B1%, B2%, B3%, ball%, m&, P$
- Dim arr()
- ball = 49
- With ActiveSheet
- P = Join(Array(.[D1].Text, .[D2].Text, [D3].Text), ",") '¤TӼƦr"00"ªº®æ¦¡¦r¦ê
- For B1 = 1 To ball - 2
- For B2 = B1 + 1 To ball - 1
- For B3 = B2 + 1 To ball
- If InStr(P, Format(B1, "00")) Or InStr(P, Format(B2, "00")) Or InStr(P, Format(B3, "00")) Then
- m = m + 1
- ReDim Preserve arr(1 To 3, 1 To m)
- arr(1, m) = B1
- arr(2, m) = B2
- arr(3, m) = B3
- End If
- Next B3, B2, B1
- ActiveSheet.[a1].Resize(m, 3) = Application.Transpose(arr)
- End With
- 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¸Ì¤@¦¸
|
|