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

[µo°Ý] ¦p¦ó±N Excel ¸ê®Æ¡A®M¦L¦Ü¥t¤@±i¤u§@ªí¤¤ªº¯S©w®æ¦¡¤¤¡H

[µo°Ý] ¦p¦ó±N Excel ¸ê®Æ¡A®M¦L¦Ü¥t¤@±i¤u§@ªí¤¤ªº¯S©w®æ¦¡¤¤¡H

¥»©«³Ì«á¥Ñ benny15151515 ©ó 2018-10-25 09:55 ½s¿è

·Q½Ð±Ð¤j®a,§Ú¦³­Ó¤u§@ªí¦³¤w¦³©T©w®æ¦¡(©ú²Óªí),¦ý§Ú·Q§â»Ý­nªº¸ê®Æ,
¦p¹Ï¤ù©Ò¥Ü½Æ»s¶À¦â³¡¥÷,©ú²Óªí¦]¬°¥H©T©w®æ¦¡,
¨C¶W¹L30µ§®É·|¦A©³¤U¤S²£¥Í©ú²Óªí¥H¦¹Ãþ±À,ÁÂÁ¤j®a¡C



¸g¶O¥æ¦¬©ú²Óªí(´ú¸Õ).zip (8.73 KB)

¸ê®Æ¤Ó¤Ö!!!
¬Ý¤£À´¦p¦ó®M???

TOP

¦^´_ 2# ­ã´£³¡ªL



     ¦p¹Ï¤ù ±N³o¨Ç¸ê®Æ ¦b ®M¨ì¦p¤W¹Ï ¥t¤@±i¤u§@ªí
     ¥i¥H¦³Ãþ¦üªº½d¨Ò¥i¥H¾Ç²ß¶Ü?
     Â²³æ©öÀ´ªº¡A§Ú¦³¬Ýºô¸ô¤Wªº¤@¨ÇÃþ¦üªºexcel
     ¦ý¦]¬°¤j³¡¤À³£ÁÙ¦³¼g¨ä¥L¥\¯à ©Ò¥H¹ê¦b¤]¬Ý¤£¤ÓÀ´
     §Ú¤]¤£´±³Â·Ð ¤@ª½¶Ãµo°Ý³oºØ°ÝÃD? ©Ò¥HÁÙ¬O­n¥ý°ÝÀ´
     ¦]¬°³Ìªñ¦³ÆZ¦hªºªF¦è »Ý­n³o¼Ë°µ

TOP

¦^´_ 3# benny15151515

¥Î·L½Õ«ö¶s§ïÅÜ­n¦C¦Lªº­¶¦¸(¨C30¦æ¤@­¶):
¸g¶O¥æ¦¬©ú²Óªí(´ú¸Õ)_v1.rar (11.24 KB)

TOP

¦^´_ 3# benny15151515

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, xT As Integer, xEnd As Integer
  4.     Set Rng(1) = Sheets("©ú²Óªí").Range("A1:O38")               '²Ä¤@±i©ú²Óªí½d³ò
  5.     xT = 5: xEnd = xT + 30                                      '©ú²Óªí¸ê®Æ ªº°_©l¦C¸¹,µ²§ô¦C¸¹
  6.     Rng(1).Rows(xT & ":" & xEnd) = ""                           '²M°£©ú²Óªíªº¸ê®Æ
  7.     Sheets("©ú²Óªí").Rows(Rng(1).Offset(Rng(1).Rows.Count).Row & ":" & Rows.Count).Clear
  8.                                                                 '²M°£¤W¦¸¾l¯dªº©ú²Óªí(¯d¤U²Ä¤@±i)
  9.     Set Rng(2) = Sheets("¸ê®Æ").Range("a2").EntireRow           '²Ä¤@µ§¸ê®Æ
  10.     Do                                                          '¶]¸ê®Æªº°j°é
  11.         Rng(1).Cells(xT, 1).EntireRow = Rng(2).Value            'xT¦C¤W,¶K¤W¸ê®Æ
  12.         xT = xT + 1                                             'xT¦C + 1
  13.         Set Rng(2) = Rng(2).Offset(1)                           'Offset(1)¤U¤@µ§¸ê®Æ
  14.         If Rng(2).Cells(1) = "" Then Exit Do                    '¨S¦³¸ê®ÆÂ÷¶},¶]¸ê®Æªº°j°é
  15.         If xT = xEnd Then                                        '¶ñº¡©ú²Óªí
  16.             With Rng(1).Offset(Rng(1).Rows.Count)               'Rng(1).Rows.Count: ©ú²ÓªíªºÁ`¦C¼Æ
  17.                 Rng(1).Copy .Cells                              '½Æ»s ©ú²Óªí
  18.                 Set Rng(1) = Rng(1).Offset(Rng(1).Rows.Count)   ' Set : «ü©wª«¥ó¤Þ¥Îµ¹ÅܼƩÎÄÝ©Ê
  19.             End With
  20.             xT = 5                                              '­«³]©ú²Óªí¸ê®Æ ªº°_©l¦C¸¹
  21.             Rng(1).Rows(xT & ":" & xEnd) = ""                   '²M°£©ú²Óªíªº¸ê®Æ
  22.         End If
  23.     Loop
  24. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# ­ã´£³¡ªL


    ¥i¥H¦A°Ý¤@¤U  §Úµo²{¤W­± ¤é´Á Ä´¦p§Ú·Q9¤ë§¹­n±µÄò 10¤ë±q²Ä¤@­¶¶}©l ¦³¬Æ»ò¿ìªk¥i¥H¸Ñ¨M?

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD