標題: [發問] 按下儲存格有超連結功能時，同時啟動巨集 [打印本頁]

---

作者: takeshilin88    時間: 2016-5-9 18:43     標題: 按下儲存格有超連結功能時，同時啟動巨集

請問各位大大：
Excel工作表中，某些儲存格(例如B3、M3、B30、M30)，已分別設定超連結，
只要滑鼠點擊這四個任何一點儲存格時，能否同時啟動巨集，
請問該如何設定呢？
謝謝

---

作者: jackyq    時間: 2016-5-9 21:50

'2選一
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

---

作者: takeshilin88    時間: 2016-5-10 08:23

回復 2# jackyq

在工作表中：
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Mail_Range
End Sub

在Module1中：

1. Sub Mail_Range()
   
2.     Dim Source As Range
   
3.         
   
4.     Set Source = Nothing
   
5.     On Error Resume Next
   
6.    
   
7.     '新增程式碼開始，作用中儲存格停在哪個部門別，就設定為Source
   
8.    
   
9.     If ActiveCell = Cells(3, 2) Then
   
10.     Set Source = Range("A1:J26").SpecialCells(xlCellTypeVisible)
    
11.     ElseIf ActiveCell = Cells(3, 13) Then
    
12.     Set Source = Range("L1:U26").SpecialCells(xlCellTypeVisible)
    
13.     ElseIf ActiveCell = Cells(30, 2) Then
    
14.     Set Source = Range("A28:J52").SpecialCells(xlCellTypeVisible)
    
15.     ElseIf ActiveCell = Cells(30, 13) Then
    
16.     Set Source = Range("L28:U52").SpecialCells(xlCellTypeVisible)
    
17.     Else
    
18.     End If
    
19.    
    
20.         
    
21.     On Error GoTo 0
    
22. 
    
23.     Source.Copy
    
24.          
    
25.    '將此範圍複製到指定的範圍或複製到剪貼簿中
    
26. 
    
27. 
    
28. End Sub

複製代碼

但是視窗到新郵件時，按滑鼠右鍵->貼上，
沒有資料耶，
是不是Module1程式碼哪裡有誤？
而導致沒有複製到剪貼簿中呢？
謝謝

---

作者: jackyq    時間: 2016-5-10 15:18

If ActiveCell.Address = Cells(3, 2).Address Then

其餘類推

---

作者: takeshilin88    時間: 2016-5-10 17:08

回復 4# jackyq


    Jack大大：

   發現改成
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

   就可以正常使用了，
   感謝大大的幫忙~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)