永和分校的美女們謝謝大家
除了是課堂上能夠賞心以外
個個更是秀外慧中
大年初八上課 , 花蓮美女帶好東東分班上同學們
當然老師我也有一份 , 是送給妹咕的
結果妹咕居然說
阿爸是哪個阿姨給我的 , 可不可以換消費卷 (喔 , 我要昏了)
妹咕太奸炸了
不過在此BLOG我要大聲向所有的朋友[注意喔學生算朋友 , 老師算朋友 , 網友算朋友]
說 謝謝大家
祝大家都不必 牛轉前坤
因為大家本來就 是錢坤了 , 何須請牛轉乾坤
>即時新聞-熱門
2009年2月2日星期一
感謝網頁設計班的美女們
2009年2月1日星期日
來自一位美女的合作工作 - 文雅
Hello,可愛的妹咕和老師,師母
牛年行大運
老師, 目前有一個美編的工作機會, 是一個拍賣公司--東京娜娜
請老師幫忙告知有興趣的學員和同學們,
詳細資料如附件, 或上Yahoo拍賣
http://tw.user.bid.yahoo.com/tw/booth/o922119366
謝謝了
文雅
尋找合作 來自光頭妹/ 宜珊/ AMY 邀請大家~
各位親友~
我看完mail 之後，覺得很感動，
因為我才剛看完一本書，
書中作者給讀者一個作業--> 〔七天內完全不抱怨〕
我說出：想要家人做好個人清潔工作的形容話語，
結果家人感受到的卻是〔我在抱怨〕並熱心提醒我 〔在抱怨喔~〕，
我實行一天就發現，我根本就語言的表達力有問題!
心裡才在苦惱 要如何學習，才能停止抱怨行為，
就收到這封 mail，令我驚嘆不已，
心念力量真偉大，心裡想什麼、宇宙就給我什麼，
讓我不得不信!
所以~
我請求 願意和我一塊 力行這mail、這書的夥伴，
願意的親友，請回信告訴我，讓我們一塊加油~
讓我們互相提醒、互相加油~
光頭妹/ 宜珊/ AMY 邀請大家~
合約書的設計範本
網頁設計 - 合約書的內容設計範本 , 請大家參考
網站設計合約書
立合約書人ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ（以下簡稱甲方）與ˍˍˍˍˍˍˍˍˍˍˍ（以下簡稱乙方）
事由：甲方委託乙方設計製作ˍˍˍˍˍˍˍˍˍˍˍˍ網站﹝以下稱本案），雙方議定遵循之條款如後。
第一條： 服務內容與注意事項
本案需要適用於網際網路任何瀏覽器，或更新版本。
甲方需自行提供相關資料檔案與照片檔案，如無任何資料則雙方可視需求另立資料處理合約書，乙方須協助甲方彙整資料。
甲方需擬定網站主要項目、功能、用途，乙方應提供網站規劃、網站結構、設計時程、設計進度、設計所需成本相關資料供甲方參考。
乙方應製作「網站使用與維護手冊」，以利甲方後續維護工作。雙方可視需求另立網站維護合約。
第二條：設計進度
合約簽署日為民國 ˍˍˍ 年ˍˍˍ 月ˍˍˍ日。
合約簽署後一週內，雙方應議定「附件（一）時間表」，用以監督雙方作業進度。
乙方應依據設計時程與設計進度規定完成首頁與內容頁圖稿並送交甲方審核，乙方於此期間內應配合甲方意見為必要之修改。
乙方完成本案後應向甲方解說本案之操作與使用。
甲方每次審核圖稿時間，須自收到稿件時起一週內確定稿件內容；甲方審核稿件時間如逾三日，乙方下次交稿時間則依甲方所逾日數順延之。
雙方議定，乙方如未按第二條款項規定完成本案，則甲方有權，以一日扣除其網站設計經費百分之一為罰金，並累計直到交出作品為止 ，如乙方未能完成網站協議之項目，甲方可扣款設計經費百分之十為罰金。
第三條：委製費用（含稅6%）
雙方議定依據乙方提出的設計成本，本案設計經費總計
新臺幣ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ元整。
甲方須於簽約同時支付(30%)
新臺幣ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ元整之訂金，以即期支票或現金支付。
乙方完成本案後，甲方需支付(70%)
新臺幣ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ元之尾款，以票期一個月內之支票支付或現金支付。。
甲方若有延遲付款之情形，則每延一日需加付
新台幣ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ元為罰金，並累計直到付清款項為止。
訂金將視為本案設計經費之一部，亦即本案設計經費為訂金與委款之總和。
甲方違約時，訂金將視為違約金之一部，乙方違約時，應給付雙倍訂金於甲方。
無論甲方或乙方違約時，如有爭議請參考合約書第六條規範。
第四條：著作權
本案相關之著作為乙方所有，授權甲方於業務範圍內運用，且乙方不得將本案轉售或轉讓予第三者。甲方不可將其設計內容轉售，以保障乙方之著作權。
甲方應擔保依本約所提供之相關資料均無侵犯他人之著作權或其它權益之情事。
乙方不得將設計內容或類似本案著作，售於第三者以保障甲方權益。
乙方設計之著作成品如有侵犯他人著作權之問題，乙方須負一切法律責任；甲方明知或可得而知或發生侵害爭議之廣告內容係依甲方之指示完成設計者，不在此限，但甲方須負廣告權益之責任。本案非經乙方之修改衍生者，所有權屬於甲方。
第五條：如執行設計中途有大幅修正或追加設計時，交件時間得由雙方另行議訂，並另行追加設計費用。
第六條：雙方如有爭議，願請中華民國仲裁協會申請仲裁。
第七條：本合約書以中華民國為準據法，若因本合約書涉訟，甲乙雙方同意以台灣XX地方法院為第一審管轄法院。
第八條：本合約書正本壹式貳份，甲乙雙方各執存壹份為憑。
第九條：附件
設計時程與設計進度表 (乙方提供，甲方議定)
網站結構 (乙方提供，甲方議定)
網站使用與維護手冊(乙方提供，甲方議定)
立合約書人
甲方：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ（簽章）
統一編號：ˍˍˍˍˍˍˍˍˍˍˍˍ
負責人：ˍˍˍˍˍˍˍˍˍˍˍˍˍ
地址：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ
電話：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ
乙方：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ（簽章）
身份證字號：ˍˍˍˍˍˍˍˍˍˍˍ
地址：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ
電話：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ
中 華 民 國 XX年XX月XX日 擬定，並於合約簽署日生效之
标签： DREAMWEAVER
2009年1月31日星期六
來自一位美女的信 - 大家要注意
交通新罰本月20 日開始，很重要！ 有車沒車的人都要看本月 20 日開始
紅燈右轉$ 5 4 0 0 元
三 次馬上吊銷駕照 ...........
請看以下重罰項目
有 車 沒 車 的 人 都 要 看 本 月 2 0 日 開 始 ..... 再 提 醒 各 位 ! 注 意 ! !
殺 掉 這 封 信 你 將 會 後 悔 . ( 交通警察準備向全國違規人 . 徵收年終獎金 )
本月 2 0 日起，馬上開始 罰 ㄌ . . . 再次提醒各位注意 ! !
不管你是 騎機車 或者是 開汽車 的 ---請注意 !!
全國 ( Taiwan ) 將實施紅燈越線處罰條例 ， 凡是在 等待紅燈時
超出白? 漈! T止越線 者馬上處以 900 元的罰金。
還有紅燈右轉 --- $ 5 4 0 0 元
( 這是目前交通警察的重點工作之一 )
注 意 喔 ! ! !
本月 2 0 日起， 走路未靠右邊 ，馬上罰台幣 600 元。
沒有車的人，通知一下有車族吧！趕快通知你的親朋好友吧！
最好印一張，能 提醒自己。
1 . 闖紅燈 由 1 8 0 0 - 3 6 0 0 元， 調為 3 6 0 0 - 7 2 0 0 元 !!!!
2 . 超速 由 1 2 0 0 - 2 4 0 0 元，
調為 6 0 0 0 ! + 每超 速 1 公里加罰 1 0 0 元 ! !!!! !
若限速 6 0 ，你開 8 0 ，則需付 6 0 0 0 + ( 8 0 - 6 0 ) * 1 0 0 元。
3 . 駕駛一般道路， 未繫安全帶! ，調為 1 5 0 0 元。
4 6歲 以下兒童，單獨留在車內 ，由 0 調為 3 0 0 0 元 。
自求多福 ㄌ !!
非常重要！小心 0809 一分鐘費用高 2425 元！
最近興起了一種新的電話詐騙手法，要提醒各位觀眾特別注。如果你有收到
留言或電子郵件，要你回電話到區域號碼為 0809 的電話，
要提醒你可千萬不要回電，
如果一回電， 一分鐘馬上會被收取達 2425 元的電話費。
AT&T電話公司表示，
區域號碼是巴哈馬等英屬維京群島的付費電話 ，
由於0809電話不在政府管轄範圍內，
所以一打就會馬上收費，
不會先有警告。
另外，全美詐騙資訊中心也證實，
這項電話詐騙，
可在短時間奪走受害者數千甚至
數萬元之多，民眾要格外留心。
和 0800 的不同，要注意哦！
現在的免付費電話開頭是 0800 才對，
千萬不要以為前面有 080 請千萬注意：之前有人接到一通自稱是郵局的電話，說有掛號郵件被退！
寄件者為台北市社會局，內有現金支票！
需打 0809021091 轉分機 04 或 ! 05 由台北市社會局人員確認。
警察局已確認這是詐騙電話；高額電話費，目前市刑大已在追查。請務必幫忙轉寄。
0800 是免付費電話 0809是高額電話費號碼 080*電話要注意
2009年1月25日星期日
休假無處去 - vba2
以上是第二個檔案vba
Ｐｕｂｌｉｃ ｘ， ｙ， ｓｎａｍｅ， ｃｎａｍｅ
Ｓｕｂ 傳工作表（）
ｓｎａｍｅ ＝ ＂Ａ簽到表＂
ｃｎａｍｅ ＝ ＂Ａ聯絡狀況表＂
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 同一天（）
Ｉｆ Ｒａｎｇｅ（＂Ｊ８＂）．Ｖａｌｕｅ ＝ Ｔｒｕｅ Ｔｈｅｎ
Ｒａｎｇｅ（＂Ｊ６＂）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｊ４＂）．Ｖａｌｕｅ
Ｅｌｓｅ
Ｒａｎｇｅ（＂Ｊ６＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 選地區（）
Ｓｅｌｅｃｔ Ｃａｓｅ Ｒａｎｇｅ（＂Ｆ２＂）．Ｖａｌｕｅ
Ｃａｓｅ ＂三峽－插角國小＂， ＂臺北縣政府－資訊中心＂
Ｒａｎｇｅ（＂ｘ１＂）．Ｖａｌｕｅ ＝ ＂２０１＂
Ｒａｎｇｅ（＂ｘ２＂）．Ｖａｌｕｅ ＝ ＂２０２＂
Ｒａｎｇｅ（＂ｘ３＂）．Ｖａｌｕｅ ＝ ＂２０３＂
Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｃａｓｅ ＂板橋－巨匠中山＂
Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ ＝ ＂５０１＂
Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ ＝ ＂５０２＂
Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ ＝ ＂５０４＂
Ｒａｎｇｅ（＂ｘ４＂）．Ｆｏｒｍｕｌａ ＝ ＂５０５＂
Ｒａｎｇｅ（＂ｘ５：ｘ５０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｃａｓｅ ＂三重－巨匠＂
Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ ＝ ＂８０１＂
Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ ＝ ＂８０２＂
Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ ＝ ＂８０４＂
Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｃａｓｅ ＂永和－巨匠＂， ＂新莊－巨匠中正＂， ＂新店－巨匠＂
Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ ＝ ＂２０１＂
Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ ＝ ＂２０２＂
Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ ＝ ＂２０３＂
Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｃａｓｅ ＂淡水－巨匠＂， ＂樹林－巨匠＂， ＂蘆洲－巨匠＂， ＂板橋－巨匠文化＂
Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ ＝ ＂１０１＂
Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ ＝ ＂２０２＂
Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ ＝ ＂１０３＂
Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｃａｓｅ ＂中和－巨匠＂
Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ ＝ ＂３０１＂
Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ ＝ ＂４０２＂
Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ ＝ ＂３０３＂
Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｃａｓｅ ＂新莊－巨匠中港＂
Ｃａｓｅ ＂三芝－三芝國小＂
Ｃａｓｅ ＂八里－米倉國小＂
Ｃａｓｅ ＂土城－中正國中＂
Ｃａｓｅ ＂烏來－烏來國小＂
Ｃａｓｅ ＂坪林－坪林國小＂
Ｃａｓｅ ＂貢寮－福連國小＂
Ｃａｓｅ ＂雙溪－雙溪國小＂
Ｃａｓｅ ＂平溪－平溪國中＂
Ｃａｓｅ ＂瑞芳－瑞芳國小＂
Ｃａｓｅ ＂深沆－鄉立圖書館＂
Ｃａｓｅ ＂汐止－金龍國小＂
Ｃａｓｅ ＂金山－金美國小＂
Ｃａｓｅ ＂萬里－萬里國小＂
Ｃａｓｅ ＂石碇－鄉公所＂
Ｃａｓｅ ＂石門－石門國中＂
Ｃａｓｅ ＂五股－德音國小＂
Ｃａｓｅ ＂林口－南勢國小＂
Ｃａｓｅ ＂泰山－泰山國小＂
Ｃａｓｅ ＂鶯歌－二橋國小＂
Ｅｎｄ Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 新增一筆（）
Ｄｉｍ ｘ， ｙ， ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６， ｖ７
傳工作表
ｘ ＝ Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
Ｉｆ Ｉｎｔ（ｘ） ＜ ３２ Ｔｈｅｎ
ｙ ＝ ｘ ＋ ９
ｖ０ ＝ ＂ｂ＂ ＆ ｙ
ｖ０ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
Ｉｆ ｖ０ ＜＞ Ｅｍｐｔｙ Ｔｈｅｎ
ＭｓｇＢｏｘ ＂無法新增＂
Ｅｌｓｅ
ｖ０ ＝ ＂ｂ＂ ＆ ｙ
ｖ１ ＝ ＂ｆ＂ ＆ ｙ
ｖ２ ＝ ＂ｉ＂ ＆ ｙ
ｖ３ ＝ ＂ｌ＂ ＆ ｙ
ｖ４ ＝ ＂ｎ＂ ＆ ｙ
ｖ５ ＝ ＂ｑ＂ ＆ ｙ
ｖ６ ＝ ＂ｒ＂ ＆ ｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｇ１６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｇ１８＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｇ２０＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｋ１６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｋ１７＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｉ１６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｉ１８＂）．Ｖａｌｕｅ
Ｒａｎｇｅ（＂Ｅ１７＂）．Ｖａｌｕｅ ＝ ｘ ＋ １
Ｒａｎｇｅ（＂ｇ１６＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｇ１８＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｇ２０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｋ１６＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｋ１７＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｉ１６＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｉ１８＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｅｎｄ Ｉｆ
Ｅｌｓｅ
ＭｓｇＢｏｘ ＂無法新增＂
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 第一筆（）
ｙ ＝ １０
傳值
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 下一筆（）
ｘ ＝ Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
Ｓｅｌｅｃｔ Ｃａｓｅ Ｉｎｔ（ｘ）
Ｃａｓｅ １
ｙ ＝ １１
Ｃａｓｅ ３２
ｙ ＝ ４１
Ｃａｓｅ Ｅｌｓｅ
ｙ ＝ ｘ ＋ １０
Ｅｎｄ Ｓｅｌｅｃｔ
傳值
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 傳值（）
Ｄｉｍ ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６， ｖ７
傳工作表
ｖ０ ＝ ＂ｂ＂ ＆ ｙ
ｖ１ ＝ ＂ｆ＂ ＆ ｙ
ｖ２ ＝ ＂ｉ＂ ＆ ｙ
ｖ３ ＝ ＂ｌ＂ ＆ ｙ
ｖ４ ＝ ＂ｎ＂ ＆ ｙ
ｖ５ ＝ ＂ｑ＂ ＆ ｙ
ｖ６ ＝ ＂ｒ＂ ＆ ｙ
ｖ７ ＝ ＂ａ＂ ＆ ｙ
ｖ０ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
ｖ１ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ
ｖ２ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ
ｖ３ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ
ｖ４ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ
ｖ５ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ
ｖ６ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ
ｖ７ ＝ Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ７）．Ｖａｌｕｅ
Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ ＝ ｖ７
Ｒａｎｇｅ（＂ｇ１６＂）．Ｖａｌｕｅ ＝ ｖ０
Ｒａｎｇｅ（＂ｇ１８＂）．Ｖａｌｕｅ ＝ ｖ１
Ｒａｎｇｅ（＂ｇ２０＂）．Ｖａｌｕｅ ＝ ｖ２
Ｒａｎｇｅ（＂ｋ１６＂）．Ｖａｌｕｅ ＝ ｖ３
Ｒａｎｇｅ（＂ｋ１７＂）．Ｖａｌｕｅ ＝ ｖ４
Ｒａｎｇｅ（＂ｉ１６＂）．Ｖａｌｕｅ ＝ ｖ５
Ｒａｎｇｅ（＂ｉ１８＂）．Ｖａｌｕｅ ＝ ｖ６
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 資料（）
Ｄｉｍ ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６， ｖ７
傳工作表
ｖ０ ＝ ＂ｂ＂ ＆ ｙ
ｖ１ ＝ ＂ｆ＂ ＆ ｙ
ｖ２ ＝ ＂ｉ＂ ＆ ｙ
ｖ３ ＝ ＂ｌ＂ ＆ ｙ
ｖ４ ＝ ＂ｎ＂ ＆ ｙ
ｖ５ ＝ ＂ｑ＂ ＆ ｙ
ｖ６ ＝ ＂ｒ＂ ＆ ｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｇ１６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｇ１８＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｇ２０＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｋ１６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｋ１７＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｉ１６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｉ１８＂）．Ｖａｌｕｅ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 修改（）
ｘ ＝ Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
ｙ ＝ ｘ ＋ ９
資料
ＭｓｇＢｏｘ ＂修改成功＂
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 刪除（）
Ｄｉｍ ｙｅｓ， ｘ， ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６， ｖ７
傳工作表
ｙｅｓ ＝ ＭｓｇＢｏｘ（＂您確定要刪除這一筆＂， ｖｂＹｅｓＮｏ）
Ｉｆ ｙｅｓ ＝ ６ Ｔｈｅｎ
ｘ ＝ Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
ｙ ＝ ｘ ＋ ９
ｖ０ ＝ ＂ｂ＂ ＆ ｙ
ｖ１ ＝ ＂ｆ＂ ＆ ｙ
ｖ２ ＝ ＂ｉ＂ ＆ ｙ
ｖ３ ＝ ＂ｌ＂ ＆ ｙ
ｖ４ ＝ ＂ｎ＂ ＆ ｙ
ｖ５ ＝ ＂ｑ＂ ＆ ｙ
ｖ６ ＝ ＂ｒ＂ ＆ ｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
下一筆
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 上一筆（）
ｘ ＝ Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
Ｓｅｌｅｃｔ Ｃａｓｅ Ｉｎｔ（ｘ）
Ｃａｓｅ １
ｙ ＝ １０
Ｃａｓｅ ３２
ｙ ＝ ３２
Ｃａｓｅ Ｅｌｓｅ
ｙ ＝ ｘ ＋ ８
Ｅｎｄ Ｓｅｌｅｃｔ
傳值
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 連絡（）
傳工作表
ｘ ＝ Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
ｖ ＝ ＂Ｍ＂ ＆ ｘ ＋ ９
Ｉｆ Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ Ｔｈｅｎ
ｘ０ ＝ ＩｎｐｕｔＢｏｘ（＂尚未有資料 ， 請輸入連絡狀況＂）
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ ＝ ｘ０
Ｅｌｓｅ
ＭｓｇＢｏｘ ＂己有連絡 ，＂ ＆ Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 修改連絡（）
傳工作表
ｘ ＝ Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
ｖ ＝ ＂Ｍ＂ ＆ ｘ ＋ ９
ｘ０ ＝ ＩｎｐｕｔＢｏｘ（＂請輸入修正連絡內容＂， ＂巨匠電腦＂， Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ）
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ ＝ ｘ０
ＭｓｇＢｏｘ ＂修正成功＂
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 基本（）
Ｄｉｍ ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６， ｖ７， ｖ８， ｖ９， ｖ１０， ｖ１１
傳工作表
ｖ１ ＝ Ｒａｎｇｅ（＂ｆ２＂）．Ｖａｌｕｅ
ｖ２ ＝ Ｒａｎｇｅ（＂ｆ４＂）．Ｖａｌｕｅ
ｖ３ ＝ Ｒａｎｇｅ（＂ｆ６＂）．Ｖａｌｕｅ
ｖ４ ＝ Ｒａｎｇｅ（＂ｆ８＂）．Ｖａｌｕｅ
ｖ５ ＝ Ｒａｎｇｅ（＂ｆ１０＂）．Ｖａｌｕｅ
ｖ６ ＝ Ｒａｎｇｅ（＂ｆ１２＂）．Ｖａｌｕｅ
ｖ７ ＝ Ｒａｎｇｅ（＂ｊ４＂）．Ｖａｌｕｅ
ｖ８ ＝ Ｒａｎｇｅ（＂ｊ６＂）．Ｖａｌｕｅ
ｖ９ ＝ Ｒａｎｇｅ（＂ｊ１０＂）．Ｖａｌｕｅ
ｖ１０ ＝ Ｒａｎｇｅ（＂ｊ１２＂）．Ｖａｌｕｅ
ｖ１１ ＝ Ｒａｎｇｅ（＂ｆ１３＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ４＂）．Ｖａｌｕｅ ＝ ｖ１
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ５＂）．Ｖａｌｕｅ ＝ ｖ２
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ７＂）．Ｖａｌｕｅ ＝ ｖ３
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｍ７＂）．Ｖａｌｕｅ ＝ ｖ４
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｍ４＂）．Ｖａｌｕｅ ＝ ｖ５
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｍ５＂）．Ｖａｌｕｅ ＝ ｖ６
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ６＂）．Ｖａｌｕｅ ＝ ｖ７
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｉ６＂）．Ｖａｌｕｅ ＝ ｖ８
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｑ４＂）．Ｖａｌｕｅ ＝ ｖ９
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｍ６＂）．Ｖａｌｕｅ ＝ ｖ１０
Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ５５＂）．Ｖａｌｕｅ ＝ ｖ１１
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｅ４＂）．Ｖａｌｕｅ ＝ ｖ１
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｅ５＂）．Ｖａｌｕｅ ＝ ｖ２
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｅ７＂）．Ｖａｌｕｅ ＝ ｖ３
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｏ７＂）．Ｖａｌｕｅ ＝ ｖ４
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｏ４＂）．Ｖａｌｕｅ ＝ ｖ５
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｏ５＂）．Ｖａｌｕｅ ＝ ｖ６
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｅ６＂）．Ｖａｌｕｅ ＝ ｖ７
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｊ６＂）．Ｖａｌｕｅ ＝ ｖ８
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｔ４＂）．Ｖａｌｕｅ ＝ ｖ９
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｏ６＂）．Ｖａｌｕｅ ＝ ｖ１０
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 簽到（）
Ｓｈｅｅｔｓ（＂簽到畫面＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 啟用（）
Ｓｈｅｅｔｓ（＂啟用畫面＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 問卷調查（）
Ｓｈｅｅｔｓ（＂滿意度調查表＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 上課實況照片（）
Ｓｈｅｅｔｓ（＂Ｂ上課實況照片＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 結訓學員名冊（）
Ｓｈｅｅｔｓ（＂Ｂ結訓學員名冊＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 滿意度調查統計圖（）
Ｓｈｅｅｔｓ（＂滿意度調查統計圖＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 滿意度調查統計圖背景（）
Ｓｈｅｅｔｓ（＂滿意度調查統計圖（背景資料）＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
休假無處去 - 寫vba
以下是第一個檔案的vba
Ｐｕｂｌｉｃ ｔｎａｍｅ， ｔｙ
Ｓｕｂ 資料輸入（）
Ｓｈｅｅｔｓ（＂資料輸入＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師工作表（）
ｔｎａｍｅ ＝ ＂統計資料＂
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 檢查資料（）
Ｓｈｅｅｔｓ（＂統計資料＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 啟動畫面（）
Ｓｈｅｅｔｓ（＂啟動畫面＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師新增一筆（）
Ｄｉｍ ｘ， ｙ， ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６
講師工作表
ｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
ｖ０ ＝ ＂ａ＂ ＆ ｘ
ｖ０ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
Ｉｆ ｖ０ ＜＞ Ｅｍｐｔｙ Ｔｈｅｎ
ＭｓｇＢｏｘ ＂無法新增＂
Ｅｌｓｅ
ｖ０ ＝ ＂ａ＂ ＆ ｘ
ｖ１ ＝ ＂ｂ＂ ＆ ｘ
ｖ２ ＝ ＂ｃ＂ ＆ ｘ
ｖ３ ＝ ＂ｄ＂ ＆ ｘ
ｖ４ ＝ ＂ｅ＂ ＆ ｘ
ｖ５ ＝ ＂ｆ＂ ＆ ｘ
ｖ６ ＝ ＂ｇ＂ ＆ ｘ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ ＝ Ｍｏｎｔｈ（Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ）
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ ＝ ｘ ＋ １
Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師第一筆（）
ｔｙ ＝ ２
講師傳值
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ ＝ ｔｙ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師下一筆（）
ｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
ｖ０ ＝ ＂ａ＂ ＆ ｘ
Ｉｆ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＜＞ Ｅｍｐｔｙ Ｔｈｅｎ
ｔｙ ＝ ｘ ＋ １
講師傳值
Ｅｌｓｅ
ｔｙ ＝ ｘ
講師傳值
Ｅｎｄ Ｉｆ
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ ＝ ｔｙ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師上一筆（）
ｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
Ｉｆ ｘ ＝ ２ Ｔｈｅｎ
ｔｙ ＝ ２
講師傳值
Ｅｌｓｅ
ｔｙ ＝ ｘ － １
講師傳值
Ｅｎｄ Ｉｆ
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ ＝ ｔｙ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師傳值（）
Ｄｉｍ ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６， ｖ７
講師工作表
ｖ０ ＝ ＂ａ＂ ＆ ｔｙ
ｖ１ ＝ ＂ｂ＂ ＆ ｔｙ
ｖ２ ＝ ＂ｃ＂ ＆ ｔｙ
ｖ３ ＝ ＂ｄ＂ ＆ ｔｙ
ｖ４ ＝ ＂ｅ＂ ＆ ｔｙ
ｖ５ ＝ ＂ｆ＂ ＆ ｔｙ
ｖ０ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
ｖ１ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ
ｖ２ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ
ｖ３ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ
ｖ４ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ
ｖ５ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ
Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ ＝ ｖ０
Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ ＝ ｖ１
Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ ＝ ｖ２
Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ ＝ ｖ３
Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ ＝ ｖ４
Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ ＝ ｖ５
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師修改（）
Ｄｉｍ ｘ， ｙ， ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５
講師工作表
ｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
ｖ０ ＝ ＂ａ＂ ＆ ｘ
ｖ１ ＝ ＂ｂ＂ ＆ ｘ
ｖ２ ＝ ＂ｃ＂ ＆ ｘ
ｖ３ ＝ ＂ｄ＂ ＆ ｘ
ｖ４ ＝ ＂ｅ＂ ＆ ｘ
ｖ５ ＝ ＂ｆ＂ ＆ ｘ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ
ＭｓｇＢｏｘ ＂修改成功＂
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 刪除講師（）
Ｄｉｍ ｙｅｓ， ｔｘ， ｄｅｌｘ
ｙｅｓ ＝ ＭｓｇＢｏｘ（＂您確定要刪除這一筆＂， ｖｂＹｅｓＮｏ）
Ｉｆ ｙｅｓ ＝ ６ Ｔｈｅｎ
ｔｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
ｄｅｌｘ ＝ ＂ａ＂ ＆ ｔｘ ＆ ＂：＂ ＆ ＂ｆ＂ ＆ ｔｘ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（ｄｅｌｘ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｓｈｅｅｔｓ（＂資料輸入＂）．Ｓｅｌｅｃｔ
講師下一筆
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
2009年1月23日星期五
DREAMWEAVER的SPRY必文檔宣告
今天很高興班上學都來上課
但是設計SPRY時有些問題
經過比對找出原因 , SPRY必宣告
... DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
在HTML之前
忽略這個文案類型宣告
您可至
http://www.w3.org/TR/xhtml1/#dtds
了解一二
希望網頁班的同學加油喔 2/2要上課 順便要看到大家的半成品喔
标签： DREAMWEAVER
FLASH CS BT 語法
bt_1.addEventListener("click",url1);bt_1.addEventListener("mouseOver",bt1_over);bt_1.addEventListener("mouseOut",bt1_out);
function url1(me:MouseEvent){var req:URLRequest= new URLRequest();req.url="http://meigu920227.freehost10.com";navigateToURL(req,"_blank");}function bt1_over(me:MouseEvent){bt_2.alpha=0.5;bt_3.alpha=0.5;bt_4.alpha=0.5;bt_5.alpha=0.5;
}function bt1_out(me:MouseEvent){bt_2.alpha=1;bt_3.alpha=1;bt_4.alpha=1;bt_5.alpha=1;}
bt_2.addEventListener("click",url2);bt_2.addEventListener("mouseOver",bt2_over);bt_2.addEventListener("mouseOut",bt2_out);
function url2(me:MouseEvent){var req:URLRequest= new URLRequest();req.url="http://meigu920227.freehost10.com";navigateToURL(req,"_blank");}function bt2_over(me:MouseEvent){bt_1.alpha=0.5;bt_3.alpha=0.5;bt_4.alpha=0.5;bt_5.alpha=0.5;
}function bt2_out(me:MouseEvent){bt_1.alpha=1;bt_3.alpha=1;bt_4.alpha=1;bt_5.alpha=1;}
bt_3.addEventListener("click",url3);bt_3.addEventListener("mouseOver",bt3_over);bt_3.addEventListener("mouseOut",bt3_out);
function url3(me:MouseEvent){var req:URLRequest= new URLRequest();req.url="http://meigu920227.freehost10.com/a.php";navigateToURL(req,"_blank");}function bt3_over(me:MouseEvent){bt_2.alpha=0.5;bt_1.alpha=0.5;bt_4.alpha=0.5;bt_5.alpha=0.5;
}function bt3_out(me:MouseEvent){bt_2.alpha=1;bt_1.alpha=1;bt_4.alpha=1;bt_5.alpha=1;}
bt_4.addEventListener("click",url4);bt_4.addEventListener("mouseOver",bt4_over);bt_4.addEventListener("mouseOut",bt4_out);
function url4(me:MouseEvent){var req:URLRequest= new URLRequest();req.url="http://meigu920227.freehost10.com/a.php";navigateToURL(req,"_blank");}function bt4_over(me:MouseEvent){bt_2.alpha=0.5;bt_3.alpha=0.5;bt_1.alpha=0.5;bt_5.alpha=0.5;
}function bt4_out(me:MouseEvent){bt_2.alpha=1;bt_3.alpha=1;bt_1.alpha=1;bt_5.alpha=1;}
bt_5.addEventListener("click",url5);bt_5.addEventListener("mouseOver",bt5_over);bt_5.addEventListener("mouseOut",bt5_out);
function url5(me:MouseEvent){var req:URLRequest= new URLRequest();req.url="http://meigu920227.freehost10.com/a.php";navigateToURL(req,"_blank");}function bt5_over(me:MouseEvent){bt_2.alpha=0.5;bt_3.alpha=0.5;bt_4.alpha=0.5;bt_1.alpha=0.5;
}function bt5_out(me:MouseEvent){bt_2.alpha=1;bt_3.alpha=1;bt_4.alpha=1;bt_1.alpha=1;}
2009年1月22日星期四
XMind --最佳心智圖軟體
由一位可愛的Share 朋友提供
大家可以去下載喔
是一套 XMind --最佳心智圖軟體 http://ActsMind.com/blog 提供免費的開源版自由下載使用符合完整心智圖法的電腦應用操作中文介面支援、跨平台版本、內建上傳分享、功能強大．圖型漂亮．操作簡易可以匯轉使用FreeMind的檔案喔！有空去看看喔~~~ :)
2009年1月20日星期二
FREE MIND 心智圖 - 講義 HOT
FREE MIND 可以讓您上手學習任何東東
想想可以增加自己的功力喔
以下是文字講義
第一章 下載FREEMIND(心智圖)
第一節 下載
１、 下載點一
上網 / 輸入網址 : http://freemind.sourceforge.net/wiki/index.php/Download
２、 下載點二
上網 / 輸入網址 : http://sourceforge.net/projects/freemind
第二節 安裝
安裝前安裝前記得先安裝Java Runtime Environment，才能順利執行。
１、 安裝Java Runtime Environment
上網 / 輸入網址 : http://java.com/zh_TW/download/index.jsp
點選 免費 JAVA下載
點選 安裝
畫面會顯示正在安裝
建議使用 Pentium 166MHz 或更快的處理器，至少具備 64MB 的實體 RAM。最少還需要 98MB 的可用磁碟空間。
點選 接受
畫面會顯示安裝過程
點選 完成
２、 安裝 FREEMIND
點選 FreeMind-Windows-Installer-0_8_0-max 圖示二下
點選 NEXT
點選 I ACCEPT THE AGREEMENT / 點選 NEXT 鈕
點選 next 鈕
設定安裝路徑 / 點選 next 鈕
輸入名稱 / 點選 next 鈕
建立捷徑 / 點選 next 鈕
點選 install
畫面會快速執行安裝 / 點選 next 鈕
點選 finish 鈕
第三節 啟用
開始 / 所有程式 / freemind / freemind
第二章 認識FREEMIND
第一節 由來
心智圖由英國的托尼·布詹（Tony Buzan）於20世紀70年代提出的一種輔助思考工具。心智圖透過在平面上的一個主題點 , 向外發展畫出相關聯的對象圖，類似人的心臟與相連的血管圖，故稱為「心智圖」。心智圖對於思考、創意、文件規劃和記錄筆記相當好用。Mindjet公司的MindManager是專業的心智圖工具，微軟的Visio 2002及以上版本提供了畫心智圖的功能。
而FreeMind是一套非常容易上手的簡易繪圖軟體，由Java語言編寫並以一個高效率的樹狀圖軟體為出發點。這套軟體和商業軟體MindManager有著意曲同工之妙，但兩者的差別在於Mindjet所推出的MindManager是一款付費軟體，而FreeMind則是符合GPL的自由軟體，以及FreeMind比MindManage多了一些特色，如即時按鍵縮放資料夾和連結的跟進等。
屬於自由軟體發表於 GNU 通用公共許可證(GPL) 之下。 為跨Windows、Mac及Linux平台的軟體。 這個軟體是利用Java程式所寫成的。 它支援多國語言(含正體中文)。 可以輕鬆的繪製出心智程序圖。 可以在瀏覽器上呈現漂亮的效果。
第二節 學習心知圖的步驟
1由紙張中心點開始 , 寫下繪出您的想法(可用文字、圖型或符號), :沒有限制範圍
2 不要受週遭影响(議題、人物、物品、目標) , 把它們圍繞著中心做擺放或連結
3 可任意增加聯想的訊息 , 但要簡單的描述 , 不必立即決定存在與否
4可任意增加聯想的訊息，轉成文字、圖形或符號
5 於想法中找到有互相關連或連接(可用粗線或圖示表達)
第三節 由新增開始
點選 新增 鈕 [工具列]
第四節 切換freemind 模式
檔案模式(File) , 點選切換模式 / file ( alt 鍵 + 3)
瀏覽模式(Browse) 點選切換模式 / Browse [ Alt 鍵+2]
預設打開的是C:/Program Files/FreeMind/doc/freemind.mm
編輯模式(MainMap) 點選切換模式 / MainMap [Alt 鍵+1]
第五節 結束freemind
檔案 / 離開 (ctrl + q)
點選 是 [表示要儲存] , 否[ 表示不儲存 ] , 取消 [表示 不離開]
第三章 使用freemind
第一節 節點編輯
１、 新增「子」節點
選取節點 / 滑鼠右鍵 / 新增子節點 ( 按Insert 鍵 )
輸入節點內容
２、 編輯節點
選取節點 / 滑鼠右鍵 / 編輯節點 ( 按F2 鍵 )
輸入節點內容
３、 新增平行節點
選取子節點 / 滑鼠右鍵 / 新增一個平行節點(下方) ( 按 Enter 鍵 )
第二節 移動節點
選取子節點 / ( 按 ctrl 鍵 + 方向鍵 上或 下)
。
１、 刪除節點
選取子節點 ( 按 Del 鍵 )
第三節 修改節點
１、 節點背景色
點選 格式 / 節點背景 / 設定色彩 / 確定
２、 顯示方式
點選 格式 / 點選 節點外觀改成氣泡框
３、 改變節點位置
選取子節點 / 滑鼠至節點(前方 : O 符號)
進行拖曳
４、 增加節點圖示
選取節點 / 滑鼠至節點圖 按一下[如: 重要]
要刪除圖示，點選左上方的 按鈕即可
５、 改變節點文字
選取節點 / 滑鼠至節點圖
右鍵 / 格式 / 加大字型
第四節 節點連結
點選 二個節點
點選 新增 / 在指定的二個節點加上連結線(CTRL + L)
第四章 樣式
第一節 心智圖樣式
點選 格式 / 心智圖樣式 / 選取 您要的樣式 [ 如 : OK]
第二節 線樣式
點選 節 點 / 格式 / 連結線樣式 / 選取 直線
第三節 節點閃爍樣式
點選 節 點 / 格式 / 結點呈現閃爍狀況
第四節 雲狀設定
點選 節 點
點選 新增 / 雲狀
如果要取消雲狀，再做一次就可以了
第五節 註解設定
點選 節 點
點選 新增 / 註解 / 輸入註解內容
第五章 加入物件
第一節 加入圖片
點選 節 點
點選 新增 / 加入圖檔 / 選取圖片 / 開啟
註 : 圖片無法縮小
第二節 連結檔案
點選 節 點
點選 新增 / 加入連結檔案
第三節 連結網站
點選 節 點
點選 新增 / 加入連結文字(URL)
第六章 檔案管理
第一節 匯出
檔案 / 匯出 / 選取檔案格式
點選 匯出HTML
第二節 匯出圖形
三種基本圖形格式：SVG , PNG , JPG
檔案 / 匯出 / 選取檔案格式
點選 PNG / 給名稱 / 儲存
第三節 匯入檔案
１、 檔案結構
檔案 / 匯入 / 選取 匯入檔案結構
選取檔案資料夾 / 確定
２、 匯入我的最愛
檔案 / 匯入 / 選取 匯入我的最愛
選取 C:\Documents and Settings\
結果如下
３、 匯入其他FREEMIND
檔案 / 匯入 / 選取 匯入特分叉點
選取FREEMIND 檔案 / 開啟
結果如下
订阅：
博文 (Atom)
博文
13130