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

¦p¦óÀH¾÷¿ï¸¹?

¦p¦óÀH¾÷¿ï¸¹?

¦p¦ó¦bÀx¦s®æ½d³ò¤ºÀH¾÷¿ï1¦Ü4­Ó¸¹½X¡A¦Ó¿ï¨ìªº¸¹½X¥H¬YºØ¤è¦¡¨Óªí¥Ü¡D
ÁÂÁ¡I
¦pªþ¥ó

ÀH¾÷¨ú¸¹.rar (1.84 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-6-4 13:24 ½s¿è

¦^´_ 1# q1a2z5
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, i As Integer, x As Integer, S As String
  4.     Set Rng = Range("C4:H8")            '½d³òÀx¦s®æ
  5.     With Rng
  6.         .Interior.ColorIndex = xlNone   '²M°£Àx¦s®æªº¹Ï¥ÜÃC¦â
  7.         .Font.ColorIndex = xlAutomatic  '¦rÅ骺ÃC¦â¬°¦Û°Ê
  8.     End With
  9.     Do
  10.        Randomize  ' ¹ï¶Ã¼Æ²£¥Í¾¹°µªì©l¤Æªº°Ê§@¡C
  11.         x = Int((Rng.Count - 1 + 1) * Rnd + 1) '1 ¨ì ½d³òÀx¦s®æ¼Æ¶¡ªºÀH¾÷¼Æ
  12.         If InStr(S, Format(x, "00")) = 0 Then 'ÀH¾÷¼Æ¤£­«½Æ
  13.             S = S & Format(x, "00")
  14.             With Rng(x)                       'ÀH¾÷¼ÆÀx¦s®æ
  15.                 .Interior.Color = vbCyan
  16.                 .Font.Color = vbRed
  17.             End With
  18.         End If
  19.     Loop Until Len(S) = 8 'ÀH¾÷¼Æ¹F4¦¸
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁ¤j¤jªº¸Ñµª¡A
²Ä¤@¦¸¿ï¨ú¼Æ¦r¡G86 29 35 90
²Ä¤G¦¸¿ï¨ú¼Æ¦r¡G38 15 47 50
²Ä¤T¦¸¿ï¨ú¼Æ¦r¡G11 04 90 43
±NÀÉ®×Ãö³¬¦A¶}±ÒÀɮצA°õ¦æ¤@¦¸©M¤W¦C¤T¦æ©Ò¿ï¨úªº¼Æ¦r¬O¤@¼Ëªº¡H
¥i¦³¿ìªk¸Ñ¨M¡H
ÁÂÁ¡I

TOP

¦^´_ 3# q1a2z5

¥i¦b³Ì«e­±¥[¤WRandomize Time¬Ý¬Ý¡C

TOP

¦^´_ 3# q1a2z5

2# ¤w§ó·s ¥[¤W
  1. Randomize  ' ¹ï¶Ã¼Æ²£¥Í¾¹°µªì©l¤Æªº°Ê§@
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD