返回列表 上一主題 發帖

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

takeshilin88
　暱稱: 鹹蛋

中學生Rank: 2

帖子
62 
主題
13 
精華
0 
積分
109 
點名
0  
作業系統
Win 10家用版 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
新北 
註冊時間
2016-1-27 
最後登錄
2024-8-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-5-9 18:43 | 只看該作者

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

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

jackyq

帖子
320 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-12-21 
2#
發表於 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

TOP

takeshilin88
　暱稱: 鹹蛋

中學生Rank: 2

帖子
62 
主題
13 
精華
0 
積分
109 
點名
0  
作業系統
Win 10家用版 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
新北 
註冊時間
2016-1-27 
最後登錄
2024-8-12 
3#
發表於 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

  23.     Source.Copy
  24.          
  25.    '將此範圍複製到指定的範圍或複製到剪貼簿中


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

TOP

jackyq

帖子
320 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-12-21 
4#
發表於 2016-5-10 15:18 | 只看該作者
If ActiveCell.Address = Cells(3, 2).Address Then

其餘類推

TOP

takeshilin88
　暱稱: 鹹蛋

中學生Rank: 2

帖子
62 
主題
13 
精華
0 
積分
109 
點名
0  
作業系統
Win 10家用版 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
新北 
註冊時間
2016-1-27 
最後登錄
2024-8-12 
5#
發表於 2016-5-10 17:08 | 只看該作者
回復 4# jackyq


    Jack大大：

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

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

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題