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

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

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

¤£ª¾¹D¬O§_¯à¦³¤j¤j À°¦£¼g¤@¬qVBA ¦A¤UÁÙ¤@ª¾¥b¸Ñ....

¥D­n¬O·Q­n³]­p¤@­Ó«ö¶s ÎP¤U«ö¶s ¬O¹ï¿ï¨ú½d³òªº¦a¤è ­È¤J2~7ªº¶Ã¼Æ
¦ý¦]¬°¿ï¨ú½d³ò¤£¬O©T©wªº...©Ò¥H¤~ÀYµh...¤£ª¾¹D¬O§_¯à³]­p¦¨«ö¶s¼Ò²Õ
µM«á«ö¤U¥h´N¬O¹ï®Ø°_¨ÓªºÄæ¦ì ¿é¤J2~7ªº¶Ã¼Æ ¸÷¨D¤j¤j ·P®¦

¦^´_ 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

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

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-11-17 23:52 ½s¿è

¦^´_ 3# a31075ha
Private Sub cbCreat_Click()  ' «ö¶s«á°õ¦æ, ¦¹ Sub µ{¦¡½X¶}©l
  Dim rTar As Range  ' ©w¸q rTar ¬° Àx¦s®æ «ü¼Ð
  
  Randomize  ' ¥H¥Ø«e®É¶¡¬°Rnd(¶Ã¼Æ¾¹) ­pºâ®Éªº°ò­È.
  For Each rTar In Selection  ' ¹M¾ú(¥ç§Y rTar ·|¨Ì§Ç«ü¦V)¶°¦X¤¤ªº¨C­Ó¤¸¯À, Selection ¶°¦X¤º«h¥]§t¨C­Ó³Q Mark ªºÀx¦s®æ
    rTar = Int(6 * Rnd + 2)  «ü©w rTar ©Ò«ü¦VªºÀx¦s®æªº­È¬° 2 ~ 7 ¶¡ªº¥ô¤@¾ã¼Æ.
                    '  Int() ¶Ç¦^¬A©·¤º¼Æ¦r¥h±¼¤p¼Æ«áªº¾ã¼Æ, Rnd ¶Ç¦^¤@­Ó ¤j©óµ¥©ó 0 ¥B ¤p©ó 1 ªº¤p¼Æ
              '  Int(6 * rnd) ·|¶Ç¦^ 0 ~ 5 ªº¾ã¼Æ, ¦A + 2 ´NÅܦ¨ 2 ~ 7 ¤F.
  Next  '  ¤Á´« rTar «ü¦V¤U¤@­Ó¤¸¯À, ª½¨ì©Ò¦³¤¸¯À³£¤w®M¥Î¹L¬°¤î
End Sub  ' ¦¹ Sub µ²§ô

TOP

¦^´_ 4# luhpro


    ·PÁ¨ü¥Î¤F....¥¿¦b¬ã¨s³o­Ó ¥u¬OÁÙ«Ü®z.....ÁÂÁ¤j¤jªºÀ°¦£

TOP

¦^´_ 4# luhpro


    ·Q½Ð°Ý¤j¤j ¦]¬°¦³¨ÇÀɮפ£¬O§Ú­Ì³¡ªùªºµLÅv­­§ïªí®æ
  ¬O§_¦³¿ìªkÅý ¦AaÀɮ׿ï¨ú½d³ò µM«á¦AbÀɮ׫ö«ö¶s°õ¦æ ¦Û°Ê¦AaÀÉ®×½d³ò¤º²£¥Í¼Æ­È ·P®¦
¥i¸óÀɮײ£¥Í ©ÎªÌ¦b·s¼W¤@­Ó¥[¤JÀɮתº«ö¶s Åý¸ÓÀɮפºªº¤u§@ªí©Ò¿ï¨ú½d³ò¤º³£¯à²£¥Í§@¥Î ·P®¦

TOP

¦^´_  luhpro
·Q½Ð°Ý¤j¤j ¦]¬°¦³¨ÇÀɮפ£¬O§Ú­Ì³¡ªùªºµLÅv­­§ïªí®æ
  ¬O§_¦³¿ìªkÅý ¦AaÀɮ׿ï¨ú½d³ò µM«á¦AbÀɮ׫ö«ö¶s°õ¦æ ¦Û°Ê¦AaÀÉ®×½d³ò¤º²£¥Í¼Æ­È ...
a31075ha µoªí©ó 2013-12-1 21:18

¬Ý¤£¤ÓÀ´§A±Ô­zªº»Ý¨D.
¨Ì§A©Ò­zªº¥\¯à, ¥²¶·¦b a »P b ¨âÀɮ׳£¦³§ó§ïÀɮתºÅv­­¤~¯à°µ¨ì :
¡° ¦b a Àɮײ£¥Í¼Æ­È => ­n¦³ÅܧóÀx¦s®æ¤º®eªºÅv­­.
¡° ¦b b Àɮ׫ö«ö¶s®É¥i¥H°õ¦æ¥\¯à,
   ­n¦b b Àɮצ³ ¼g¤Jµ{¦¡ »P «Ø¥ß«ö¶s¤¸¥ó ªºÅv­­.
³o³£¤£¬O§A "µLÅv­­§ïªí®æ" ªº±¡§Î¤U¥i¥H°µ¨ìªº¨Æ.

«Øij§A´£¨Ñ½d¨ÒÀɮרñN¹ê»Ú­n°µªº¨Æ¸Ô²Ó­z»¡¤@¤U,
³o¼Ë¤~¦n®Ú¾Ú»Ý¨DÀÀ¥Xµ{¦¡.
¥t¥~¹ï©ó¦UÀɮתº²§°Ê»Ý¨D,
¤Î¹ïÀ³¦¹»Ý¨D©Ò¥i¾Ö¦³ªºÅv­­¤]­n¸Ô­z,
¤£µM°µ¥X¨Óªºµ{¦¡«Ü¥i¯à·|¦]¬°Åv­­¤£¨¬¦ÓµLªk¹B§@.

TOP

§Úı±o¤º«ØRAND+LARGE+MATCH+LOOKUP³o¨Ç¨ç¼Æ¥i¥H°µ¥X¨ÓÕÙ¡A¥»¨Ó¬O®³¨Ó±Æ¦Ò¸Õ®y¦ìªº¡C

¶Ã¼Æ.png (22.44 KB)

¶Ã¼Æ.png

¶Ã¼Æ.rar (22.61 KB)

ªì·sªÌ~«ü±ÐÅo~

TOP

¦^´_ 7# luhpro


    ¦nªº ·PÁ¤j¤j§Ú©ú¥Õ¤F ¦]¬°»Ý­n¶Ã¼Æ©â¼Ë¤u§@ªí¤Ó¦h....¤~·Q»¡¬O§_¥i¥H¸óÀɮשΪ̤u§@ªí²£¥Í..¤£¹L¬Ý¨ÓÁÙ¬O¥i¥H°µªºªí³æ´N°µ«ö¶s ¤£¯àªºÁÙ¬O¦Û¤v¶Ã¼ÆKEY¤W¥h...

TOP

¦^´_ 8# wl02353427


·PÁ§A

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD