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

想要將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要如何寫，謝謝～

樓主熱帖

cji3cj6xu6

中學生 Rank: 2

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

論壇贊助勳章

5^#

發表於 2013-4-17 11:00 | 只看該作者

謝謝m大，晚點好好想看看～

TOP

mark15jill

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

高中生 Rank: 3 Rank: 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

中學生 Rank: 2

帖子: 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

gnimnek168

小學生 Rank: 1

帖子: 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