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

«ç¼Ë±N¤@¨Ç¼Æ­ÈRAMDOM ¨ì¤£¦PªºÀx¦s®æ

«ç¼Ë±N¤@¨Ç¼Æ­ÈRAMDOM ¨ì¤£¦PªºÀx¦s®æ

¦p
A1  123
A2  234
A3  678
A4  789
A5  345
A6  456
A7  567
     .
     .
     .
«ç¼Ë±N¨º¨Ç¼Æ­ÈÀH¾÷¶K¦b¤£¦PªºÀx¦s®æ(¦pD2, D5, E3, E7,F1, F4....)¤W¡C

·PÁ¦U¦ì°ª¤â«ü±Ð!

¦p
A1  123
A2  234
A3  678
A4  789
A5  345
A6  456
A7  567
     .
     .
     .
«ç¼Ë±N¨º¨Ç ...
wwh126 µoªí©ó 2013-2-24 16:12
  1.     For i = 0 To 9
  2.         Cells(Int(65535 * Rnd) + 1, Int(199 * Rnd) + 1).Value = Range("A1").Offset(i, 0)
  3.     Next   
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦pªG¤£­­©w单¤¸®æªº话¡A2#´N¥i¥H¤F
¦pªG¬O¦b­­©wªº单¤¸®æ¤¤随Éóªº话¡A´N¦³点³Â烦¤F¡C
­n¥ý将­­©w单¤¸®æ¦s¤J数组A¡A¨Ï¥Î经¨åºâªk产¥Í¤£­«Î`随Éó数¡A¶ñ¤J¤W­±数组Aªº¦P«¬数组B
¦A将A1¶ñ¤J数组B编号为1对应¤U标ªº¨º个数组A单¤¸®æ¤¤
¦V°ª¤â学习

TOP

For i = 0 To 9
     Cells(WorkSheetFunction.RandBetween(2,Rows.Count*Columns.Count)).Value = Range("A1").Offset(i, 0)
Next
¦V°ª¤â学习

TOP

¦p­n¦b«ü©wÀx¦s®æ¦p­n¦bD2¡AD5¡AD10¶i¦æÀH¾÷¼g¤JA¦æªº¼Æ­ÈÀ³¸ÓÂI¼g¡H

TOP

¥»©«³Ì«á¥Ñ kimbal ©ó 2013-2-28 13:42 ½s¿è
¦p­n¦b«ü©wÀx¦s®æ¦p­n¦bD2¡AD5¡AD10¶i¦æÀH¾÷¼g¤JA¦æªº¼Æ­ÈÀ³¸ÓÂI¼g¡H
wwh126 µoªí©ó 2013-2-28 08:09


¤èªk¦³«Ü¦h, ³o¬O¨ä1
  1. Sub test()
  2.     Dim dic
  3.     Dim itemCount, randItem, randItemCounter, strKey
  4.     Dim dataOffset
  5.    
  6.     Set dic = CreateObject("Scripting.Dictionary")
  7.     dic.Add "D2", "D2"
  8.     dic.Add "D5", "D5"
  9.     dic.Add "D10", "D10"
  10.    
  11.     dataOffset = 0
  12.    
  13.     For itemCount = dic.Count To 1 Step -1
  14.         randItem = Int(itemCount * Rnd) + 1
  15.         randItemCounter = 0
  16.         For Each strKey In dic.Keys
  17.             randItemCounter = randItemCounter + 1
  18.             If randItemCounter = randItem Then
  19.                 Range(dic.Item(strKey)).Value = Range("A1").Offset(dataOffset, 0).Value
  20.                 dataOffset = dataOffset + 1
  21.                 Call dic.Remove(strKey)
  22.                 Exit For
  23.             End If
  24.         Next
  25.     Next
  26. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¥i¥H¦bA1¨ìA40¤º¦³¼Æ¦rªºRAMDOM ¨ì«ü©wªºÀx¦s®æ(D2,D4,D7,D10,D11)¤W¡C

TOP

¦^´_ 6# kimbal


    ¥u±NA1¨ìA3¼Æ¦rRAMDOM,§Ú·Q±N¾ã¦æ"A"¤º¦³¼Æ¦rªºÀx¦s®æRAMDOM

TOP

¦^´_ 6# kimbal


    THANKS YOU

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD