休假無處去 - vba2

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



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

　　　
Ｓｕｂ　選地區（）

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

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

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


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

　　　　ｙ　＝　１０

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

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

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




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

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

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

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

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

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

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

Ｅｎｄ　Ｉｆ

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

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



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

Ｓｕｂ　簽到（）

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

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

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

Ｓｕｂ　結訓學員名冊（）

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

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

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