2009年4月8日星期三

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徵求數篇文章
我是要用來出書的 , 所以大家提供須合法
沒有錢喔 , 只是想問您的文章要不要留傳
我會註明您的大名
謝謝大家

2009年4月7日星期二

終於生病了

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

上課比較對不起學生
還是要謝謝學生們的厚愛
大家加油喔

2009年4月5日星期日

妹咕自己的文章

小黑驢

和狐狸這對好朋友一起去找東西吃
他們穿過樹林時迎面跳出一頭獅子
小黑驢和狐理嚇得魂不附體
獅子想我要怎樣才能把他們兩個都抓住呢
狐理想 : 我如何才能脫身呢
狐理小聲對獅子說: 你想要吃這頭驢子嗎
我幫你把他帶到陷阱那兒 , 不過你得答應不傷害我 . 
狐狸又走向小黑驢.指著陷阱那邊說;快跑啊不要在這兒等死啊小黑驢跑不了多遠就掉進陷阱裡
狐狸一臉奉承向獅子討好的說獅子大哥你的大餐已經在那兒了
獅子郤一把抓住他 , 冷冷的說黑驢在陷阱裡  跑不掉的現在我先把你當午餐
晚上再來吃他

阿咪受傷了

今天阿咪從椅子上跌下來

手去扭到 真是心在滴血
妹咕給阿咪呼呼
看了真是高興
因為妹姑長大了

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))
簡單吧


 
妹咕數位學園歡迎網友們來信指教 妹咕信箱