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

Ãö©ó¥ô¦ó¥¨¶°¦p¦ó¥[¤J°j°é©O

Ãö©ó¥ô¦ó¥¨¶°¦p¦ó¥[¤J°j°é©O

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-4-30 13:14 ½s¿è

·Q½Ð°ÝÃö©ó°j°éªº´¡¤J
  1. Sub ¥¨¶°6()
  2. '
  3. ' ¥¨¶°6 ¥¨¶°
  4. '

  5. '
  6.     Application.Run "'S-.xlsx'!¥¨¶°5"
  7.     Range("G72").Select
  8.     Application.Run "'S-.xlsx'!¥¨¶°5"
  9.     Range("G73").Select
  10.     Application.Run "'S-.xlsx'!¥¨¶°5"
  11. End Sub
½Æ»s¥N½X
¥Ø«e»Ý­«½Æ°õ¦æ³o°Ê§@µª¤@¤d¦h¦¸¡A½Ð°Ý­n«ç»ò¥[¤J°j°é©O¡H

¥¨¶°¢´¤º®e¡@§@¥Î¡G¥Ñ¥Ø«eÂI¿ï¦ì¸m¦Ü³Ì¥ª¤è©w¸q¦WºÙ¡]¥H³Ì¥ªºÝ·í¦WºÙ¡^
  1. Sub ¥¨¶°5()
  2. '
  3. ' ¥¨¶°5 ¥¨¶°
  4. '

  5. '
  6.     Range(Selection, Cells(ActiveCell.Row, 1)).Select
  7.     Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
  8.         False
  9. End Sub
½Æ»s¥N½X

¦^´_ 1# starry1314
  1. Sub ¥¨¶°6()
  2. '
  3. ' ¥¨¶°6 ¥¨¶°
  4. '

  5.    For i = 65 To 1500
  6.    While Sheets(1).Cells(i, 1) <> ""
  7.     Application.Run "'S-¤pÀ\³æ.xlsm'!¥¨¶°5"
  8.     Range("G72").Select
  9.     Application.Run "'S-¤pÀ\³æ.xlsm'!¥¨¶°5"
  10.     Range("G73").Select
  11.     Application.Run "'S-¤pÀ\³æ.xlsm'!¥¨¶°5"
  12.     i = i + 1
  13. Wend
  14. Next
  15. End Sub
½Æ»s¥N½X
¥Ø«eÅܦ¨·|µL­­´`Àô¦A¢Õ¢¶¢±¡ã¢¶¢²

TOP

¥¨¶°5=¨Ì¥Ø«eÄæ¦ì¤@°_¿ï¨ú¦ÜÄæ¦ì³Ì¥ª¤è«á¦Û°Ê©w¸q©úºÙ(¨Ì³Ì¥ªÄæ)
½Ð°Ý»Ý­n¦p¦ó­×§ï¤~¯àÅý¥¨¶°6³æ¯Â¨Ì§Ç©¹¤U¤@Äæ¦b°õ¦æ¥¨¶°5¦Ü§Ú©Ò­nªºÄæ¦ì©Î¦¸¼Æ©O

TOP

¤w¸Ñ¨M
  1. Sub ¦Û°Ê©w¸q¦WºÙ()
  2. For i = 8 To 40
  3.   Range(Selection, Cells(ActiveCell.Row, 1)).Select
  4.     Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
  5.         False
  6.                  ActiveCell.Offset(1, 0).Select  '±q¥Ø«eªºÀx¦s®æ©¹¤U²¾¤@®æ
  7.                    Range(Selection, Selection.End(xlToRight)).Select
  8.          Next
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD