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

[µo°Ý] ¤u§@ªí½Æ»s¸ó¥t¤@Àɮפu§@ªí

¦^´_ 9# n7822123
n7822123 ªüÀs¦Ñ®v §A¦n

¸g´ú¸Õ«á.¥H¥i¹B¥Î
µo²{1°ÝÃD
·í½Æ¦Ü¦P¤@¤u§@ªí²MªÅ"©ú²Ó¦sÀÉ"¥u¯d"A1"¼ÐÃDÄæ®É
¥X²{"[©ú²Ó¦sÀÉ!A1].End(4)(2).PasteSpecial"¥X²{¿ù»~
¦P¼Ë½Æ»s¥tÀɮפu§@ªí¥X²{"oWb.Sheets(oSNm).[A1].End(4)(2).PasteSpecial  '½Æ»s¨ì¥t¤u§@ªí(¤£¦PÀÉ®×)¥X²{¿ù»~
»Ý²MªÅ®É¯d1µ§¸ê®Æ¤~·|½Æ»s¶K¤W

"A1"¬°¼ÐÃDÄæ
¤]´N¬O¨C¤ë»Ý¦sÀÉ®É.¥ý§â¤u§@ªí¤¤¸ê®Æ²MªÅ.¤£¯à¥þ²MªÅ.»Ý¯d"A1""A2"Ä椤¸ê®Æ.¤~¯à¹B¥Î

  ·PÁ  n7822123 ªüÀs¦Ñ®v  «ü¾É
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 11# BV7BW

§ï¤@¤U¡A¸Õ¬Ý¬Ý~

Sub Test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
[­q³f©ú²Óªí!A1].CurrentRegion.Offset(1).Copy
Sheets("©ú²Ó¦sÀÉ").Cells(Rows.Count,1).End(3)(2).PasteSpecial
'===¥H¤U¬°½Æ»s¨ì¥t¤@Àɮפu§@ªí===
oPath$ = ThisWorkbook.Path   '¦Û©w¿é¥X¸ô®|
oFile$ = "­q³f©ú²Ó¦sÀÉ.xlsm"     '¦Û©w¿é¥XÀɦW
oSNm$ = "­q³f©ú²Óªí¦sÀÉ"        '¦Û©w¿é¥Xªí¦W
On Error Resume Next
Set oWb = Workbooks(oFile$)
If Err <> 0 Then Err.Clear: Set oWb = Workbooks.Open(oPath & "\" & oFile)
If Err <> 0 Then MsgBox "§ä¤£¨ì¿é¥XÀÉ '" & oPath & "\" & oFile & "'¡A½Ð½T»{!": GoTo Over
On Error GoTo 0
oWb.Sheets(oSNm).Cells(Rows.Count,1).End(3)(2).PasteSpecial  '½Æ»s¨ì¥t¤u§@ªí(¤£¦PÀÉ®×)
oWb.Close 1: Set oWb = Nothing
Over: Application.CutCopyMode = False
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 12# n7822123

·PÁ  n7822123 ªüÀs¦Ñ®v  §A¦n


´ú¸Õ«á.¥H§¹¥þ¹B¥Î¦¨¥\
  «D±`ÁÂÁ§A
¦A¦¸·PÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 12# n7822123

n7822123 ªüÀs¦Ñ®v  §A¦n

´ú¸Õ«á.¥H§¹¥þ¹B¥Î
¬O§_¥i°l¥[²M°£
­n½Æ»s¤u§@ªí"©ú²Ó¦sÀÉ"«e.¥ý²M°£"A2"¦Ü"N65536"«á¦A¶K¤W¸ê®Æ
½Æ»s¥t¤@ÀÉ®×"­q³f©ú²Ó¦sÀÉ"¤¤¤u§@ªí"­q³f©ú²Óªí¦sÀÉ"«e.¥ý²M°£"A2"¦Ü"N65536"«á¦A¶K¤W¸ê®Æ

ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 12# n7822123
n7822123 ªüÀs¦Ñ®v §A¦n

¸g­×§ï¼W¦C"©ú²Ó¦sÀÉ"²M°£«á¦A¦æ¶K¤W¸ê®Æ³¡¥÷¤w¥i¹B¦æ ¤u§@ªí¦sÀÉ.zip (64.8 KB)

½Æ»s¥t¤@ÀÉ®×"­q³f©ú²Ó¦sÀÉ"¤¤¤u§@ªí"­q³f©ú²Óªí¦sÀÉ"¼W¦C²M°£«á¦A¦æ¶K¤W¸ê®Æ³¡¥÷
«o¤£¸Ñ±q¦ó³B¼W¦C²M°£«á¦A¦æ¶K¤W¸ê®Æ¤§µ{¦¡ ­q³f©ú²Ó¦sÀÉ.zip (32.14 KB)

¤]´N¬O»¡:·í»Ý½Æ»s«e¥ý±N"©ú²Ó¦sÀÉ"²M°£«á¤~¶K¤W¸ê®Æ
                :·í»Ý½Æ»s«e¥ý±N"­q³f©ú²Ó¦sÀÉ"²M°£«á¤~¶K¤W¸ê®Æ

¬O§_¥i½Ð n7822123 ªüÀs¦Ñ®v ½ç±Ð

         ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-30 23:02 ½s¿è

¦^´_ 15# BV7BW


¤]´N¬O»¡:·í»Ý½Æ»s«e¥ý±N"©ú²Ó¦sÀÉ"²M°£«á¤~¶K¤W¸ê®Æ
                :·í»Ý½Æ»s«e¥ý±N"­q³f©ú²Ó¦sÀÉ"²M°£«á¤~¶K¤W¸ê®Æ

³o¼Ë·Pı§ó²³æ¤F§r......¥þ³¡²M°£¦b¥þ³¡½Æ»s¶K¤W´N¦n(§t¼ÐÃD¦C)

¦pªG¤£¬O¤u§@ªí¦W¡BÀɦW¤£¤@¼Ë¡A§Ú³£·Q­nª½±µ½Æ»sÀɮפF


Sub Test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set ¦¹ªí = ActiveSheet
Sheets("©ú²Ó¦sÀÉ").Cells.Clear                            '§t®æ¦¡¥þ³¡²M°£
¦¹ªí.[A1].CurrentRegion.Copy [©ú²Ó¦sÀÉ!A1]   '½Æ»s¶K¤W

'===¥H¤U¬°½Æ»s¨ì¥t¤@Àɮפu§@ªí===
oPath$ = ThisWorkbook.Path   '¦Û©w¿é¥X¸ô®|
oFile$ = "­q³f©ú²Ó¦sÀÉ.xlsm"     '¦Û©w¿é¥XÀɦW
oSNm$ = "­q³f©ú²Óªí¦sÀÉ"        '¦Û©w¿é¥Xªí¦W
On Error Resume Next
Set oWb = Workbooks(oFile$)
If Err <> 0 Then Err.Clear: Set oWb = Workbooks.Open(oPath & "\" & oFile)
If Err <> 0 Then MsgBox "§ä¤£¨ì¿é¥XÀÉ '" & oPath & "\" & oFile & "'¡A½Ð½T»{!": GoTo Over
On Error GoTo 0
oWb.Sheets(oSNm).Cells.Clear     '§t®æ¦¡¥þ³¡²M°£
¦¹ªí.[A1].CurrentRegion.Copy oWb.Sheets(oSNm).[A1]  '½Æ»s¨ì¥t¤u§@ªí(¤£¦PÀÉ®×)

oWb.Close 1: Set oWb = Nothing
Over: Application.CutCopyMode = False
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 16# n7822123
·PÁ n7822123 ªüÀs¦Ñ®v «ü¾É

²z¸Ñ«á¦A¦^³ø

ÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 16# n7822123
n7822123 ªüÀs¦Ñ®v §A¦n

¸g´ú¸Õ«á§¹¥þ¦X¥G»Ý¨D

§Ú­×§ï¬°2¹D«ö¶s¤u§@

²Ä¤@¹D¬°"©ú²Ó¦sÀÉ"¥H²Ä1¦¸µ{¦¡«e¬q¬°°òÂI½Æ»s¨ì"©ú²Ó¦sÀÉ"¤¤

¦]"©ú²Ó¦sÀÉ"¤£¶·²M°£°Ê§@.»Ý«O¯d­ì©l¸ê®Æ¤Î­×§ï«á¸ê®Æ¥H«K¬dÃÒ

²Ä2¹D«ö¶s"­q³f©ú²Ó¦sÀÉ"¥H²Ä2¦¸µ{¦¡«á¬q¬°°òÂI½Æ»s¨ì"­q³f©ú²Ó¦sÀÉ"¤¤.¤]¬O¥D­n­«ÂI

¦]½Æ»s°ò¥»¸ê®Æ¬°³s³e©Ê¸ê®Æ

¤S¦]"­q³f©ú²Ó¦sÀÉ"»Ý²M°£«e¸ê®Æ«á¤~¶K¤W½Æ»s«á¸ê®Æ.¤£¦Ü¦]«e¸ê®Æ»P¦Ü½Æ»s«á¸ê®Æ­«½Æ

¦C)«e¸ê®Æ:123.½Æ»s¶K¤W«á¸ê®Æ:123456

¨S²M°£·|¥X²{123123456.µ¥©ó123¬O­«½Æ¸ê®Æ.¦Ó»Ý¨D¬O123456

²{¥H­×§ï§¹¦¨¹B¥Î

   «D±`·PÁ n7822123 ªüÀs¦Ñ®v «ü¾É
            ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD