EXCEL VBA 互換超連結

請看下列程式碼 , 可以將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

謝謝大家 - 生病真的是氣走人不在

昨日上課依然沒生 , 所以學生都很體諒

因為大家都沒有問題

再此BLOG謝謝大家

今日想在此BLOG徵求數篇文章

我是要用來出書的 , 所以大家提供須合法

沒有錢喔 , 只是想問您的文章要不要留傳

我會註明您的大名

謝謝大家

終於生病了

好久沒有生病了 , 今天有些感冒

上課比較對不起學生

還是要謝謝學生們的厚愛

大家加油喔

妹咕自己的文章

小黑驢

和狐狸這對好朋友一起去找東西吃

他們穿過樹林時迎面跳出一頭獅子

小黑驢和狐理嚇得魂不附體

獅子想我要怎樣才能把他們兩個都抓住呢

狐理想 : 我如何才能脫身呢

狐理小聲對獅子說: 你想要吃這頭驢子嗎

我幫你把他帶到陷阱那兒 , 不過你得答應不傷害我 . 

狐狸又走向小黑驢.指著陷阱那邊說;快跑啊不要在這兒等死啊小黑驢跑不了多遠就掉進陷阱裡

狐狸一臉奉承向獅子討好的說獅子大哥你的大餐已經在那兒了

獅子郤一把抓住他 , 冷冷的說黑驢在陷阱裡  跑不掉的現在我先把你當午餐

晚上再來吃他

阿咪受傷了

今天阿咪從椅子上跌下來

手去扭到 真是心在滴血

妹咕給阿咪呼呼

看了真是高興

因為妹姑長大了

EXCEL問題 - 真的很好

今天學生問了一個問題

大致內容如下

如果有下列的表格 , 如何可以快速找到對應的內容

如在儲存格 B10輸入縣市 , C10輸入預算 試問可否在D10顯示其縣市的預筫金額 ?

原文資料

  A                              B                   C                 D                   E

1                            公務預算    特別預算    營業基金     非營業基金

2   臺北縣             1497                  96              36                9

3   宜蘭縣                 5                    52            100              70

4   桃園縣                 31                 50                  0              151

修正其資料後的內容 

我增加欄B的編號 , 與列2的編號

        A           B                C                   D                 E                   F

1                            公務預算    特別預算    營業基金     非營業基金

2               　          　 1                    2                  3                4 

3   臺北縣    1        1497                  96              36                9

4   宜蘭縣    2             5                    52            100              70

5   桃園縣    3            31                 50                  0              151

現在請在儲存格 B10輸入 "桃園縣 " , C10輸入 "特別預算" 

在D10輸入公式

=INDEX($C$3:$F$7,VLOOKUP($B$10,$A$3:$B$7,2,0),HLOOKUP(C$10,C$1:F$2,2,0))

簡單吧