«ç¼Ë±N¤@¨Ç¼ÆÈRAMDOM ¨ì¤£¦PªºÀx¦s®æ
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 32
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- MACAU
- µù¥U®É¶¡
- 2012-12-17
- ³Ì«áµn¿ý
- 2016-10-26
|
«ç¼Ë±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¦ì°ª¤â«ü±Ð! |
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¦p
A1 123
A2 234
A3 678
A4 789
A5 345
A6 456
A7 567
.
.
.
«ç¼Ë±N¨º¨Ç ...
wwh126 µoªí©ó 2013-2-24 16:12 - For i = 0 To 9
- Cells(Int(65535 * Rnd) + 1, Int(199 * Rnd) + 1).Value = Range("A1").Offset(i, 0)
- Next
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 48
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2010 & 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- China
- µù¥U®É¶¡
- 2013-1-12
- ³Ì«áµn¿ý
- 2013-11-23
|
¦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°ª¤â学习
|
|
|
|
|
- ©«¤l
- 48
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2010 & 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- China
- µù¥U®É¶¡
- 2013-1-12
- ³Ì«áµn¿ý
- 2013-11-23
|
For i = 0 To 9
Cells(WorkSheetFunction.RandBetween(2,Rows.Count*Columns.Count)).Value = Range("A1").Offset(i, 0)
Next |
|
¦V°ª¤â学习
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 32
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- MACAU
- µù¥U®É¶¡
- 2012-12-17
- ³Ì«áµn¿ý
- 2016-10-26
|
¦pn¦b«ü©wÀx¦s®æ¦pn¦bD2¡AD5¡AD10¶i¦æÀH¾÷¼g¤JA¦æªº¼ÆÈÀ³¸ÓÂI¼g¡H |
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¥»©«³Ì«á¥Ñ kimbal ©ó 2013-2-28 13:42 ½s¿è
¦pn¦b«ü©wÀx¦s®æ¦pn¦bD2¡AD5¡AD10¶i¦æÀH¾÷¼g¤JA¦æªº¼ÆÈÀ³¸ÓÂI¼g¡H
wwh126 µoªí©ó 2013-2-28 08:09
¤èªk¦³«Ü¦h, ³o¬O¨ä1- Sub test()
- Dim dic
- Dim itemCount, randItem, randItemCounter, strKey
- Dim dataOffset
-
- Set dic = CreateObject("Scripting.Dictionary")
- dic.Add "D2", "D2"
- dic.Add "D5", "D5"
- dic.Add "D10", "D10"
-
- dataOffset = 0
-
- For itemCount = dic.Count To 1 Step -1
- randItem = Int(itemCount * Rnd) + 1
- randItemCounter = 0
- For Each strKey In dic.Keys
- randItemCounter = randItemCounter + 1
- If randItemCounter = randItem Then
- Range(dic.Item(strKey)).Value = Range("A1").Offset(dataOffset, 0).Value
- dataOffset = dataOffset + 1
- Call dic.Remove(strKey)
- Exit For
- End If
- Next
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 32
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- MACAU
- µù¥U®É¶¡
- 2012-12-17
- ³Ì«áµn¿ý
- 2016-10-26
|
¥i¥H¦bA1¨ìA40¤º¦³¼Æ¦rªºRAMDOM ¨ì«ü©wªºÀx¦s®æ(D2,D4,D7,D10,D11)¤W¡C |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 32
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- MACAU
- µù¥U®É¶¡
- 2012-12-17
- ³Ì«áµn¿ý
- 2016-10-26
|
¦^´_ 6# kimbal
¥u±NA1¨ìA3¼Æ¦rRAMDOM,§Ú·Q±N¾ã¦æ"A"¤º¦³¼Æ¦rªºÀx¦s®æRAMDOM |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 32
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- MACAU
- µù¥U®É¶¡
- 2012-12-17
- ³Ì«áµn¿ý
- 2016-10-26
|
¦^´_ 6# kimbal
THANKS YOU |
|
|
|
|
|
|