返回列表 上一主題 發帖

[發問] 按下儲存格有超連結功能時,同時啟動巨集

[發問] 按下儲存格有超連結功能時,同時啟動巨集

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

TOP

回復 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.     Source.Copy
  23.          
  24.    '將此範圍複製到指定的範圍或複製到剪貼簿中


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

TOP

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

其餘類推

TOP

回復 4# jackyq


    Jack大大:

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

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

TOP

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題