會員 | Excel 超連結的問題 大家好 我有 一個問題 請問我要如何寫VBA程式使 儲存格的超連結互換 也就是 將A1儲存格的超連結跟A2儲存格的超連結互換 感謝回答 謝謝 |
回覆 |
會員 | 回覆: Excel 超連結的問題 以下方法 轉載自 妹咕老師數位學習網 http://alexsir.blogspot.com/2009/04/excel-vba.html 請看下列程式碼 , 可以將A1儲存格的連結 換到A2儲存格 Sub 交換律() Range("A1").Select Selection.Cut Destination:=Range("A3") Range("A2:A3").Select Selection.Cut Destination:=Range("A1:A2") Range("A1").Select End Sub 方法利用A3儲存格進行搬移而已 也可以用下列程式 Sub 交換律() Dim myhyps As Hyperlinks Dim myhyp As Hyperlink myx1 = Range("a1").Value myx2 = Range("a2").Value Set myhyps = Range("a1").Hyperlinks Set myhyp = myhyps(1) x1 = myhyp.Address Set myhyps = Range("a2").Hyperlinks Set myhyp = myhyps(1) x2 = myhyp.Address With Worksheets(1) .Hyperlinks.Add Anchor:=.Range("a1"), _ Address:=x2, _ TextToDisplay:=myx2 .Hyperlinks.Add Anchor:=.Range("a2"), _ Address:=x1, _ TextToDisplay:=myx1 End With End Sub |
回覆 |
|
類似的主題 | ||||
主題 | 主題作者 | 討論版 | 回覆 | 最後發表 |
excel 圖表的問題 | st0421 | -- OFFICE 相 關 軟 體 討 論 版 | 2 | 2008-05-17 04:28 PM |
Excel 時間與比較問題 | 小高 | -- OFFICE 相 關 軟 體 討 論 版 | 3 | 2003-12-30 09:26 PM |
Excel 篩選問題 | miniguy | -- OFFICE 相 關 軟 體 討 論 版 | 3 | 2003-09-30 04:31 PM |
EXCEL 函數問題 | Hendry | -- OFFICE 相 關 軟 體 討 論 版 | 4 | 2002-07-02 02:32 PM |
~~EXCEL 如何調整???? | wilking | -- OFFICE 相 關 軟 體 討 論 版 | 1 | 2002-05-23 07:16 PM |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。