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

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

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-24 15:28 ½s¿è

¦^´_ 1# BV7BW


§AÁ¿ªº¦³¨ÇÅ¢²Î~

¤j·§¼g¤@­Óµ¹§A¡A¦b"­q³f©ú²Óªí"ÀH·N¿ï¾Ü¦³¸ê®Æªº¤@®æ¡A°õ¦æ¥H¤Uµ{¦¡

§Y¥i½Æ»s¸Ó¦C¡A¨ì¦PÀÉ¥t1¤u§@ªí¡A¥H¤Î¤£¦PÀɪº¤u§@ªí

µ{¦¡¹w³]¨â­ÓÀɮ׳£¦b¦P¤@­Ó¸ê®Æ§¨¤U(¥i¦Û¦æ½Õ¾ãµ{¦¡¤ºªº ¿é¥X¸ô®|¡B¿é¥XÀɦW)


Sub Test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Ri& = Selection.Row
Cn& = [A1].End(2).Column
Cells(Ri, 1).Resize(, Cn).Copy
[©ú²Ó¦sÀÉ!A1].End(4)(2).PasteSpecial  '½Æ»s¨ì¥t¤u§@ªí(¦PÀÉ®×)
'===¥H¤U¬°½Æ»s¨ì¥t¤@Àɮפu§@ªí===
oPath$ = ThisWorkbook.Path   '¦Û©w¿é¥X¸ô®|
oFile$ = "­q³f©ú²Ó¦sÀÉ.xlsm"     '¦Û©w¿é¥XÀɦW
On Error Resume Next
Set oWb = GetObject(oPath & "\" & oFile)    '­I´º¶}±Ò
If Err <> 0 Then MsgBox "§ä¤£¨ì¿é¥XÀÉ '" & oPath & "\" & oFile & "'¡A½Ð½T»{!": GoTo Over
On Error GoTo 0
oWb.Sheets(1).[A1].End(4)(2).PasteSpecial  '½Æ»s¨ì¥t¤u§@ªí(¤£¦PÀÉ®×)
Windows(oFile).Visible = True  'Ãö³¬«e¨ú®ø­I´ºÁôÂÃ
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

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-25 13:08 ½s¿è

¦^´_ 4# BV7BW

¶}±Ò­q³f©ú²Óªí¡A°õ¦æ¥H¤Uµ{¦¡

­q³f©ú²Ó¦sÀÉ ¦³¶}±Ò¡B¨S¶}±Ò¡AÀH·N

¸Õ¸Õ¬Ý


Sub Test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
[­q³f©ú²Óªí!A1].CurrentRegion.Offset(1).Copy
[©ú²Ó¦sÀÉ!A1].End(4)(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).[A1].End(4)(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

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-25 14:01 ½s¿è

¦^´_ 4# BV7BW


½Æ»s¨ì¥t¤@Àɮפu§@ªí«hµLªk¶i¦æ.¤£ª¾­þ¸Ì¿ù»~

¤G¼Óµ{¦¡¬O¹w³]§Aªº¿é¥XÀÉ®× "­q³f©ú²Ó¦sÀÉ.xlsm" ¬O¥¼¶}±Òª¬ºA

¦pªG§A­ì¥»´N¶}±Ò¡Aµ{¦¡­«½Æ¶}±Ò·|¦Û°Ê¨ú®ø½Æ»sª¬ºA¡A¤]´N¨S¿ìªk¶K¤W¤F

8¼Óµ{¦¡¼W¥[¼u©Ê¡A­ì¥»¦³¶}±Ò¡B¨S¶}±Ò³£¾A¥Î (¼u©Ê¶V¤j¡A³q±`µ{¦¡½X¶Vªø¡A©Ò¥H½ÐºÉ¶q±Ô­z²M·¡)

¨Ã­×§ï¥þ¸ê®Æ½Æ»s(¼ÐÃD°£¥~)¡A¦ý¬Oµ{¦¡µ²§ô¡A¬O¹w³]²Î¤@§â¿é¥XÀÉÃö³¬~

¥t¥~§Ú¬Ý§A«Ü¦h¥¨¶°«ö¶s³£³]¦b "­q³f©ú²Óªí"¡A©Ò¥H§Úªºµ{¦¡¤]¬O¹w³]¦b¨º¸Ì

µ{¦¡°õ¦æ«e¡A½Ð¤Á¦^"­q³f©ú²Óªí"¡A¦b¤£¦P¬¡­¶Ã¯ª¬ºA¡A8¼Óµ{¦¡ÁÙ¬O·|¥X¿ù(§ä¤£¨ìCopy¨Ó·½)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§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

¥»©«³Ì«á¥Ñ 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

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD