以下是第一個檔案的vba
Ｐｕｂｌｉｃ ｔｎａｍｅ， ｔｙ
Ｓｕｂ 資料輸入（）
Ｓｈｅｅｔｓ（＂資料輸入＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師工作表（）
ｔｎａｍｅ ＝ ＂統計資料＂
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 檢查資料（）
Ｓｈｅｅｔｓ（＂統計資料＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 啟動畫面（）
Ｓｈｅｅｔｓ（＂啟動畫面＂）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（＂ａ１＂）．Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師新增一筆（）
Ｄｉｍ ｘ， ｙ， ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６
講師工作表
ｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
ｖ０ ＝ ＂ａ＂ ＆ ｘ
ｖ０ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
Ｉｆ ｖ０ ＜＞ Ｅｍｐｔｙ Ｔｈｅｎ
ＭｓｇＢｏｘ ＂無法新增＂
Ｅｌｓｅ
ｖ０ ＝ ＂ａ＂ ＆ ｘ
ｖ１ ＝ ＂ｂ＂ ＆ ｘ
ｖ２ ＝ ＂ｃ＂ ＆ ｘ
ｖ３ ＝ ＂ｄ＂ ＆ ｘ
ｖ４ ＝ ＂ｅ＂ ＆ ｘ
ｖ５ ＝ ＂ｆ＂ ＆ ｘ
ｖ６ ＝ ＂ｇ＂ ＆ ｘ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ６）．Ｖａｌｕｅ ＝ Ｍｏｎｔｈ（Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ）
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ ＝ ｘ ＋ １
Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ ＝ Ｅｍｐｔｙ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師第一筆（）
ｔｙ ＝ ２
講師傳值
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ ＝ ｔｙ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師下一筆（）
ｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
ｖ０ ＝ ＂ａ＂ ＆ ｘ
Ｉｆ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＜＞ Ｅｍｐｔｙ Ｔｈｅｎ
ｔｙ ＝ ｘ ＋ １
講師傳值
Ｅｌｓｅ
ｔｙ ＝ ｘ
講師傳值
Ｅｎｄ Ｉｆ
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ ＝ ｔｙ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師上一筆（）
ｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
Ｉｆ ｘ ＝ ２ Ｔｈｅｎ
ｔｙ ＝ ２
講師傳值
Ｅｌｓｅ
ｔｙ ＝ ｘ － １
講師傳值
Ｅｎｄ Ｉｆ
Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ ＝ ｔｙ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師傳值（）
Ｄｉｍ ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５， ｖ６， ｖ７
講師工作表
ｖ０ ＝ ＂ａ＂ ＆ ｔｙ
ｖ１ ＝ ＂ｂ＂ ＆ ｔｙ
ｖ２ ＝ ＂ｃ＂ ＆ ｔｙ
ｖ３ ＝ ＂ｄ＂ ＆ ｔｙ
ｖ４ ＝ ＂ｅ＂ ＆ ｔｙ
ｖ５ ＝ ＂ｆ＂ ＆ ｔｙ
ｖ０ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ
ｖ１ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ
ｖ２ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ
ｖ３ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ
ｖ４ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ
ｖ５ ＝ Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ
Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ ＝ ｖ０
Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ ＝ ｖ１
Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ ＝ ｖ２
Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ ＝ ｖ３
Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ ＝ ｖ４
Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ ＝ ｖ５
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 講師修改（）
Ｄｉｍ ｘ， ｙ， ｖ０， ｖ１， ｖ２， ｖ３， ｖ４， ｖ５
講師工作表
ｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
ｖ０ ＝ ＂ａ＂ ＆ ｘ
ｖ１ ＝ ＂ｂ＂ ＆ ｘ
ｖ２ ＝ ＂ｃ＂ ＆ ｘ
ｖ３ ＝ ＂ｄ＂ ＆ ｘ
ｖ４ ＝ ＂ｅ＂ ＆ ｘ
ｖ５ ＝ ＂ｆ＂ ＆ ｘ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ０）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ６＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ１）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ７＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ２）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ８＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ３）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ９＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ４）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ１０＂）．Ｖａｌｕｅ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｒａｎｇｅ（ｖ５）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂ｃ１１＂）．Ｖａｌｕｅ
ＭｓｇＢｏｘ ＂修改成功＂
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 刪除講師（）
Ｄｉｍ ｙｅｓ， ｔｘ， ｄｅｌｘ
ｙｅｓ ＝ ＭｓｇＢｏｘ（＂您確定要刪除這一筆＂， ｖｂＹｅｓＮｏ）
Ｉｆ ｙｅｓ ＝ ６ Ｔｈｅｎ
ｔｘ ＝ Ｒａｎｇｅ（＂ｃ５＂）．Ｖａｌｕｅ
ｄｅｌｘ ＝ ＂ａ＂ ＆ ｔｘ ＆ ＂：＂ ＆ ＂ｆ＂ ＆ ｔｘ
Ｓｈｅｅｔｓ（ｔｎａｍｅ）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（ｄｅｌｘ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｓｈｅｅｔｓ（＂資料輸入＂）．Ｓｅｌｅｃｔ
講師下一筆
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
>即時新聞-熱門
2009年1月25日星期日
休假無處去 - 寫vba
发帖者 ALEX 时间： 23:02
订阅：
博文评论 (Atom)
博文
13130
1 评论:
熊貓情色,美女遊戲區,成人dvd,qq聊天室,aaa片免費看,手槍美女賞圖,家庭教師影片,洪爺情色,麗的色情遊戲,爽翻天成人情趣,qq聊天室,影音日誌,情色典獄長,520聊天室,080 中部人聊天室,成人文章,a片短片,成人貼圖區,免費av,杜蕾斯免費a片,柔情聊天網,豆豆聊天室,性感影片,台灣kiss情色,台灣自拍,都都成人站,小魔女自拍天堂,
aaaa片,男男貼圖區,交友私樂園,麗的線上小遊戲,卡通a片,免費情色小說,性感影片,情色聊天室,成人貼圖區,免費av,xxx383美女寫真,正妹強力版,無碼女優,女同聊天室,性愛聊天室,飯島愛,美眉,臺灣情色網,100one百萬成人貼電影,正妹強力牆,bobo寫真女郎影片,av女優,383成人,情人視訊,
3d美女圖,小莉影音像館,情色武俠小說,色美眉部落格,台灣無限貼圖區,完美女人影音網,辣美眉173show影片,自拍a片,kiss情色,熊貓貼圖區列表,自拍貼圖,s383情色大網咖,85cc免費影城,a片圖片,寫真女郎攝影網,豆豆聊天,嘟嘟貼圖,美女自拍,自拍a片,hcg 貼圖區,卡通成人網,聊天室avooo,自拍偷拍,情色文學小說,
情色交友,ut男同志聊天室,成人電影,正妹星球,無碼光碟,做愛自拍,爽翻天成人用品,歐美模特兒寫真,999成人性站,免費遊戲,成人動畫,aaaaa片俱樂部,免費線上成人影片,丁字褲美女寫真,老婆自拍,漂亮寶貝,聊天室,情色小遊戲,080 中部人聊天室,裸體寫真,線上看a片,18禁地少女遊戲,後宮情色網,日本女優,月宮貼圖區,
发表评论