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

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

31^# 跳轉到 »

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

回復 51# GBKEE

感謝版主~這個視窗我有執行出來！但在形態下方那個紅框，不懂要怎麼了解涵義! 我先找其他的程式碼來看看差異性在哪好了

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

32^#

發表於 2015-5-11 14:36 | 顯示全部帖子

回復 52# lpk187

了解！因程式碼是放在.ThisWorkbook.Sheets("出餐單")所以讀取的資料是正確的，
目前想請問　＝或是ｃｏｐｙ　都是複製值　　　可以改成什麼讓他貼上的是連結呢？

ActiveSheet.Paste Link:=True　　　　＜－－原本貼上連結的方式　

目前修正為

Sheets("數據").Select
Range("B22").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("快速輸入").Select
Range("B2") = ThisWorkbook.Sheets("出餐單").Range("H1").Value
Range("C3") = ThisWorkbook.Sheets("出餐單").Range("C4").Value
Range("D3") = ThisWorkbook.Sheets("出餐單").Range("V1").Value
Range("B4") = ThisWorkbook.Sheets("出餐單").Range("X3").Value
Range("B5") = ThisWorkbook.Sheets("出餐單").Range("E1").Value
End Sub

複製代碼

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

33^#

發表於 2015-5-12 13:43 | 顯示全部帖子

回復 58# GBKEE

版主大大~不好意思  使用F8逐行執行時
WbSh(1). 會跳出沒有定義這個SUB或function
但看上方MANI指令中就已有定義..請問是哪邊不對呢...
Sub Ex()

WbSh(1).Range("B22").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
With WbSh(3) '不必 Select來 Select去
      .Range("B2") = "=" & WbSh(2).Range("H1").Address(, , , 1)
         '用公式連結
      .Range("C3") = "=" & WbSh(2).Range("C4").Address(, , , 1)
      .Range("D3") = "=" & WbSh(2).Range("V1").Address(, , , 1)
      .Range("B4") = "=" & WbSh(2).Range("X3").Address(, , , 1)
      .Range("B5") = "=" & WbSh(2).Range("E1").Address(, , , 1)
End With
End Sub

TOP

starry1314