[發問] 將資料自動複製到，目前點選的所在頁面並自動選擇最後一行空白處貼上

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

2^#

發表於 2015-4-16 10:20 | 顯示全部帖子

Sub 自動複製客戶明細()
'
' 自動複製客戶明細巨集
'
' 快速鍵: Ctrl+A
'
Windows("紀錄表-基礎.xls").Activate
Range("A2:M2").Select
Selection.Copy
Windows("客戶明細-業務專用.xlsm").Activate
ActiveSheet.Paste link:=True
End Sub

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

3^#

發表於 2015-4-18 01:09 | 顯示全部帖子

回復 starry1314

因為檔案名稱以及分頁名稱都需要被指出
因此我假設檔案名稱A以及分頁名稱A1都是被拷 ...
PKKO 發表於 2015-4-16 12:04

是說我原本的巨集指令完全替換成像你這樣的範例嗎??
Sub test()
Workbooks("紀錄表-基礎.xls").Sheets("客戶明細").Rows(2).Copy
EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '所有使用中的列數+1
Rows(EndRow).PasteSpecial Paste:=xlPasteValues
End Sub

像這樣嗎? 另ROW(2)的意思是第二個檔案? 另workbooks的意思是?

我原本的巨集指令是只能達成固定檔名的自動複製貼上,但檔名只要不一樣就失敗了~所以想寫成
A複製到E
B複製到E1
C複製到E2
巨集儲在E

不管被烤或拷貝後都可以不均檔名,

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

4^#

發表於 2015-4-19 01:32 | 顯示全部帖子

回復 8# tyrone123456

Sub test()
Workbooks("紀錄表 ").Sheets("客戶明細").Rows(2).Copy
EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '所有使用中的列數+1
Rows(EndRow).PasteSpecial Paste:=xlPasteValues
End Sub

可使用～但像 Workbooks("紀錄表 ").Sheets("客戶明細").Rows(2).Copy
變成只能使用固定檔名～可寫成將巨集存在哪個檔案裡就複製裡面sheets("客戶明細")的到目前所在的頁面嗎?
另如果要自動插入超連結要怎麼寫呢?GOOGLE找到的方法只變成自動貼上連結,無法讓他點選就跳選到當初複製過來的那個檔案裡面

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

5^#

發表於 2015-4-19 01:55 | 顯示全部帖子

目前寫法
Sub test()
Workbooks("紀錄表 ").Sheets("客戶明細").Rows(2).Copy
EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '所有使用中的列數+1
Rows(EndRow).PasteSpecial Paste:=xlPasteValues
ActiveSheet.Paste Link:=True
End Sub

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

6^#

發表於 2015-4-19 02:10 | 顯示全部帖子

For I = 2 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & I), Address:="", SubAddress:= _
Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
Next

有找到這種寫法.但不知道該如何整合進來,雖然會有超連結成功但不知道該怎麼調整在業務那邊會自動抓我SHEET1的連接貼過來,但在紀錄表那卻只會抓一個連結過來
可以麻煩幫我看看嗎|

客戶明細自動化.rar (31.31 KB)

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

7^#

發表於 2015-4-19 17:04 | 顯示全部帖子

回復 12# tyrone123456

弄了一天還是弄不好.....連結會變成設在固定儲存格,不然就是無法參照的連結
1.我想做的是右邊的EXCEL資料自動複製到左方EXCEL,並自動貼至有資料的最後一列,並且自動插入可連結至右邊EXCEL檔案的連結

(但因右邊EXCEL,會有無數個不同檔名) <<所以想問說怎麼不均檔名,
因我照PKKO講的將Workbooks("紀錄表 ")拿掉就一直說偵錯不知道哪邊寫錯了

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

8^#

發表於 2015-4-19 17:12 | 顯示全部帖子

回復 13# PKKO

還是沒辦法說,直接拿掉剩Sheets("客戶明細").Rows(2).Copy 會一直跑偵錯,
且我想寫成巨集存在的EXCEL裡面的指定SHEET自動複製到我目前畫面上的頁面並自動貼上超聯結,不知有辦法嗎?
現在算完成一半了,已經可寫成複製連結到我所要的EXCEL裡面,但都是必須有一個EXCEL要指定檔名

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

9^#

發表於 2015-4-19 19:46 | 顯示全部帖子

回復 16# tyrone123456

好的~我再試試,如何將貼入超連結的寫法加入

　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

10^#

發表於 2015-4-19 20:15 | 顯示全部帖子

回復 16# tyrone123456

想請問一下
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:=Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
裡面的(I) 代表的是?