PHOTOSHOP CS3 - 文字光暈設計

1.檔案 / 開新檔案 / 自行設定[RGB] / 確定
2.編輯 / 填滿 / 顏色 / 黑色 / 確定[或者置入圖片]
3.選取文字工具 / 輸入文字 [文字要大一點 : 200]
4.選取[功能表] / 載入選取範圍 / 選取[功能表] / 儲存選取範圍 / 給名稱[自訂1] / 確定
5.選取[功能表] / 修改 / 縮減 5像素 / 選取[功能表] / 儲存選取範圍 / 給名稱[自訂2] / 確定
6.選取[功能表] / 載入選取範圍 / [自訂1] / 確定
7.選取[功能表] / 載入選取範圍 / [自訂2] / 選取相減 / 確定
8.選取[功能表] / 儲存選取範圍 / 給名稱[自訂3] / 確定
9.刪除文字圖層 / 按Delete [填入背景色 : 白色]
10.按CTRL + D [取消選取]
11.濾鏡 / 模糊 / 高斯模糊 / 強度 : 5 像素
12.選取[功能表] / 載入選取範圍 / 自訂 3 / 濾鏡 / 模糊 / 高斯模糊 / 強度 : 7 像素
13.影像 / 調整 / 亮度對比 [值自行定義 , 對比高 ]
14.按CTRL + D [取消選取]
15.影像 /調整 / 色相飽合度 [值自行定義 , 勾選上色 ]
16.選取[功能表] / 載入選取範圍 / 自訂 3 [可做可不做 : 有無邊框效果]
17.選取[功能表] / 修改 / 縮減 2像素
18.選取[功能表] / 修改 / 羽化 2像素
19.影像 / 調整 / 曲線 / 自行調整顏色 [CTRL + M]
20 檔案 / 儲存檔案 / 給名稱 / 確定

INDESIGN -參考線

建立一組間距平均的頁面參考線

1. 選取 版面 / 建立參考線。

2. 在「數量」中，輸入數值來指定想建立的列或欄數。
3. 在「欄間距」中，輸入數值來指定列或欄間的距離。
使用「建立參考線」指令所建立的欄，與使用「版面 > 邊界和欄」指令所建立的不相同。 例如，使用「建立參考線」所建立的欄無法在文字檔案置入時控制文字部分。 使用「邊界和欄」指令來建立適用於自動排文文字的主要欄區域，使用「建立參考線」指令來建立欄格點與其他版面輔助。
4. 在「參考線符合」中，按一下「邊界」，在頁面邊界內建立參考線，或是按一下「頁面」，在頁面邊緣內建立參考線。

INDESIGN -插入頁碼 與主版

插入頁碼

頁面放大縮小快速鍵：Ctrl+鍵盤上的加號(放大)
Ctrl+鍵盤上的減號 (縮小)

選取文字工具 / 於頁碼位置拖曳
選取 文字 功能表 / 插入特殊字元 / 標記 / 目前頁碼

建立主版
1. 選取 視窗 / 頁面 / 滑鼠右鍵 / 新增主版。

2. 指定下列選項 / 確定
 在「字首」中，最多可輸入 4 個字元辨識「頁面」主版的字首。
 在「名稱」中，輸入主版跨頁的名稱。
 在「根據主版」中，選擇現有的主版跨頁做為根據，或是選擇「無」。
 在「頁數」中，輸入主版跨頁中想要頁數的數值 (最多為 10)。

INDESIGN - 不錯用簡單講義

新增文件
1. 選擇「檔案 > 新增 > 文件」。


2. 設定邊界和欄 / 確定


以「版面格點」做為排版編排基礎的工作流程，只適用於亞洲語言。當選取「版面格點」時，文件中會顯示格點網格。您可以在頁面大小設定中，設定個別格點的數目 (列或字元的數目)。頁面邊界也可以由此決定。使用版面格點，可以讓您在使用格點儲存格單位的頁面上，準確地放置物件。
「邊界和欄」工作流程選項與「西式」工作流程相同。西式工作流程從「邊界和欄」中設定，在頁面上排列物件時並不使用版面格點。您可以使用「邊界和欄」或「版面格點」工作流程，將書寫方向設定為水平或垂直。

變更復原文件的位置
1. 選取 編輯 / 偏好設定 / 檔案處理 。
2. 在「文件拯救資料」下，按一下「選擇」。

3. 指定復原文件的新位置，按一下「確定」，然後再按一次「確定」。

置入文件
1. 選取 檔案 / 置入 / 設定 取代選取項目 / 選取 顯示讀入選項

2. 選取 讀入的檔案 / 開啟。
3. 設定讀入選項，然後按一下「確定」。

設定文件啟始位置


按一下滑鼠左鍵 ,配合 SHIFT 鍵 , 自動逐頁匯入
按一下滑鼠左鍵 ,配合ALT 鍵 , 半自動逐頁匯入 (CTRL + SHIFT + P 新增頁面 )
按一下滑鼠左鍵 , 手動逐頁匯入 (CTRL + SHIFT + P 新增頁面 )

另類心智軟體 - 給網頁設計的同學們

XMind–免費心智圖軟體，可以插入附件，軟體介面很直覺化 一樣要安裝Java Runtime Environment
(JRE)
下載位置
http://www.xmind.net/downloads/

感謝網頁設計班的美女們

永和分校的美女們謝謝大家
除了是課堂上能夠賞心以外
個個更是秀外慧中
大年初八上課 , 花蓮美女帶好東東分班上同學們
當然老師我也有一份 , 是送給妹咕的
結果妹咕居然說
阿爸是哪個阿姨給我的 , 可不可以換消費卷 (喔 , 我要昏了)
妹咕太奸炸了
不過在此BLOG我要大聲向所有的朋友[注意喔學生算朋友 , 老師算朋友 , 網友算朋友]
說 謝謝大家
祝大家都不必 牛轉前坤
因為大家本來就 是錢坤了 , 何須請牛轉乾坤

來自一位美女的合作工作 - 文雅

Hello,可愛的妹咕和老師,師母
牛年行大運
老師, 目前有一個美編的工作機會, 是一個拍賣公司--東京娜娜
請老師幫忙告知有興趣的學員和同學們,
詳細資料如附件, 或上Yahoo拍賣
http://tw.user.bid.yahoo.com/tw/booth/o922119366

謝謝了
文雅

尋找合作 來自光頭妹/ 宜珊/ AMY 邀請大家~

各位親友~

我看完mail 之後，覺得很感動，

因為我才剛看完一本書，
書中作者給讀者一個作業--> 〔七天內完全不抱怨〕


我說出：想要家人做好個人清潔工作的形容話語，
結果家人感受到的卻是〔我在抱怨〕並熱心提醒我 〔在抱怨喔~〕，
我實行一天就發現，我根本就語言的表達力有問題!

心裡才在苦惱 要如何學習，才能停止抱怨行為，
就收到這封 mail，令我驚嘆不已，
心念力量真偉大，心裡想什麼、宇宙就給我什麼，
讓我不得不信!

所以~
我請求 願意和我一塊 力行這mail、這書的夥伴，
願意的親友，請回信告訴我，讓我們一塊加油~
讓我們互相提醒、互相加油~


光頭妹/ 宜珊/ AMY 邀請大家~

合約書的設計範本

網頁設計 - 合約書的內容設計範本 , 請大家參考
網站設計合約書

立合約書人ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ（以下簡稱甲方）與ˍˍˍˍˍˍˍˍˍˍˍ（以下簡稱乙方）
事由：甲方委託乙方設計製作ˍˍˍˍˍˍˍˍˍˍˍˍ網站﹝以下稱本案），雙方議定遵循之條款如後。
第一條： 服務內容與注意事項
本案需要適用於網際網路任何瀏覽器，或更新版本。
甲方需自行提供相關資料檔案與照片檔案，如無任何資料則雙方可視需求另立資料處理合約書，乙方須協助甲方彙整資料。
甲方需擬定網站主要項目、功能、用途，乙方應提供網站規劃、網站結構、設計時程、設計進度、設計所需成本相關資料供甲方參考。
乙方應製作「網站使用與維護手冊」，以利甲方後續維護工作。雙方可視需求另立網站維護合約。

第二條：設計進度
合約簽署日為民國 ˍˍˍ 年ˍˍˍ 月ˍˍˍ日。
合約簽署後一週內，雙方應議定「附件（一）時間表」，用以監督雙方作業進度。
乙方應依據設計時程與設計進度規定完成首頁與內容頁圖稿並送交甲方審核，乙方於此期間內應配合甲方意見為必要之修改。
乙方完成本案後應向甲方解說本案之操作與使用。
甲方每次審核圖稿時間，須自收到稿件時起一週內確定稿件內容；甲方審核稿件時間如逾三日，乙方下次交稿時間則依甲方所逾日數順延之。
雙方議定，乙方如未按第二條款項規定完成本案，則甲方有權，以一日扣除其網站設計經費百分之一為罰金，並累計直到交出作品為止 ，如乙方未能完成網站協議之項目，甲方可扣款設計經費百分之十為罰金。

第三條：委製費用（含稅6%）
雙方議定依據乙方提出的設計成本，本案設計經費總計
新臺幣ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ元整。
甲方須於簽約同時支付(30%)
新臺幣ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ元整之訂金，以即期支票或現金支付。
乙方完成本案後，甲方需支付(70%)
新臺幣ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ元之尾款，以票期一個月內之支票支付或現金支付。。
甲方若有延遲付款之情形，則每延一日需加付
新台幣ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ元為罰金，並累計直到付清款項為止。
訂金將視為本案設計經費之一部，亦即本案設計經費為訂金與委款之總和。
甲方違約時，訂金將視為違約金之一部，乙方違約時，應給付雙倍訂金於甲方。
無論甲方或乙方違約時，如有爭議請參考合約書第六條規範。
第四條：著作權
本案相關之著作為乙方所有，授權甲方於業務範圍內運用，且乙方不得將本案轉售或轉讓予第三者。甲方不可將其設計內容轉售，以保障乙方之著作權。
甲方應擔保依本約所提供之相關資料均無侵犯他人之著作權或其它權益之情事。
乙方不得將設計內容或類似本案著作，售於第三者以保障甲方權益。
乙方設計之著作成品如有侵犯他人著作權之問題，乙方須負一切法律責任；甲方明知或可得而知或發生侵害爭議之廣告內容係依甲方之指示完成設計者，不在此限，但甲方須負廣告權益之責任。本案非經乙方之修改衍生者，所有權屬於甲方。

第五條：如執行設計中途有大幅修正或追加設計時，交件時間得由雙方另行議訂，並另行追加設計費用。
第六條：雙方如有爭議，願請中華民國仲裁協會申請仲裁。
第七條：本合約書以中華民國為準據法，若因本合約書涉訟，甲乙雙方同意以台灣XX地方法院為第一審管轄法院。

第八條：本合約書正本壹式貳份，甲乙雙方各執存壹份為憑。

第九條：附件
設計時程與設計進度表 (乙方提供，甲方議定)
網站結構 (乙方提供，甲方議定)

網站使用與維護手冊(乙方提供，甲方議定)

立合約書人
甲方：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ（簽章）
統一編號：ˍˍˍˍˍˍˍˍˍˍˍˍ
負責人：ˍˍˍˍˍˍˍˍˍˍˍˍˍ
地址：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ
電話：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ

乙方：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ（簽章）
身份證字號：ˍˍˍˍˍˍˍˍˍˍˍ
地址：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ
電話：ˍˍˍˍˍˍˍˍˍˍˍˍˍˍ


中　華　民　國　　XX年XX月XX日　　擬定，並於合約簽署日生效之

微軟活動 - 快參加

網址如下
http://www.microsoft.com/taiwan/newsletter/promo/

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

交通新罰本月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
Ｐｕｂｌｉｃ　ｔｎａｍｅ，　ｔｙ

Ｓｕｂ　資料輸入（）

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

Ｓｕｂ　講師工作表（）

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

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

Ｓｕｂ　啟動畫面（）

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

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

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

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

Ｅｎｄ　Ｓｕｂ


Ｓｕｂ　講師第一筆（）

　　　　ｔｙ　＝　２

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

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

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


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


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

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

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

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

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


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

Ｅｎｄ　Ｓｕｂ

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

講師工作表

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




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

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

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

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

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

　　Ｅｎｄ　Ｉｆ
　　　
Ｅｎｄ　Ｓｕｂ

新年到 - 祝大家新年快

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

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要上課 順便要看到大家的半成品喔