歡迎外國朋友學BLOG

BANKHOE : 您好 ( 越南)
APA KABAR :您好 ( 印尼)
MI GA LABAR :您好 ( 緬甸)

妹咕好一些了

一週了 妹咕生病真的一週了

今天是假日 天氣一然冷冷

她的咳受次數變少了

真是令人高興

但是還是讓人担憂

不過她毛到大家的回應留言

真是開心

再此謝謝大家

第二天 妹咕會偷哭 - 請大家留言祝福

昨天阿咪唸妹咕
妹咕就偷哭
我看了真是心.....
所以我就唸自己
陪妹咕算一算時間太少
請大家要給妹咕回應喔
今天我會請妹咕上本BLOG
讓她了解許多大哥哥和大姐姐 有來此BLOG回應
祝福她
阿爸先回應
妹咕加油

網路問卷 - 可以申請

新網路問卷
http://www.my3q.com/misc/register/register.phtml

EXCEL -VBA 自動加總

這是解決學生要自動加總的VBA程式

Sub 自動加總()
Dim r1, r2, c1, c2, s
s = 0

r1 = ActiveCell.Row
c1 = ActiveCell.Column
  While (ActiveCell(r1, c1).Value <> Empty)

       While (ActiveCell(r1, c1).Value <> Empty)
   
              s = s + ActiveCell(r1, c1).Value
              r1 = r1 + 1
       Wend
 ActiveCell(r1, c1).Value = s
 r1 = ActiveCell.Row
 c1 = c1 + 1
 s = 0
 
 
 Wend
 
 r1 = ActiveCell.Row
c1 = ActiveCell.Column

 
 
  While (ActiveCell(r1, c1).Value <> Empty)

       While (ActiveCell(r1, c1).Value <> Empty)
   
              s = s + ActiveCell(r1, c1).Value
             c1 = c1 + 1
       Wend
 ActiveCell(r1, c1).Value = s
 c1 = ActiveCell.Row
 r1 = r1 + 1
 s = 0
 
 
 Wend
 
 
 
 
End Sub

妹咕真的氣人 - 生病

晚間下課約10:30到家

妹咕說 : 阿爸我不行了

我和阿咪(內人)一同快速送往新店急診

因為妹咕笑吼

這個會因天氣驟變而發作 , 這已是我BLOG

常見的文章了

只是昨天她一直到早上7:00才穩定回家休息

我今天一天都沒啥休息 , 又去上課了

課堂中學生們給了許多祝福

謝謝大家

讓BLOG有聲有色

最近玩blog發現自己又進步了
因學生的提問讓自己又向前一步
以下是可以去提升自己log的音樂喔
大家有blog的朋友可以試喔
http://popo516.myweb.hinet.net/lost_heart/b/musicplayer/mini.htm

但是要先將音樂檔案上傳喔
以下是不用上傳音樂的做法
要先申請會員 步驟簡單
http://www.kkbox.com.tw/manual3/mybox/bgm.html

思考

大家都會思考 , 但是不是每一位思考都有結論
而且結論要可行也不是每一位朋友都可以執行
妹咕 近日問我一個問題
阿爸 您可以不要這麼忙嗎
思考
..............
真是陷入思考

大家有空也要思考喔

休息是為了走更長的路

上一週忙翻了 , 今天休息一下

才發現 自己好累喔

今天醒來已是上午8:30分

昨天記得好像是2:30分

真是本週休息最久的一次了

妹咕一然咕咕哨

真是快一個月了

氣人

希望大家要健康喔

今天算了一下 - 謝謝大家

158246 /18/30  294 人次點閱率

本站建站至今平均每日有294的點閱率

294/10 = 30人

大約一人點閱10次 , 也有30 人

謝謝大家 , 如果在電腦技術須要合作 , 請多多指教

妹咕老師在此謝謝大家

工作完稿了 - 哇謝謝大家

今天終於完成四本書了

算一算也有近500頁的內容

平均一本110頁

哇謝謝大家 這幾天生病沒發表

也沒有任何訊息給大家

大家還是很站住本BLOG

謝謝

頭真的很大

妹咕假日到西門町 , 居然一臉朱頭回家
阿咪說妹咕給跳蚤咬了
真是心疼
都怪自己沒空陪妹咕
所以我現在也是和妹咕一
頭 很
大

謝謝大家的關心

我今天要完成輸入法的文件製作

加油

連續二天沒啥休息

大家要注意喔

不要不休息

老師因為要趕書

所以沒休息

這是不好的行為

請大家加油

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