寫在 ThisWorkbook 中，用內建的 Workbook_SheetSelectionChange 即可。
>> 在你範例中綠色的字應該算是備註不用寫入吧?
是備註，只是幫助了解而已；有沒有都不影響程式。
>> 請問你的這種方法是不是需要在每一個SHEET中寫呢
>> 不能ㄧ次寫在THISWORK中嗎?
寫在 ThisWorkbook 中，要用
Workbook_SheetSelectionChange 事件，如下 --
Const path1 = "C:\Documents and Settings\Administrator\..."
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Set a = Target.Cells(1): If a = "" Or a.Column <> 2 Then Exit Sub
On Error Resume Next
'Set Wsh = CreateObject("WScript.Shell") 'WScript方法 'Wsh.Run """" & path1 & a & ".gif""" 'WScript方法 Shell "cmd /c start
""xx
"" """ & path1 & a & ".gif
"""
'路徑含有空白時，路徑要加雙引號，start用法也稍有不同，如上所示。 If Err <> 0 Then MsgBox Err & ": " & Err.Description, 16
End Sub
>> 在程式碼中所使用的網址 是指超連結出現的網址嗎
>> 因為我的網址寫上之後並沒有像你一樣出現可以按進去的狀態
這個自動超連結是指〔
自動連結〕，而不是〔自動建立超連結〕。
它不需要建立超連結，只要
選取網址或檔名所在的儲存格，就會自動開啟。
>> 在第2行中所謂的圖檔是指所有圖檔嗎?
是的，只要你電腦中有相關程式可開啟的圖檔都可以。
>> ...而第4行的網址是單一網址呢
>> 還是只要我分別輸入每個不同的圖檔編號之後他就會自己做連結呢?
>> 我的檔案名稱為2-05.gif
>> 為什麼我輸入了之后還是無法自動顯示超連結呢?
５樓只是列舉四種情形，說明用這兩種方式可以開啟網址和各種類型的檔案。
至於是不是"輸入"後就連結，就請你先確定自己的需求：
你是要 [輸入] 後自動連結? 還是 [選取] 後自動連結?
若是前者，要改用 Change 事件，後者則用 SelectionChange 事件。
如果對Excel 事件沒什麼概念，可參考
事件/巨集/表單 - 認識與簡介 。
Const SW_SHOW = 5
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub test()
Filename = Application.GetOpenFilename(, , "開啟檔案", False)
'Excel檔由Excel開,其它檔由ShellExecute函數開
If LCase(Right(Filename, 3)) <> "xls" Then
ShellExecute 0, "open", Filename, "", "", SW_SHOW
Else
Workbooks.Open (Filename)
End If
End Sub
大大
上面的程式碼是在你所提供的網址中看到的
其中Const SW_SHOW = 5
以及Filename, 3
這2句是什麼意思呢?
可以請大大告訴我嗎?
Const 是定義一個常數，其值是固定不變的。
SW_SHOW 是自訂的常數名稱，在此用來做為 ShellExecute 的參數；
但我不知這個參數的作用，以及設定值 5 的意義...
我猜大概是指定開啟視窗的狀態之類的。
忘了處理 Filename, 3 的疑問...
Right(Filename, 3) 是取檔名右邊 3 個字元 -- 也就是副檔名。
其實你不用太care 這段 API 的寫法，
Wsh.Run /
start is the Answer，不是嗎
作者
已記錄
