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

[µo°Ý] °j°é¶]¤£°±ªº°ÝÃD

[µo°Ý] °j°é¶]¤£°±ªº°ÝÃD

ªþ¥ó¡G 7C_3Stage-0-7(¥DÀÉ).rar (98.12 KB)
Drr = Sheets("DATA").Range([DATA!P1], [DATA!Q65536].End(3)) '¦C6
For ii = 2 To UBound(Drr)
   
    StrRng = "1" ' InputBox("½Ð¿é¤JDATA!¦U·j´M¤ñ¹ïªº°_©l´Á¼Æ", "¿é¤J´Á¼Æ")
    Nrange = "1903" ' InputBox("½Ð¿é¤JDATA!¦U·j´M¤ñ¹ïªº¨´¤î(¶}¼ú)´Á¼Æ", "¿é¤J´Á¼Æ")
    num = "50" 'InputBox("½Ð¿é¤J®ÄªGÀÉA¡JH½Æ»sªº´Á¶Z¼Æ½d³ò", "¿é¤J¶Z´Á¼Æ")
    'RrngA = InputBox("½Ð¿é¤J¦U²Ä¤@­Ó¤ñ¹ïªº°ò·Ç´Á¼Æ", "¿é¤J²Ä¤@­Ó´Á¼Æ")
    RrngA = Drr(ii, 1)    '¦C13
    CrngA = "10" 'InputBox("½Ð¿é¤J¦U""²Ä¤@­Ó""¤ñ¹ïªºÄæ¦ì¼ÆÃѧO½X", "¿é¤JÃѧO½X(10~60)")
    'RrngB = InputBox("½Ð¿é¤J¦U²Ä¤G­Ó¤ñ¹ïªº°ò·Ç´Á¼Æ", "¿é¤J²Ä¤G­Ó´Á¼Æ©Î¤£¿é¤J(«öEnter)")
    RrngB = Drr(ii, 2)    '¦C16

    CrngB = "10" 'InputBox("½Ð¿é¤J¦U""²Ä¤G­Ó""¤ñ¹ïªºÄæ¦ì¼ÆÃѧO½X", "¿é¤JÃѧO½X(10~60)©Î¤£¿é¤J(«öEnter)")
    Order = "0"  'InputBox("½Ð¿é¤J¼W¥[ªºÅÞ¿è±ø¥ó±ø¥ó¤§°_¨´§Ç¸¹", "¿é¤J§Ç¸¹(1~99)©Î¤£¼W¥[(«öEnter)")
    Number = "1-49" ' InputBox("½Ð¿é¤J¦U«ü©wªº¬Û¦P¸¹½X", "¿é¤J¸¹½X(1~49)")
    Ncount = "1" ' InputBox("½Ð¿é¤JÅçÃÒª©ªº³sÄò¦¸¼Æ", "¿é¤J¦¸¼Æ(1~10)")
                  ¡G
                  ¡G
                  ¡G

Next ii    '¦C823

°ÝÃD¡G
À³¸Ó¥u­n¶]¥X 7C_0_1903´Á_50_1898_10+1897_10_1¦¸_1-49 ªº¸ê®Æ§¨(¥H¤U²ºÙA¸ê®Æ§¨)§Y¥i¡F
¦ý«o¦h¶]¥X  7C_0_1903´Á_50__10_1¦¸_1-49ªº¸ê®Æ§¨(¥H¤U²ºÙB¸ê®Æ§¨)~
¥BB¸ê®Æ§¨¤@ª½¤£°±¤îªº­«½Æ²£¥Í»PA¸ê®Æ§¨¤ºªº¬Û¦P¤º®e¡C

½Ð°Ý¡G­n¦p¦ó°±¤î¦h¾lªº°j°é¡H
ÁÂÁ¡I

¦^´_ 1# ziv976688

Q3~Q50¦³¬Ý¤£¨£ªº¸ê®Æ¡A´å¼Ð©ñ¦bQ2¡AµM«áCtrl+¤U½bÀY·|ª½±µ¶]¨ìQ9¡A¦b«ö¤@¦¸´N¨ìQ50¡A
¥¿±`¦pªG¤¤¶¡³£¬OªÅ¥Õ­nÀ³¸Ó¨ì³Ì«á¤@¦C65536¡A©Ò¥HDrr¥i¥H§ï¬°¥Ñ¤W©¹¤U¡AÁÂÁÂ
Drr = Sheets("DATA").Range([DATA!P1], [DATA!Q1].End(4))  '¦C6

TOP

¦^´_ 2# samwang
Q3~Q50¦³¬Ý¤£¨£ªº¸ê®Æ¡A´å¼Ð©ñ¦bQ2¡AµM«áCtrl+¤U½bÀY·|ª½±µ¶]¨ìQ9¡A¦b«ö¤@¦¸´N¨ìQ50¡A
¾Ç¨ìÀ˵øÀx¦s®æ¦³µLÁôÂøê®Æªº§Þ¥©~
·PÁ±z²Ó¤ßªºÀ˵ø°ÝÃD¤§©Ò¦b©M­@¤ß«ü¾É~·P®¦

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD