返回列表 上一主題 發帖

不曉得有辦法只修改超連結的"輸入儲存格位置"嗎？

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-16 16:50 | 只看該作者

不曉得有辦法只修改超連結的"輸入儲存格位置"嗎？

想要將sheet1 的b1,b2, b3..b10 超連結到 sheet2 的 a1，Sheet3 的 a1.....Sheet11 的 a1
(Sheet1, B1 ) ==> (Sheet2, A1)
(Sheet1, B2 ) ==> (Sheet3, A1)
(Sheet1, B3 ) ==> (Sheet4, A1)
(Sheet1, B4 ) ==> (Sheet5, A1)



(Sheet1, B10 ) ==> (Sheet11, A1)

但是 Sheet1 的b1, b2.... b10 可能會因為排序的問題而上下異動，
而Sheet2, Sheet3.........Sheet10 已經儲存ok了。
不曉得有辦法只修改超連結的"輸入儲存格位置"，而不動到Sheet2, Sheet3..........
vba要如何寫，謝謝∼
收藏 分享

gnimnek168

帖子
9 
主題
2 
精華
0 
積分
18 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2011-12-12 
最後登錄
2013-9-16 
2#
發表於 2013-4-17 05:35 | 只看該作者
本帖最後由 gnimnek168 於 2013-4-17 05:37 編輯

回復 1# cji3cj6xu6

參考這一篇：Excel VBA－關於儲存格變動性的設計議題。
http://www.kenming.idv.tw/excel_vba_cell_change_design

簡單的說，把來源欄位群組(group)為某一特定資料表，並設置標題欄與資料欄，並設定該資料表的範圍 (Range)，爾後再以搜尋方法尋找標題欄再對應至相關的資料欄，取得資料。

這是欄位變動性的設計議題。盡量不要使用絕對座標、而是改以參考座標來設計，如此彈性度會較佳。

TOP

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
3#
發表於 2013-4-17 06:06 | 只看該作者
謝謝G大的解說，不過好像不是我想的答案。

想要將sheet1 的b1,b2, b3..b10 超連結到 sheet2 的 a1，Sheet3 的 a1.....Sheet11 的 a1
(Sheet1, B1 ) ==> (Sheet2, A1)
(Sheet1, B2 ) ==> (Sheet3, A1)
(Sheet1, B3 ) ==> (Sheet4, A1)
(Sheet1, B4 ) ==> (Sheet5, A1)



(Sheet1, B10 ) ==> (Sheet11, A1)

但是下次，我想要將連結點全數改為A100，請問有此方法嗎?
謝謝!

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
4#
發表於 2013-4-17 10:43 | 只看該作者
謝謝G大的解說，不過好像不是我想的答案。

想要將sheet1 的b1,b2, b3..b10 超連結到 sheet2 的 a1，Shee ...
cji3cj6xu6 發表於 2013-4-17 06:06




Sub 巨集1()

'======== 快速創活頁簿 ========'
'For hw = 1 To 99
'    Sheets.Add After:=ActiveSheet
'Next

'======== 快速連結 ========'
For hh = 1 To 99
    工作表1.Cells(hh, "C") = "工作表" & hh + 1   '可改
    A1K = 工作表1.[d1]   '可改   這行可由D1直接修改連結目的地
    工作表1.Cells(hh, "B") = 工作表1.Cells(hh, "C") & A1K '可改
   
    kk = 工作表1.Cells(hh, "C") & "!" & A1K '可改
    工作表1.Cells(hh, "B").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=kk, TextToDisplay:=Cells(hh, "C") & A1K '
   
Next
End Sub

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
5#
發表於 2013-4-17 11:00 | 只看該作者
謝謝m大，晚點好好想看看∼

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題