khw1104
2009-04-08, 02:19 PM
大家好
我有 一個問題
請問我要如何寫VBA程式使
儲存格的超連結互換
也就是
將A1儲存格的超連結跟A2儲存格的超連結互換
感謝回答
謝謝
贊助商連結
我有 一個問題
請問我要如何寫VBA程式使
儲存格的超連結互換
也就是
將A1儲存格的超連結跟A2儲存格的超連結互換
感謝回答
謝謝
贊助商連結
贊助商連結 khw1104 2009-04-08, 02:19 PM 大家好 我有 一個問題 請問我要如何寫VBA程式使 儲存格的超連結互換 也就是 將A1儲存格的超連結跟A2儲存格的超連結互換 感謝回答 謝謝 贊助商連結 khw1104 2009-04-09, 11:26 PM 以下方法 轉載自 妹咕老師數位學習網 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 |
|