返回列表 上一主題 發帖

超連結不固定

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2025-6-9 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-11-27 18:04 | 只看該作者

超連結不固定

我想要點下一頁
就跳到106下半年K1
在點一次就到
107上半年Q1
在點一次就到
107下半年V6
以此類推

有什麼好的方法呢?

如下圖

TEST.rar (8.34 KB)
收藏 分享
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2025-6-9 
3#
發表於 2018-12-5 00:21 | 只看該作者
回復 2# 准提部林

謝謝大大，真是方便多了
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-6-9 
2#
發表於 2018-12-1 11:21 | 只看該作者
動態的[定義名稱] + [超連結]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C&
With Target.Item(1)
     C = Int((.Column - 5) / 6) * 6 + 11
     If C > 12 Then Cells(1, C - 12).Name = "NextCell_1"
     Cells(1, C).Name = "NextCell_2"
End With
End Sub

Xl0000401.rar (10.92 KB)

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題