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

½Ð°Ý§Ú·Q±Æ°£ÀH¾÷¸¹½X¸Ó«ç½s¼g

½Ð°Ý§Ú·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

Private Sub Worksheet_Calculate()
Do
[a2:a6] = "=RandBetween(1, 42)"
Loop Until [sumproduct(1/countif(a1:a6,a1:a6))] = 6
End Sub

TOP

·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

TOP

¦^´_ 3# jonlylovek
1. ¥X²{¿ù»~­ì¦]À³¬O§A¨S¦³¤Þ¥Î¤ÀªR¤u¨ã½c¼W¯q¶°
¦Ó§R°£¸Ó¦æ«áªºµ{¦¡¤S·|¥X²{¦]Àx¥H0³y¦¨¿ù»~
½Ð¥ý¤Ä¿ï
¤u¨ã/¼W¯q¶°
¤ÀªR¤u¨ã½c
µM«á¦A°õ¦æµ{¦¡½X
2. §A¦b­«ºâ®É¤]­nÁ׶}¤â°Ê¿é¤Jªº­È¶Ü?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¶â¶â ÁÂÁª©¥DÀ°¦£
­«ºâªº®É­Ô¤]­nÁ׶}¤â°Ê¿é¤J­È
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD