來自一位美女的信 - 大家要注意

交通新罰本月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*電話要注意

休假無處去 - vba2

以上是第二個檔案vba
Ｐｕｂｌｉｃ　ｘ，　ｙ，　ｓｎａｍｅ，　ｃｎａｍｅ
Ｓｕｂ　傳工作表（）
ｓｎａｍｅ　＝　＂Ａ簽到表＂
ｃｎａｍｅ　＝　＂Ａ聯絡狀況表＂
Ｅｎｄ　Ｓｕｂ



Ｓｕｂ　同一天（）
Ｉｆ　Ｒａｎｇｅ（＂Ｊ８＂）．Ｖａｌｕｅ　＝　Ｔｒｕｅ　Ｔｈｅｎ
　　　　Ｒａｎｇｅ（＂Ｊ６＂）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂Ｊ４＂）．Ｖａｌｕｅ
Ｅｌｓｅ
Ｒａｎｇｅ（＂Ｊ６＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
Ｅｎｄ　Ｉｆ
Ｅｎｄ　Ｓｕｂ

　　　
Ｓｕｂ　選地區（）

　Ｓｅｌｅｃｔ　Ｃａｓｅ　Ｒａｎｇｅ（＂Ｆ２＂）．Ｖａｌｕｅ
　　Ｃａｓｅ　＂三峽－插角國小＂，　＂臺北縣政府－資訊中心＂
　　　　　　　Ｒａｎｇｅ（＂ｘ１＂）．Ｖａｌｕｅ　＝　＂２０１＂
　　　　　　　Ｒａｎｇｅ（＂ｘ２＂）．Ｖａｌｕｅ　＝　＂２０２＂
　　　　　　　Ｒａｎｇｅ（＂ｘ３＂）．Ｖａｌｕｅ　＝　＂２０３＂
　　　　　　　Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　
　　Ｃａｓｅ　＂板橋－巨匠中山＂
　　　　　　　Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ　＝　＂５０１＂
　　　　　　　Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ　＝　＂５０２＂
　　　　　　　Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ　＝　＂５０４＂
　　　　　　　Ｒａｎｇｅ（＂ｘ４＂）．Ｆｏｒｍｕｌａ　＝　＂５０５＂
　　　　　　　Ｒａｎｇｅ（＂ｘ５：ｘ５０＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　
　　Ｃａｓｅ　＂三重－巨匠＂
　　　　　　　Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ　＝　＂８０１＂
　　　　　　　Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ　＝　＂８０２＂
　　　　　　　Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ　＝　＂８０４＂
　　　　　　　Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　
　　Ｃａｓｅ　＂永和－巨匠＂，　＂新莊－巨匠中正＂，　＂新店－巨匠＂
　　　　　　　Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ　＝　＂２０１＂
　　　　　　　Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ　＝　＂２０２＂
　　　　　　　Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ　＝　＂２０３＂
　　　　　　　Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　
　　Ｃａｓｅ　＂淡水－巨匠＂，　＂樹林－巨匠＂，　＂蘆洲－巨匠＂，　＂板橋－巨匠文化＂
　　　　　　　Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ　＝　＂１０１＂
　　　　　　　Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ　＝　＂２０２＂
　　　　　　　Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ　＝　＂１０３＂
　　　　　　　Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　
　　Ｃａｓｅ　＂中和－巨匠＂
　　　　　　　Ｒａｎｇｅ（＂ｘ１＂）．Ｆｏｒｍｕｌａ　＝　＂３０１＂
　　　　　　　Ｒａｎｇｅ（＂ｘ２＂）．Ｆｏｒｍｕｌａ　＝　＂４０２＂
　　　　　　　Ｒａｎｇｅ（＂ｘ３＂）．Ｆｏｒｍｕｌａ　＝　＂３０３＂
　　　　　　　Ｒａｎｇｅ（＂ｘ４：ｘ５０＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　Ｃａｓｅ　＂新莊－巨匠中港＂
　　Ｃａｓｅ　＂三芝－三芝國小＂
　　Ｃａｓｅ　＂八里－米倉國小＂
　　Ｃａｓｅ　＂土城－中正國中＂
　　Ｃａｓｅ　＂烏來－烏來國小＂
　　Ｃａｓｅ　＂坪林－坪林國小＂
　　Ｃａｓｅ　＂貢寮－福連國小＂
　　Ｃａｓｅ　＂雙溪－雙溪國小＂
　　Ｃａｓｅ　＂平溪－平溪國中＂
　　Ｃａｓｅ　＂瑞芳－瑞芳國小＂
　　Ｃａｓｅ　＂深沆－鄉立圖書館＂
　　Ｃａｓｅ　＂汐止－金龍國小＂
　　Ｃａｓｅ　＂金山－金美國小＂
　　Ｃａｓｅ　＂萬里－萬里國小＂
　　Ｃａｓｅ　＂石碇－鄉公所＂
　　Ｃａｓｅ　＂石門－石門國中＂
　　Ｃａｓｅ　＂五股－德音國小＂
　　Ｃａｓｅ　＂林口－南勢國小＂
　　Ｃａｓｅ　＂泰山－泰山國小＂
　　Ｃａｓｅ　＂鶯歌－二橋國小＂
　Ｅｎｄ　Ｓｅｌｅｃｔ
　　　
　　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　新增一筆（）
Ｄｉｍ　ｘ，　ｙ，　ｖ０，　ｖ１，　ｖ２，　ｖ３，　ｖ４，　ｖ５，　ｖ６，　ｖ７
傳工作表
ｘ　＝　Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
Ｉｆ　Ｉｎｔ（ｘ）　＜　３２　Ｔｈｅｎ

　　　　ｙ　＝　ｘ　＋　９
　　　　ｖ０　＝　＂ｂ＂　＆　ｙ
　　　　ｖ０　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
　　　Ｉｆ　ｖ０　＜＞　Ｅｍｐｔｙ　Ｔｈｅｎ
　　　　　　ＭｓｇＢｏｘ　＂無法新增＂
　　　Ｅｌｓｅ
　　　　　　　ｖ０　＝　＂ｂ＂　＆　ｙ
　　　　　　ｖ１　＝　＂ｆ＂　＆　ｙ
　　　　　　ｖ２　＝　＂ｉ＂　＆　ｙ
　　　　　　ｖ３　＝　＂ｌ＂　＆　ｙ
　　　　　　ｖ４　＝　＂ｎ＂　＆　ｙ
　　　　　　ｖ５　＝　＂ｑ＂　＆　ｙ
　　　　　　ｖ６　＝　＂ｒ＂　＆　ｙ

　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｇ１６＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｇ１８＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｇ２０＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｋ１６＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｋ１７＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｉ１６＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｉ１８＂）．Ｖａｌｕｅ


　　　　　　　　Ｒａｎｇｅ（＂Ｅ１７＂）．Ｖａｌｕｅ　＝　ｘ　＋　１
　　　　　　　　Ｒａｎｇｅ（＂ｇ１６＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｇ１８＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｇ２０＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｋ１６＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｋ１７＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｉ１６＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｉ１８＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　Ｅｎｄ　Ｉｆ
　Ｅｌｓｅ
　　　　　ＭｓｇＢｏｘ　＂無法新增＂
　Ｅｎｄ　Ｉｆ
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　第一筆（）

　　　　ｙ　＝　１０

　　　傳值
　　　　
　　　　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　下一筆（）

ｘ　＝　Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
Ｓｅｌｅｃｔ　Ｃａｓｅ　Ｉｎｔ（ｘ）
Ｃａｓｅ　１
　　　　　ｙ　＝　１１
Ｃａｓｅ　３２
　　　　　ｙ　＝　４１
Ｃａｓｅ　Ｅｌｓｅ
　　　　ｙ　＝　ｘ　＋　１０
　　　　　
Ｅｎｄ　Ｓｅｌｅｃｔ
傳值
　　　　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　傳值（）
Ｄｉｍ　ｖ０，　ｖ１，　ｖ２，　ｖ３，　ｖ４，　ｖ５，　ｖ６，　ｖ７
傳工作表

ｖ０　＝　＂ｂ＂　＆　ｙ
ｖ１　＝　＂ｆ＂　＆　ｙ
ｖ２　＝　＂ｉ＂　＆　ｙ
ｖ３　＝　＂ｌ＂　＆　ｙ
ｖ４　＝　＂ｎ＂　＆　ｙ
ｖ５　＝　＂ｑ＂　＆　ｙ
ｖ６　＝　＂ｒ＂　＆　ｙ
ｖ７　＝　＂ａ＂　＆　ｙ




ｖ０　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
ｖ１　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ
ｖ２　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ
ｖ３　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ
ｖ４　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ
ｖ５　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ
ｖ６　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ
ｖ７　＝　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ７）．Ｖａｌｕｅ

Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ　＝　ｖ７
Ｒａｎｇｅ（＂ｇ１６＂）．Ｖａｌｕｅ　＝　ｖ０
Ｒａｎｇｅ（＂ｇ１８＂）．Ｖａｌｕｅ　＝　ｖ１
Ｒａｎｇｅ（＂ｇ２０＂）．Ｖａｌｕｅ　＝　ｖ２
Ｒａｎｇｅ（＂ｋ１６＂）．Ｖａｌｕｅ　＝　ｖ３
Ｒａｎｇｅ（＂ｋ１７＂）．Ｖａｌｕｅ　＝　ｖ４
Ｒａｎｇｅ（＂ｉ１６＂）．Ｖａｌｕｅ　＝　ｖ５
Ｒａｎｇｅ（＂ｉ１８＂）．Ｖａｌｕｅ　＝　ｖ６
　　　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　資料（）
Ｄｉｍ　ｖ０，　ｖ１，　ｖ２，　ｖ３，　ｖ４，　ｖ５，　ｖ６，　ｖ７

傳工作表
　　　　　　ｖ０　＝　＂ｂ＂　＆　ｙ
　　　　　　ｖ１　＝　＂ｆ＂　＆　ｙ
　　　　　　ｖ２　＝　＂ｉ＂　＆　ｙ
　　　　　　ｖ３　＝　＂ｌ＂　＆　ｙ
　　　　　　ｖ４　＝　＂ｎ＂　＆　ｙ
　　　　　　ｖ５　＝　＂ｑ＂　＆　ｙ
　　　　　　ｖ６　＝　＂ｒ＂　＆　ｙ

　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｇ１６＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｇ１８＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｇ２０＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｋ１６＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｋ１７＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｉ１６＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｉ１８＂）．Ｖａｌｕｅ

Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　修改（）
　　　ｘ　＝　Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
　　　ｙ　＝　ｘ　＋　９
　　　資料
　　　ＭｓｇＢｏｘ　＂修改成功＂
　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　刪除（）
Ｄｉｍ　ｙｅｓ，　ｘ，　ｖ０，　ｖ１，　ｖ２，　ｖ３，　ｖ４，　ｖ５，　ｖ６，　ｖ７

　　　
傳工作表
　　　ｙｅｓ　＝　ＭｓｇＢｏｘ（＂您確定要刪除這一筆＂，　ｖｂＹｅｓＮｏ）
　　　Ｉｆ　ｙｅｓ　＝　６　Ｔｈｅｎ
　　　　　ｘ　＝　Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
　　　　　ｙ　＝　ｘ　＋　９
　　　　　　ｖ０　＝　＂ｂ＂　＆　ｙ
　　　　　　ｖ１　＝　＂ｆ＂　＆　ｙ
　　　　　　ｖ２　＝　＂ｉ＂　＆　ｙ
　　　　　　ｖ３　＝　＂ｌ＂　＆　ｙ
　　　　　　ｖ４　＝　＂ｎ＂　＆　ｙ
　　　　　　ｖ５　＝　＂ｑ＂　＆　ｙ
　　　　　　ｖ６　＝　＂ｒ＂　＆　ｙ

　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　
　　　　　　
　　　　　　　下一筆
　　　Ｅｎｄ　Ｉｆ
　　
　　　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　上一筆（）
ｘ　＝　Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
Ｓｅｌｅｃｔ　Ｃａｓｅ　Ｉｎｔ（ｘ）
Ｃａｓｅ　１
　　　　　ｙ　＝　１０
Ｃａｓｅ　３２
　　　　　ｙ　＝　３２
Ｃａｓｅ　Ｅｌｓｅ
　　　　ｙ　＝　ｘ　＋　８
　　　　　
Ｅｎｄ　Ｓｅｌｅｃｔ
傳值
　　　　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　連絡（）
傳工作表
ｘ　＝　Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
ｖ　＝　＂Ｍ＂　＆　ｘ　＋　９
Ｉｆ　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ　Ｔｈｅｎ
ｘ０　＝　ＩｎｐｕｔＢｏｘ（＂尚未有資料　，　請輸入連絡狀況＂）
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ　＝　ｘ０
Ｅｌｓｅ
ＭｓｇＢｏｘ　＂己有連絡　，＂　＆　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ

Ｅｎｄ　Ｉｆ

　　　　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　修改連絡（）
傳工作表
ｘ　＝　Ｒａｎｇｅ（＂ｅ１７＂）．Ｖａｌｕｅ
ｖ　＝　＂Ｍ＂　＆　ｘ　＋　９
ｘ０　＝　ＩｎｐｕｔＢｏｘ（＂請輸入修正連絡內容＂，　＂巨匠電腦＂，　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ）
Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（ｖ）．Ｖａｌｕｅ　＝　ｘ０
ＭｓｇＢｏｘ　＂修正成功＂

Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　基本（）
Ｄｉｍ　ｖ１，　ｖ２，　ｖ３，　ｖ４，　ｖ５，　ｖ６，　ｖ７，　ｖ８，　ｖ９，　ｖ１０，　ｖ１１
傳工作表
ｖ１　＝　Ｒａｎｇｅ（＂ｆ２＂）．Ｖａｌｕｅ
ｖ２　＝　Ｒａｎｇｅ（＂ｆ４＂）．Ｖａｌｕｅ
ｖ３　＝　Ｒａｎｇｅ（＂ｆ６＂）．Ｖａｌｕｅ
ｖ４　＝　Ｒａｎｇｅ（＂ｆ８＂）．Ｖａｌｕｅ
ｖ５　＝　Ｒａｎｇｅ（＂ｆ１０＂）．Ｖａｌｕｅ
ｖ６　＝　Ｒａｎｇｅ（＂ｆ１２＂）．Ｖａｌｕｅ
ｖ７　＝　Ｒａｎｇｅ（＂ｊ４＂）．Ｖａｌｕｅ
ｖ８　＝　Ｒａｎｇｅ（＂ｊ６＂）．Ｖａｌｕｅ
ｖ９　＝　Ｒａｎｇｅ（＂ｊ１０＂）．Ｖａｌｕｅ
ｖ１０　＝　Ｒａｎｇｅ（＂ｊ１２＂）．Ｖａｌｕｅ
ｖ１１　＝　Ｒａｎｇｅ（＂ｆ１３＂）．Ｖａｌｕｅ



　　　　
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ４＂）．Ｖａｌｕｅ　＝　ｖ１
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ５＂）．Ｖａｌｕｅ　＝　ｖ２
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ７＂）．Ｖａｌｕｅ　＝　ｖ３
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｍ７＂）．Ｖａｌｕｅ　＝　ｖ４
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｍ４＂）．Ｖａｌｕｅ　＝　ｖ５
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｍ５＂）．Ｖａｌｕｅ　＝　ｖ６
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ６＂）．Ｖａｌｕｅ　＝　ｖ７
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｉ６＂）．Ｖａｌｕｅ　＝　ｖ８
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｑ４＂）．Ｖａｌｕｅ　＝　ｖ９
　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｍ６＂）．Ｖａｌｕｅ　＝　ｖ１０
　　　Ｓｈｅｅｔｓ（ｓｎａｍｅ）．Ｒａｎｇｅ（＂ｅ５５＂）．Ｖａｌｕｅ　＝　ｖ１１
　　
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｅ４＂）．Ｖａｌｕｅ　＝　ｖ１
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｅ５＂）．Ｖａｌｕｅ　＝　ｖ２
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｅ７＂）．Ｖａｌｕｅ　＝　ｖ３
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｏ７＂）．Ｖａｌｕｅ　＝　ｖ４
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｏ４＂）．Ｖａｌｕｅ　＝　ｖ５
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｏ５＂）．Ｖａｌｕｅ　＝　ｖ６
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｅ６＂）．Ｖａｌｕｅ　＝　ｖ７
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｊ６＂）．Ｖａｌｕｅ　＝　ｖ８
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｔ４＂）．Ｖａｌｕｅ　＝　ｖ９
　　Ｓｈｅｅｔｓ（ｃｎａｍｅ）．Ｒａｎｇｅ（＂ｏ６＂）．Ｖａｌｕｅ　＝　ｖ１０
　　
Ｅｎｄ　Ｓｕｂ

Ｓｕｂ　簽到（）

　　　　Ｓｈｅｅｔｓ（＂簽到畫面＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　啟用（）
　Ｓｈｅｅｔｓ（＂啟用畫面＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
　　　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　問卷調查（）

　　　　Ｓｈｅｅｔｓ（＂滿意度調查表＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　上課實況照片（）

　　　　Ｓｈｅｅｔｓ（＂Ｂ上課實況照片＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ

Ｓｕｂ　結訓學員名冊（）

　　　　Ｓｈｅｅｔｓ（＂Ｂ結訓學員名冊＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　滿意度調查統計圖（）

　　　　Ｓｈｅｅｔｓ（＂滿意度調查統計圖＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　滿意度調查統計圖背景（）

　　　　Ｓｈｅｅｔｓ（＂滿意度調查統計圖（背景資料）＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ

休假無處去 - 寫vba

以下是第一個檔案的vba
Ｐｕｂｌｉｃ　ｔｎａｍｅ，　ｔｙ

Ｓｕｂ　資料輸入（）

　　　　Ｓｈｅｅｔｓ（＂資料輸入＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ

Ｓｕｂ　講師工作表（）

　　　ｔｎａｍｅ　＝　＂統計資料＂
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　檢查資料（）

　　　　Ｓｈｅｅｔｓ（＂統計資料＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ

Ｓｕｂ　啟動畫面（）

　　　　Ｓｈｅｅｔｓ（＂啟動畫面＂）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ　Ｓｕｂ

Ｓｕｂ　講師新增一筆（）
Ｄｉｍ　ｘ，　ｙ，　ｖ０，　ｖ１，　ｖ２，　ｖ３，　ｖ４，　ｖ５，　ｖ６
講師工作表
ｘ　＝　Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ

　　　　ｖ０　＝　＂ａ＂　＆　ｘ
　　　　ｖ０　＝　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
　　　Ｉｆ　ｖ０　＜＞　Ｅｍｐｔｙ　Ｔｈｅｎ
　　　　　　ＭｓｇＢｏｘ　＂無法新增＂
　　　Ｅｌｓｅ
　　　　　　ｖ０　＝　＂ａ＂　＆　ｘ
　　　　　　ｖ１　＝　＂ｂ＂　＆　ｘ
　　　　　　ｖ２　＝　＂ｃ＂　＆　ｘ
　　　　　　ｖ３　＝　＂ｄ＂　＆　ｘ
　　　　　　ｖ４　＝　＂ｅ＂　＆　ｘ
　　　　　　ｖ５　＝　＂ｆ＂　＆　ｘ
　　　　　　ｖ６　＝　＂ｇ＂　＆　ｘ
　　　　　　

　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ
　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ　＝　Ｍｏｎｔｈ（Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ）
　　　　　　　　Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ　＝　ｘ　＋　１
　　　　　　　　Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　　　Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ　＝　Ｅｍｐｔｙ
　　　　　　
　　　　　Ｅｎｄ　Ｉｆ

Ｅｎｄ　Ｓｕｂ


Ｓｕｂ　講師第一筆（）

　　　　ｔｙ　＝　２

　　　講師傳值
　　　　
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ　＝　ｔｙ
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　講師下一筆（）

ｘ　＝　Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ

　ｖ０　＝　＂ａ＂　＆　ｘ
Ｉｆ　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ　＜＞　Ｅｍｐｔｙ　Ｔｈｅｎ
　ｔｙ　＝　ｘ　＋　１
講師傳值


Ｅｌｓｅ
ｔｙ　＝　ｘ
講師傳值


Ｅｎｄ　Ｉｆ
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ　＝　ｔｙ

Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　講師上一筆（）

ｘ　＝　Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ

　
Ｉｆ　ｘ　＝　２　Ｔｈｅｎ
　ｔｙ　＝　２
講師傳值
　　

Ｅｌｓｅ
ｔｙ　＝　ｘ　－　１
講師傳值


Ｅｎｄ　Ｉｆ
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ　＝　ｔｙ

Ｅｎｄ　Ｓｕｂ

Ｓｕｂ　講師傳值（）
Ｄｉｍ　ｖ０，　ｖ１，　ｖ２，　ｖ３，　ｖ４，　ｖ５，　ｖ６，　ｖ７

講師工作表

　　　　　　ｖ０　＝　＂ａ＂　＆　ｔｙ
　　　　　　ｖ１　＝　＂ｂ＂　＆　ｔｙ
　　　　　　ｖ２　＝　＂ｃ＂　＆　ｔｙ
　　　　　　ｖ３　＝　＂ｄ＂　＆　ｔｙ
　　　　　　ｖ４　＝　＂ｅ＂　＆　ｔｙ
　　　　　　ｖ５　＝　＂ｆ＂　＆　ｔｙ




ｖ０　＝　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
ｖ１　＝　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ
ｖ２　＝　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ
ｖ３　＝　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ
ｖ４　＝　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ
ｖ５　＝　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ

Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ　＝　ｖ０
Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ　＝　ｖ１
Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ　＝　ｖ２
Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ　＝　ｖ３
Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ　＝　ｖ４
Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ　＝　ｖ５
　　　
Ｅｎｄ　Ｓｕｂ

Ｓｕｂ　講師修改（）
　　Ｄｉｍ　ｘ，　ｙ，　ｖ０，　ｖ１，　ｖ２，　ｖ３，　ｖ４，　ｖ５
講師工作表
ｘ　＝　Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ

　　　　　　ｖ０　＝　＂ａ＂　＆　ｘ
　　　　　　ｖ１　＝　＂ｂ＂　＆　ｘ
　　　　　　ｖ２　＝　＂ｃ＂　＆　ｘ
　　　　　　ｖ３　＝　＂ｄ＂　＆　ｘ
　　　　　　ｖ４　＝　＂ｅ＂　＆　ｘ
　　　　　　ｖ５　＝　＂ｆ＂　＆　ｘ
　　　　　　

　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ
　　　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ　＝　Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ
　　　ＭｓｇＢｏｘ　＂修改成功＂
　
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　刪除講師（）
Ｄｉｍ　ｙｅｓ，　ｔｘ，　ｄｅｌｘ
　ｙｅｓ　＝　ＭｓｇＢｏｘ（＂您確定要刪除這一筆＂，　ｖｂＹｅｓＮｏ）
　　　Ｉｆ　ｙｅｓ　＝　６　Ｔｈｅｎ
　　　　　ｔｘ　＝　Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
　　　　　ｄｅｌｘ　＝　＂ａ＂　＆　ｔｘ　＆　＂：＂　＆　＂ｆ＂　＆　ｔｘ
　　　　　Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｓｅｌｅｃｔ
　　　　Ｒａｎｇｅ（ｄｅｌｘ）．Ｓｅｌｅｃｔ
　　　　Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ　Ｓｈｉｆｔ：＝ｘｌＵｐ
　　　　Ｓｈｅｅｔｓ（＂資料輸入＂）．Ｓｅｌｅｃｔ
　　　　　講師下一筆

　　Ｅｎｄ　Ｉｆ
　　　
Ｅｎｄ　Ｓｕｂ

新年到 - 祝大家新年快

今天大年初一
祝大新年快樂