Excel 超連結的問題

顯示結果從第 1 筆 到 2 筆,共計 2 筆
  1. #1
    會員
    註冊日期
    2009-04-08
    討論區文章
    2

    Excel 超連結的問題

    大家好
    我有 一個問題

    請問我要如何寫VBA程式使
    儲存格的超連結互換

    也就是
    將A1儲存格的超連結跟A2儲存格的超連結互換

    感謝回答
    謝謝



  2. #2
    會員
    註冊日期
    2009-04-08
    討論區文章
    2

    回覆: 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

類似的主題

  1. 【求助】flash超連結的問題
    作者:shung0116 所在討論版:-- 繪 圖 軟 體 討 論 版
    回覆: 1
    最後發表: 2005-08-26, 10:32 AM
  2. 【求助】flash超連結的問題
    作者:shung0116 所在討論版:-- 多 媒 體 討 論 版
    回覆: 2
    最後發表: 2005-06-23, 11:36 PM
  3. 【求助】有關outlook超連結的問題...
    作者:conantcindy 所在討論版:-- 網 路 軟 體 討 論 一 版 (Browser,Email
    回覆: 1
    最後發表: 2002-12-19, 08:49 AM
  4. 【求助】超連結的問題
    作者:tokitoki 所在討論版:-- HELP ME 電 腦 軟 硬 體 急 救 版
    回覆: 1
    最後發表: 2002-12-09, 01:20 AM

 

此網頁沒有從搜尋引擎而來的訪客

發表文章規則

  • 不可以發表新主題
  • 不可以回覆文章
  • 不可以上傳附加檔案
  • 不可以編輯自己的文章
  •