返回列表 上一主題 發帖

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

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 
1# 跳轉到 »
發表於 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

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