關於自動貼上連結至另一個檔案並自動插入超連結 - Excel程式區

　暱稱: 豪

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

21^# 跳轉到 »

發表於 2015-5-7 10:11 | 顯示全部帖子

本帖最後由 starry1314 於 2015-5-7 10:25 編輯

回復 37# stillfish00

將你提供的巨集指令填寫到另一個含多個工作頁的個別客戶明細內,(裡面同樣有一個收款跟催一模一樣的)
另此收款跟催的資料是用連結取到出餐單內的資料,好像貼到業務明細內如果在第2個他連結會一直變動, ,所以才加上連結,
另可以貼上連結與超連結嗎? 要讓業務明細內的資料同步跟著個別客戶明細更新

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

22^#

發表於 2015-5-7 11:12 | 顯示全部帖子

回復 37# stillfish00

後來我將多個需要參照的工作表移動到[範例-插入超連結],執行按鈕就可以正確讀取資料了,
但想請問怎麼讓他可以貼上連結而不是貼上值呢?

上一個巨集可以貼上連結
不知該怎麼更換寫法套入你的巨集,讓他貼上的時候可以貼上連結

Sub 貼上資料至_業務管理()
'
' 貼上資料至_業務管理巨集
'
Range("A3:P3").Copy
Windows("客戶明細-業務專用.xlsm").Activate
EndRow = Windows("客戶明細-業務專用.xlsm").ActiveSheet.Range(Cells(Rows.Count, "A").End(xlUp).Address).Row + 1 '所有使用中的列數+1
Windows("客戶明細-業務專用.xlsm").ActiveSheet.Cells(EndRow, "A").PasteSpecial Paste:=xlPasteValues '目前使用中的分頁,的最下方空白列貼上值
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\" & ThisWorkbook.Name
End Sub

複製代碼

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

23^#

發表於 2015-5-7 12:00 | 顯示全部帖子

回復 37# stillfish00

關於點擊按鈕後複製的資料並不是在當前的SHEET,一直抓取到另一個sheet
剛剛說把分頁複製到個別客戶明細,有成功抓取對的資料
但之後再開啟他又是抓到別SHEET的資料了...

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

24^#

發表於 2015-5-7 12:31 | 顯示全部帖子

回復 40# starry1314
好像找到哪邊有問題了,如果個別客戶明細的資料是用連結到另一個SHEET的話,他就是複製公式過去所以變得怪怪的

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

25^#

發表於 2015-5-7 14:20 | 顯示全部帖子

本帖最後由 starry1314 於 2015-5-7 14:22 編輯

回復 42# stillfish00

再麻煩了

範例-自動插入超連結.rar (260.59 KB)

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

26^#

發表於 2015-5-8 17:58 | 顯示全部帖子

回復 44# stillfish00

感謝幫忙~原來是這樣添加...想到頭都痛了！

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

27^#

發表於 2015-5-10 15:21 | 顯示全部帖子

回復 9# lpk187

不好意思~想請問一下
ActiveSheet.Name 讀取目前工作表名稱
要怎麼套用進下列指令呢?因只要改檔名的話,他就找不到回來的視窗....
Windows("出餐單(請先另存新檔).xlsm").Activate

Sub 小餐單_S餐_自動輸入資料()
'
' 小餐單_自動輸入資料巨集
'
'
Sheets("數據").Select
Range("B25").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("快速輸入").Select
Windows("出餐單(請先另存新檔).xlsm").Activate
Sheets("出餐單").Select
Range("H1:I1").Select
Selection.Copy
Windows("小餐單-S.xlsm").Activate
Range("B2").Select
ActiveSheet.Paste Link:=True
Windows("出餐單(請先另存新檔).xlsm").Activate
Range("C4:AI4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("小餐單-S.xlsm").Activate
Range("C3").Select
ActiveSheet.Paste Link:=True
Windows("出餐單(請先另存新檔).xlsm").Activate
Range("V1:X1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("小餐單-S.xlsm").Activate
Range("D3").Select
ActiveSheet.Paste Link:=True
Windows("出餐單(請先另存新檔).xlsm").Activate
Range("X3:AI3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("小餐單-S.xlsm").Activate
Range("B4").Select
ActiveSheet.Paste Link:=True
Windows("出餐單(請先另存新檔).xlsm").Activate
Range("E1:F1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("小餐單-S.xlsm").Activate
Range("B5").Select
ActiveSheet.Paste Link:=True
Windows("出餐單(請先另存新檔).xlsm").Activate
End Sub

複製代碼

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

28^#

發表於 2015-5-11 00:18 | 顯示全部帖子

回復 47# lpk187

目前我改寫成這樣...但要怎麼讓他貼上的是連結呢?
目前做法是最後在加上舊指令讓我需要的連結過來....

看了stillfish00大大發的修改前29F→貼上值
修改後44F→貼上連結.
差異有點大.....看得懂意思，但要自己變換就一頭霧水了[code]Sub 小餐單_S餐_自動輸入資料()
'
' 小餐單_S餐_自動輸入資料巨集
'

'
Sheets("數據").Select
Range("B25").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("快速輸入").Select
Workbooks("小餐單-S.xlsx").Sheets("快速輸入").Range("B2") = ThisWorkbook.Sheets("出餐單").Range("H1:I1").Value
Workbooks("小餐單-S.xlsx").Sheets("快速輸入").Range("C3") = ThisWorkbook.Sheets("出餐單").Range("C4:AI4").Value
Workbooks("小餐單-S.xlsx").Sheets("快速輸入").Range("D3") = ThisWorkbook.Sheets("出餐單").Range("V1:X1").Value
Workbooks("小餐單-S.xlsx").Sheets("快速輸入").Range("B4") = ThisWorkbook.Sheets("出餐單").Range("X3:AI3").Value
Workbooks("小餐單-S.xlsx").Sheets("快速輸入").Range("B5") = ThisWorkbook.Sheets("出餐單").Range("E1:F1").Value

'替換值為連結
ThisWorkbook.Sheets("出餐單").Activate
Range("X3:AI3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("小餐單-s.xlsx").Activate
Range("B4").Select
ActiveSheet.Paste Link:=True

End Sub

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

29^#

發表於 2015-5-11 00:57 | 顯示全部帖子

本帖最後由 starry1314 於 2015-5-11 00:59 編輯

回復 47# lpk187

另想請問區域變數視窗要怎麼看呢?
打開後按F8逐行測試
運算式值型態
不太懂怎麼利用以上三項而來了解指令的意義
是以運算式或型態去說明尋找嗎? 用運算式找不到,以形態那找出來的又不太搭

像wsTarget <這是自定義名稱嗎?

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

30^#

發表於 2015-5-11 10:02 | 顯示全部帖子

回復 53# lpk187

了解~所以要用區域變數視窗來觀看就是要先給指令一個變數才有辦法一個一個觀看執行結果囉|?
如 AA=ThisWorkbook.Sheets("出餐單").Range("H1:I1").Value'
先來了解看看~

TOP

[發問] 關於自動貼上連結至另一個檔案並自動插入超連結

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]