½Ð°Ý§Ú·Q±Æ°£ÀH¾÷¸¹½X¸Ó«ç½s¼g
- ©«¤l
- 11
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-20
- ³Ì«áµn¿ý
- 2015-2-24
|
½Ð°Ý§Ú·Q±Æ°£ÀH¾÷¸¹½X¸Ó«ç½s¼g
Private Sub Worksheet_Activate()
For i = 1 To 6
¤u§@ªí2.Cells(i, 1).Value = ""
Next
Dim A(6)
For i = 1 To 6
A(i) = WorksheetFuntion.RandBetween(1, 42)
Next
For i = 1 To 6
¤u§@ªí2.Cells(i, 1).Value = A(i)
Next
End Sub
³o¬O¤»Ó¸¹½XÀH¾÷¿ï¸¹
Y§Ú±µ¤U¨Ón½s¼g¨ä¤¤¤@Ó¸¹½X¤â¥´¦Û¿ï¡A¨ä¥L¤Ó¸¹½X¤£«½Æ©ó¦Û¿ï¸¹½X¡A¥B«öF9¯à¦Û°Ê§ó·sÀH¾÷¸¹½X¡A¸Ó«ç»ò°µ¡C |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Private Sub Worksheet_Calculate()
Do
[a2:a6] = "=RandBetween(1, 42)"
Loop Until [sumproduct(1/countif(a1:a6,a1:a6))] = 6
End Sub |
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-20
- ³Ì«áµn¿ý
- 2015-2-24
|
·PÁÂoobirdª©¤jªº¨ó§U
·í§Ú½Æ»s¤W¥h ¥L¥X²{¤@Ó°õ¦æ¶¥¬q¿ù»~13 «¬ºA¤£²Å¦X
·í§Ú¥h°£³o¬q±Ôz ¥L¥X²{°õ¦æ¶¥¬q¿ù»~424
½Ð°Ý§Ú¸Ó¦p¦ó¸Ñ¨M
§Ú·Q±Na1:a6¥þÀH¾÷
b2:b6ÀH¾÷¥B±Æ°£¤â¥´¦Û¿ïb1
c3:c6ÀH¾÷¥B±Æ°£¤â¥´¦Û¿ïc1.c2
d4:d6ÀH¾÷¥B±Æ°£¤â¥´¦Û¿ïd1.d2.d3
e5:e6ÀH¾÷¥B±Æ°£¤â¥´¦Û¿ïe1.e2.e3.e4
f6ÀH¾÷¥B±Æ°£¤â¥´¦Û¿ïf1.f2.f3.f4.f5
¥B«ö¤Uf9¯à¨ÏÀH¾÷¸¹½X§ó·s
¥Ñ©ó¤p§Ìè¤Jªù ¦A´M¨D¸Ñ¨M°ÝÃD¤èªk §Æ±æ¤j®a¯à«ü¾É ·PÁ |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-20
- ³Ì«áµn¿ý
- 2015-2-24
|
¶â¶â ÁÂÁª©¥DÀ°¦£
«ºâªº®ÉÔ¤]nÁ׶}¤â°Ê¿é¤JÈ |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|