Board logo

標題: 不曉得有辦法只修改超連結的"輸入儲存格位置"嗎？ [打印本頁]
作者: cji3cj6xu6    時間: 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    時間: 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)，爾後再以搜尋方法尋找標題欄再對應至相關的資料欄，取得資料。

這是欄位變動性的設計議題。盡量不要使用絕對座標、而是改以參考座標來設計，如此彈性度會較佳。
作者: cji3cj6xu6    時間: 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，請問有此方法嗎?
謝謝!
作者: mark15jill    時間: 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
作者: cji3cj6xu6    時間: 2013-4-17 11:00

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)