關於自動貼上連結至另一個檔案並自動插入超連結 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 關於自動貼上連結至另一個檔案並自動插入超連結

返回列表下一主題上一主題發帖

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-5-11 05:51 | 顯示全部帖子

回復 50# starry1314

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

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

回復 55# starry1314

Option Explicit
Sub EX()
Dim AR(1 To 2) As Integer
'Integer 變數係以範圍為 -32,768 到 32,767 之 16 位元 (2 個位元組) 數字的形式儲存
AR(1) = 5
AR(2) = 15
AR(2) = "w15" '<- 資料型態不對已指定資料型態所以錯誤產生了
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2015-5-11 16:01 | 顯示全部帖子

回復 57# starry1314

Option Explicit
'模組頂端的 Dim 為這模組中程式可用的變數
Dim WbSh(1 To 3) As Worksheet '宣告變數型態指定為工作表
Sub Main()
Set WbSh(1) = ThisWorkbook.Sheets("數據")
'ThisWorkbook.Sheets("出餐單")如改為 "出餐單A"
Set WbSh(2) = ThisWorkbook.Sheets("出餐單") '在此改為 "出餐單A"了就可以了
Set WbSh(3) = ThisWorkbook.Sheets("快速輸入")
Call Ex
End Sub
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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-5-12 15:37 | 顯示全部帖子

本帖最後由 GBKEE 於 2015-5-12 15:41 編輯

回復 60# starry1314

Sub Ex()
End
'當執行到 End 陳述式時，陳述式會重新設定在所有模組中的所有模組層次變數以及所有靜態區域變數。
'若要保留這些變數的值，請使用 Stop 陳述式來取代 End ，然後您可以在稍後繼續執行。
End Sub

複製代碼

模組共用的私用變數執行後會存在於 VBA中
若有執行 End 陳述式
或如圖的重新設定
變數需再度設定
也就是說
給你的 Sub Main()須執行一次,
給你的 Sub Ex() 才沒有錯誤的

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 君子立恆志，小人恆立志。

返回列表下一主題上一主題