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

[µo°Ý] ¦p¦ó°µ¿ï¨ú½d³ò¿é¤J¶Ã¼Æ???

·PÁ§A ¨ü´f¤F
¤£ª¾¹D¤j¤j¥i§_±Ð§Úµ{¦¡½Xªº·N«ä¶Ü??? ·P®¦...........

TOP

¦^´_ 1# a31075ha
  1. Private Sub cbCreat_Click()
  2.   Dim rTar As Range
  3.   
  4.   Randomize
  5.   For Each rTar In Selection
  6.     rTar = Int(6 * Rnd + 2)
  7.   Next
  8. End Sub
½Æ»s¥N½X
Rnd-a.zip (8.07 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD