威廉博客

給各位的信

2010-06-17T14:13:00.003+08:00

大家好哦 ~ 嗯 .......好像很多話要說 , 但總覺得有點 ..... 嗯 ..... 應該說是 ..... 不好意思吧 .....好吧 , 要認真點 .首先 , 多謝各位對我的不離不棄 , 但是 , 由於最近在工作上 , 金錢上等等的一大堆問題已經煩得要死 , 所以最近都沒空來寫寫新文章 , 跟大家討論一下問題 , 實在是不好意思 .然後 , 是那個圖片經常看不到的問題吧 , 嗯 .... 我都有發現這個問題 , 原本的想法是 , 把所有的文章重新在貼一次 , 博客的設計改一下 , 圖片也不會再放在 SHARE A PIC 那邊了 , 確實是 LOAD 得很慢 ..... 有時候更會打不開呢 .....嗯 ..... 請各位相信我 , 我一定會再貼新文章 , 一定會解決圖片問題的 , 等我的問題處理好 , 我就會再回來了 , 要等我哦 ~Best Regards, William

威廉先生奇遇記重生版第九話之狗狗乖 ~ 請勿嚇我 ~ 恤衫西褲加波鞋 ? 叔叔請問你搞乜 ?

2009-07-30T00:04:00.004+08:00

||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||||　　　　威廉先生奇遇記重生版第九話之　　　｡　　∧＿∧　　　　|| ||　　　　狗狗乖 ~ 請勿嚇我 ~　　　　　　　　＼（´･ω・`）　　　||　||　　　　　恤衫西褲加波鞋 ?　叔叔請問你搞乜 ?　　⊂　⊂　）~　　|| ||＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿|￣威廉先生。￣|＿|| 　　　　　　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣嗯 , 今次事件係發生o係我跑步O既時候 .........跑步經驗 : 講真 , 真係冇 , 到今日為止先認真跑得果兩次 , 仲要行多過跑 .... 運動經驗 : 籃球 , 羽毛球 , 間唔中游水==============================上星期五 24 JUL 2009 , 人生第一次認真咁跑 ,

问题响应 – 久别重逢篇~

2009-07-22T01:43:00.000+08:00

呵呵呵呵 ~ 大家好哦 ~ 我想大家都没有忘记我吧 XD ( 希望如此好了 ~ XD )最近工作太忙了, 都完全没时间打理博客 ~ 稍后又要进修 , 嗯 … 还有一段忙碌日子等着我呢~ 真要命~ 好吧~ 今天难得有点时间, 就一次过帮大家解决一下疑难 , 大不了我晚点睡好了~ 哈~ ( 说得多伟大~ 哈哈~ )=====================================首先是网友 BENTON 的问题 ~问题是 … 其实我不太懂你意思~ 哈~不过, 如果按照我的理解, 你是想利用 VBA 来进行数据分类吧~ 如果单是这样的话 , 多条件的选择方法和使用方法之前有教过了, 所以要麻烦你找一找啰~ 不过按照惯例 , 不给一点提示好像不是我的作风吧~ 哈哈~ 好~ 就给你一些提示吧 , 如果我们要利用 VBA 的程序代码来叫计算机帮我们选择数据 , 我们用的程序代码是 IF ~

問題回應 – 久別重逢篇~

2009-07-22T01:39:00.001+08:00

呵呵呵呵 ~ 大家好哦 ~ 我想大家都沒有忘記我吧 XD ( 希望如此好了 ~ XD )最近工作太忙了, 都完全沒時間打理博客 ~ 稍後又要進修 , 嗯 … 還有一段忙碌日子等著我呢~ 真要命~ 好吧~ 今天難得有點時間, 就一次過幫大家解決一下疑難 , 大不了我晚點睡好了~ 哈~ ( 說得多偉大~ 哈哈~ )=====================================首先是網友 BENTON 的問題 ~問題是 … 其實我不太懂你意思~ 哈~不過, 如果按照我的理解, 你是想利用 VBA 來進行資料分類吧~ 如果單是這樣的話 , 多條件的選擇方法和使用方法之前有教過了, 所以要麻煩你找一找囉~ 不過按照慣例 , 不給一點提示好像不是我的作風吧~ 哈哈~ 好~ 就給你一些提示吧 , 如果我們要利用 VBA 的程式碼來叫電腦幫我們選擇資料 , 我們用的程式碼是 IF ~

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何利用变量选择储存格

2009-06-03T02:54:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.你懂得怎样使用变量吧 ~ ( 如果你还未懂的话 , 请看看我的教学文章吧 , 有说明过的 ~ 嗯 … 好像在某一编里面吧 … 忘了 ~ 哈哈 ~ )变量的用途有多广泛 , 相信不用我说你都应该知道了 ~ 既然它的用途这么广泛 , 那为什么不用来控制想要选择的储存格呢 ? 看一下程序代码 :==================TempVar = 10Worksheets("Sheet2").Range("A" & TempVar).Select==================你可以看到的是 , 我先设定了 TempVar 这个变量的值是 10 ,

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何利用變量選擇儲存格

2009-06-03T02:42:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.你懂得怎樣使用變量吧 ~ ( 如果你還未懂的話 , 請看看我的教學文章吧 , 有說明過的 ~ 嗯 … 好像在某一編裡面吧 … 忘了 ~ 哈哈 ~ )變量的用途有多廣泛 , 相信不用我說你都應該知道了 ~ 既然它的用途這麼廣泛 , 那為什麼不用來控制想要選擇的儲存格呢 ? 看一下程式碼 :==================TempVar = 10Worksheets("Sheet2").Range("A" & TempVar).Select==================你可以看到的是 , 我先設定了 TempVar 這個變量的值是 10 ,

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何删除储存格 / 行 / 列

2009-06-02T00:54:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.又是先看程序代码时间 ~ ================== Rows("1:1").Select Selection.Delete Shift:=xlUp Columns("A:A").Select Selection.Delete Shift:=xlToLeft==================这是删除行或列的方法 , 很简单 , 只是跟增加的差一点点 , 不过 , 如果你用的是增加 , 那么程序代码就会是 XL DOWN 而不是 XL UP , 是 XL TO RIGHT 而不是 XL TO LEFT========

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何刪除儲存格 / 行 / 列

2009-06-02T00:53:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.又是先看程式碼時間 ~ ================== Rows("1:1").Select Selection.Delete Shift:=xlUp Columns("A:A").Select Selection.Delete Shift:=xlToLeft==================這是刪除行或列的方法 , 很簡單 , 只是跟增加的差一點點 , 不過 , 如果你用的是增加 , 那麼程式碼就會是 XL DOWN 而不是 XL UP , 是 XL TO RIGHT 而不是 XL TO LEFT==========

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何打印文件

2009-06-01T01:03:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.如果你有跟着我贴出的教学文章来做 , 那这个东西你就一定懂了 ~ 不过为了方便我 … … 骗显示量 ~ 哈哈 ~ 那就没办法都要再贴一次了 ~ 哈哈 ~ ==================Worksheets("Sheet1").SelectWorksheets("Sheet1").PrintOut , copies:=1==================就这个 ~ 嗯 ~ PrintOut 是给计算机的打印指令 , 而后面的 copies:=1 就是打印的份数 , 这里的是 1 次 , 当然 , 你可以改成你需要的次数的 ~ OK ~哗 ~~~

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何打印文件

2009-06-01T01:01:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.如果你有跟著我貼出的教學文章來做 , 那這個東西你就一定懂了 ~ 不過為了方便我 … … 騙顯示量 ~ 哈哈 ~ 那就沒辦法都要再貼一次了 ~ 哈哈 ~ ==================Worksheets("Sheet1").SelectWorksheets("Sheet1").PrintOut , copies:=1==================就這個 ~ 嗯 ~ PrintOut 是給電腦的打印指令 , 而後面的 copies:=1 就是列印的份數 , 這裡的是 1 次 , 當然 , 你可以改成你需要的次數的 ~ OK ~嘩 ~~~

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何设定储存格的对齐方式

2009-05-15T01:51:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.要说明储存格的对齐方式的话 … 嗯 … 的确很烦 … 烦得要死 ~ 先看一下下面的程序代码 ~================== Range("A1").Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何設定儲存格的對齊方式

2009-05-15T01:35:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.要說明儲存格的對齊方式的話 … 嗯 … 的確很煩 … 煩得要死 ~ 先看一下下面的程式碼 ~================== Range("A1").Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何保护工作簿或页面与解除保护

2009-05-14T01:36:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.嗯 … 保护的英文是什么 ? 你知道吗 ?嗯 … 这个问题太简单了吧 ~ 哈哈 ~ 不可能不知道了 ~ 就是 Protect嘛 ~ 那么 , 不保护又是什么呢 ?嗯 … 不保护好像有点不够贴切 , 那么 … 解除保护的英文会是什么呢 ? 很简单嘛 ~ 简单得很 , 就是前面加上 UN 的 PROTECT , UnProtect 了. 这个说明了什么 ? 这就说明了 … … 嘿嘿嘿 … … 嘿嘿嘿 … 我懂英文 ~ 哈哈哈哈 ~好了 ~ 回到问题上吧 ~ 正如刚才所说 , 保护和解除保护是 Protect 和 UnProtect , 在 VBA

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何保護工作簿或頁面與解除保護

2009-05-14T01:35:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.嗯 … 保護的英文是什麼 ? 你知道嗎 ?嗯 … 這個問題太簡單了吧 ~ 哈哈 ~ 不可能不知道了 ~ 就是 Protect嘛 ~ 那麼 , 不保護又是什麼呢 ?嗯 … 不保護好像有點不夠貼切 , 那麼 … 解除保護的英文會是什麼呢 ? 很簡單嘛 ~ 簡單得很 , 就是前面加上 UN 的 PROTECT , UnProtect 了. 這個說明了什麼 ? 這就說明了 … … 嘿嘿嘿 … … 嘿嘿嘿 … 我懂英文 ~ 哈哈哈哈 ~好了 ~ 回到問題上吧 ~ 正如剛才所說 , 保護和解除保護是 Protect 和 UnProtect , 在 VBA

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何插入储存格 / 行 / 列

2009-05-13T01:34:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.什么都不说 ~ 直接看程序代码 ~ ================== Rows("A1").Select Selection.Insert Shift:=xlToRight Rows("A1").Select Selection.Insert Shift:=xlDown==================搞定 ~ 什么 !? 还不懂 ? 怎么会啦 ~ 很简单的嘛 ~ 一个是储存格右移 , 另外一个是储存格下移 ~ 行了 ~ 呵呵呵呵 ~ ================== Rows("1:1").Select

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何插入儲存格 / 行 / 列

2009-05-13T01:32:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.什麼都不說 ~ 直接看程式碼 ~ ================== Rows("A1").Select Selection.Insert Shift:=xlToRight Rows("A1").Select Selection.Insert Shift:=xlDown==================搞定 ~ 什麼 !? 還不懂 ? 怎麼會啦 ~ 很簡單的嘛 ~ 一個是儲存格右移 , 另外一個是儲存格下移 ~ 行了 ~ 呵呵呵呵 ~ ================== Rows("1:1").Select

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何进行数据排序

2009-05-12T01:35:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.数据排序嘛 ~ 你不可能没试过吧 ~ 那么要你用 Excel VBA 来进行数据排序又可以吗 ?当然啰 ~ 怎么会不行呢 ?================== Range("B2:B8").Select Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何進行資料排序

2009-05-12T01:34:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.資料排序嘛 ~ 你不可能沒試過吧 ~ 那麼要你用 Excel VBA 來進行資料排序又可以嗎 ?當然囉 ~ 怎麼會不行呢 ?================== Range("B2:B8").Select Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何做新建的档案 , 按照自动流水号存盘

2009-05-11T01:40:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.先告诉我 ~ 另存新档的英文是什么 ~ 什么 ? 不知道 ? 没可能吧 ~ 忘了 ? 别骗我好不好 … 好吧 ~ 我输了 ~ 我来告诉你好了 ~ 就是 SAVE AS ~ 想起来了吧 ~程序代码跟新增档案的差不多 , 程序代码就这个 :==================ActiveWorkbook.SaveAs Filename:="c:\abc"==================看到了吗 ? 又是 SAVE AS ~ 没分别的 ~ 呵呵呵呵 ~ 后面的 FILE NAME 部份是指定了档案保存的位置和文件名称 , 这就是利用 Excel

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何做新建的檔案 , 按照自動流水號存檔

2009-05-11T01:37:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.先告訴我 ~ 另存新檔的英文是什麼 ~ 什麼 ? 不知道 ? 沒可能吧 ~ 忘了 ? 別騙我好不好 … 好吧 ~ 我輸了 ~ 我來告訴你好了 ~ 就是 SAVE AS ~ 想起來了吧 ~程式碼跟新增檔案的差不多 , 程式碼就這個 :==================ActiveWorkbook.SaveAs Filename:="c:\abc"==================看到了嗎 ? 又是 SAVE AS ~ 沒分別的 ~ 呵呵呵呵 ~ 後面的 FILE NAME 部份是指定了檔案保存的位置和檔案名稱 , 這就是利用 Excel VBA

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何变更页面名称的颜色标记

2009-05-08T01:35:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.如果你习惯用不同的颜色来作为不同页面的标记 , 你可能已经觉得 , 每次用人手自己更改颜色实在是一件麻烦事 , 当然 , 我也是一样 , 最怕麻烦 ~ 哈哈 ~ 既然 VBA 的功能可以做得那么广泛 , 那改变面页标签颜色这件事又会有什么难度 ~==================Worksheets("SHEET1").Tab.ColorIndex = 10Worksheets("SHEET1").Tab.ColorIndex = xlColorIndexNone==================第一句最尾的数字是代表什么颜色嘛 ~

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何變更頁面名稱的顏色標記

2009-05-08T01:33:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.如果你習慣用不同的顏色來作為不同頁面的標記 , 你可能已經覺得 , 每次用人手自己更改顏色實在是一件麻煩事 , 當然 , 我也是一樣 , 最怕麻煩 ~ 哈哈 ~ 既然 VBA 的功能可以做得那麼廣泛 , 那改變面頁標籤顏色這件事又會有什麼難度 ~==================Worksheets("SHEET1").Tab.ColorIndex = 10Worksheets("SHEET1").Tab.ColorIndex = xlColorIndexNone==================第一句最尾的數字是代表什麼顏色嘛 ~

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何插入图片

2009-05-07T01:43:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.这个技术并不常用 , 嗯 … 对我来说是肯定的 ~ 因为根本就没需要把图片放到报表内 , 我的报表有数据和图表就可以了 ~ 不过嘛 ~ 又是那句话 , 骗一个页面显示量也不为过吧 ~ 哈哈 ~ ================== ActiveSheet.Pictures.Insert( _ "C:\Documents and Settings\Admin\My Documents\My Pictures\abc.jpg").Select==================这就可以了 ~ 不用我再解释了吧 ~ 哈哈 ~嗯 … …

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何插入圖片

2009-05-07T01:42:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.這個技術並不常用 , 嗯 … 對我來說是肯定的 ~ 因為根本就沒需要把圖片放到報表內 , 我的報表有數據和圖表就可以了 ~ 不過嘛 ~ 又是那句話 , 騙一個頁面顯示量也不為過吧 ~ 哈哈 ~ ================== ActiveSheet.Pictures.Insert( _ "C:\Documents and Settings\Admin\My Documents\My Pictures\abc.jpg").Select==================這就可以了 ~ 不用我再解釋了吧 ~ 哈哈 ~嗯 … …

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何自动调整行高列宽

2009-05-06T01:41:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.这个嘛 ~ 好像没什么值得特别注意的 , 就两句简单的程序代码就搞定了 ~ ================== Columns("A:A").EntireColumn.AutoFit Rows("1:1").EntireRow.AutoFit==================嗯 … 完了 ~ 哈哈 ~ 对呀 ~ 没骗你呀 ~ 就是这么简单了 ~ 只要留意一下程序代码分别是 COLUMN 和 ROW 的分别 , 然后就是加多一个 AUTO FIT 进去 ~ 这就搞定了 ~ 哈哈 ~

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何自動調整行高列寬

2009-05-06T01:39:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.這個嘛 ~ 好像沒什麼值得特別注意的 , 就兩句簡單的程式碼就搞定了 ~ ================== Columns("A:A").EntireColumn.AutoFit Rows("1:1").EntireRow.AutoFit==================嗯 … 完了 ~ 哈哈 ~ 對呀 ~ 沒騙你呀 ~ 就是這麼簡單了 ~ 只要留意一下程式碼分別是 COLUMN 和 ROW 的分別 , 然後就是加多一個 AUTO FIT 進去 ~ 這就搞定了 ~ 哈哈

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何变更显示比例

2009-05-05T01:04:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.这个问题真的非常简单 ~ 简单得要命 ~ 程序代码 :================== ActiveWindow.Zoom = 75==================最后面的那个数字嘛 ~ 就是显示的比例 , 自己试试看吧 ~ 哈哈 ~

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何變更顯示比例

2009-05-05T01:01:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.這個問題真的非常簡單 ~ 簡單得要命 ~ 程式碼 :================== ActiveWindow.Zoom = 75==================最後面的那個數字嘛 ~ 就是顯示的比例 , 自己試試看吧 ~ 哈哈 ~

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何利用 VBA 程序代码 , 选择不连贯的储存格

2009-05-04T01:45:00.002+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.如果你有看过我的教学文 , 你应该记得 , 要选择单一个储存格或者是连贯的储存格的方法就是 Worksheets(“Sheet1”).Range(“A1”).Select 或者是 Worksheets(“Sheet1”).Range(“A1:E1”).Select .但是 , 有时候我们自己动手做的时候 , 我们也会按着键盘上的 “ CTRL ” 键来选择不同位置的储存格 , 对吧 ~要利用 EXCEL – VBA 来做到相同的效果 , 程序代码就是下面这个了 ~==================Worksheets("Sheet2").Range

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何利用 VBA 程式碼 , 選擇不連貫的儲存格

2009-05-04T01:44:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.如果你有看過我的教學文 , 你應該記得 , 要選擇單一個儲存格或者是連貫的儲存格的方法就是 Worksheets(“Sheet1”).Range(“A1”).Select 或者是 Worksheets(“Sheet1”).Range(“A1:E1”).Select .但是 , 有時候我們自己動手做的時候 , 我們也會按著鍵盤上的 “ CTRL ” 鍵來選擇不同位置的儲存格 , 對吧 ~要利用 EXCEL – VBA 來做到相同的效果 , 程式碼就是下面這個了 ~==================Worksheets("Sheet2").Range(

给网友 Becky2612 的问题响应

2009-05-04T01:34:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.GOOD MORNING CLASS ~~~~ :P哈哈 ~ 原来真的是蛮过瘾的嘛 ~ 哈哈 ~嗯 … 看到你的图片 , 可以想象得到 , 原本的报表中 , 数据的排序方式是全部都放在栏A 的 , 而你的目的就是 , 先把数据进行分类 , 然后再排序 , 把数据并排方便查阅 . 嗯 , 我相信 , 现在最困难的地方是 , 如何利用 EXCEL VBA 进行数据分类以及排序吧 … 嗯 … 好像问题都只有这两个吧 ~ 哈哈 ~ ( 嗯 … 此段纯粹为了欺骗排版而写的 ~ 嘿嘿嘿 ~ :P )好 , 先简单地说明一下我的解决方法 , 首先 ,

給網友 Becky2612 的問題回應

2009-05-04T01:30:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.GOOD MORNING CLASS ~~~~ :P哈哈 ~ 原來真的是蠻過癮的嘛 ~ 哈哈 ~嗯 … 看到你的圖片 , 可以想像得到 , 原本的報表中 , 資料的排序方式是全部都放在欄A 的 , 而你的目的就是 , 先把資料進行分類 , 然後再排序 , 把資料並排方便查閱 . 嗯 , 我相信 , 現在最困難的地方是 , 如何利用 EXCEL VBA 進行資料分類以及排序吧 … 嗯 … 好像問題都只有這兩個吧 ~ 哈哈 ~ ( 嗯 … 此段純粹為了欺騙排版而寫的 ~ 嘿嘿嘿 ~ :P )好 , 先簡單地說明一下我的解決方法 , 首先 ,

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何寻找数据

2009-05-01T02:20:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.寻找数据这个问题不就是 CTRL + F 嘛 ~ 太简单了 ~ 所以没有什么值的要故意再说一次的地方但是嘛 … ( 要骗页面显示量就作别论了 ~ 哈哈 ~ 别 K 我 ~ 哈哈 )================== Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ ,

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何尋找資料

2009-05-01T02:19:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.尋找資料這個問題不就是 CTRL + F 嘛 ~ 太簡單了 ~ 所以沒有什麼值的要故意再說一次的地方但是嘛 … ( 要騙頁面顯示量就作別論了 ~ 哈哈 ~ 別 K 我 ~ 哈哈 )================== Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ ,

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何插入或删除批注

2009-04-30T01:12:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.插入批注的方法在正常情况下确实是比较不常用的 , 不过都贴出来 , 好让我多骗几个页面显示量 ~ 哈哈 ~ 好 ~ 不废话 , 直接看看程序代码 :================== Range("A1").Comment.Visible = False Range("A1").Comment.Text Text:="123456"==================第一句的 VISIBLE = FALSE 的意思就是当你的鼠标不指着它 , 它就不显示出来 … 嗯 … 好像叫常驻什么的 … 嗯 … 如果把它改成 TRUE ,

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何插入或刪除註解

2009-04-30T01:10:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.插入註解的方法在正常情況下確實是比較不常用的 , 不過都貼出來 , 好讓我多騙幾個頁面顯示量 ~ 哈哈 ~ 好 ~ 不廢話 , 直接看看程式碼 :================== Range("A1").Comment.Visible = False Range("A1").Comment.Text Text:="123456"==================第一句的 VISIBLE = FALSE 的意思就是當你的鼠標不指著它 , 它就不顯示出來 … 嗯 … 好像叫常駐什麼的 … 嗯 … 如果把它改成 TRUE ,

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何设定储存格内的文字属性

2009-04-29T01:22:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.==================Worksheets("Sheet2").Range("A1").SelectWith Selection.Font .Name = "新细明体" .Size = "20" .Bold = True .Italic = True .Underline = TrueEnd With==================上面的程序代码如果我跟你说 , 我不作任何解释了 , 你会看得懂吗 ??不可能没看懂吧 ~ 这里就包含了我们日常工作中的最基本 , 粗体 , 斜体等等的东西 , 当然啰 ~

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何設定儲存格內的文字屬性

2009-04-29T01:20:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.==================Worksheets("Sheet2").Range("A1").SelectWith Selection.Font .Name = "新細明體" .Size = "20" .Bold = True .Italic = True .Underline = TrueEnd With==================上面的程式碼如果我跟你說 , 我不作任何解釋了 , 你會看得懂嗎 ??不可能沒看懂吧 ~ 這裡就包含了我們日常工作中的最基本 , 粗體 , 斜體等等的東西 , 當然囉 ~

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何建立新 EXCEL 檔

2009-04-28T00:31:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.在 Excel VBA 的程序设计中 , 自动增加一个新的 EXCEL 档是一个非常实用的技术 , 当新增的 EXCEL 文件记录了你想要的东西之后 , 自动以指定名称来保存档案就更好 ~ 对吧 ~ 可能你现在还未掌握这个东西 ~ 不过不要紧 , 其实这当中也没什么难度的 ~首先说明一下 , 怎样增加一个新档案吧 ~ 程序代码如下 :==================Workbooks.Add==================谜之音 : 就这个 ? 骗人都要给点诚意嘛 ~就是没骗你 ~ 真的这么简单 ~ 真的 ~ 呵呵呵呵 ~ 我最喜欢的那句话

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何建立新 EXCEL 檔

2009-04-28T00:30:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.在 Excel VBA 的程式設計中 , 自動增加一個新的 EXCEL 檔是一個非常實用的技術 , 當新增的 EXCEL 檔記錄了你想要的東西之後 , 自動以指定名稱來保存檔案就更好 ~ 對吧 ~ 可能你現在還未掌握這個東西 ~ 不過不要緊 , 其實這當中也沒什麼難度的 ~首先說明一下 , 怎樣增加一個新檔案吧 ~ 程式碼如下 :==================Workbooks.Add==================謎之音 : 就這個 ? 騙人都要給點誠意嘛 ~就是沒騙你 ~ 真的這麼簡單 ~ 真的 ~ 呵呵呵呵 ~ 我最喜歡的那句話 ~

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何变更页面名称

2009-04-27T01:36:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.如果在日常生活中 , 你经常要利用 EXCEL 来处理你的工作 , 那你经常使用的那个 EXCEL 档中的每一个工作页肯定不会只是 SHEET 1 , SHEET 2 或者 SHEET 3 这么简单的 ~ 你的档案应该是 SUMMARY , CHART 什么什么的 ~ 对吧 ~先假设你的程序设计是把一个档中的数据统计完之后 , 把这些结果复制到另一个新档里 , 而且要分别地放在不同的页面 , 当然 , 这是你自己制造出来的 , 你那会不知道 SHEET 1 , 2 和 3 中 , 分别记录的是什么东西 , 但是很可惜 , 你这个档案要给到你的老大看

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何變更頁面名稱

2009-04-27T01:34:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.如果在日常生活中 , 你經常要利用 EXCEL 來處理你的工作 , 那你經常使用的那個 EXCEL 檔中的每一個工作頁肯定不會只是 SHEET 1 , SHEET 2 或者 SHEET 3 這麼簡單的 ~ 你的檔案應該是 SUMMARY , CHART 什麼什麼的 ~ 對吧 ~先假設你的程式設計是把一個檔中的數據統計完之後 , 把這些結果複製到另一個新檔裡 , 而且要分別地放在不同的頁面 , 當然 , 這是你自己製造出來的 , 你那會不知道 SHEET 1 , 2 和 3 中 , 分別記錄的是什麼東西 , 但是很可惜 , 你這個檔案要給到你的老大看

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何寻找最后一个记录

2009-04-24T01:42:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.用 EXCEL 来处理数据 , 没可能只有一条吧 ~ 对不 ?数据是一天比一天多的 , 那么 , 如果我们的程序设计不能够自动寻找最后一个数据的位置 , 来确定新数据的储存位置 , 那你的程序设计就肯定有问题了 ~ 之前在那几十编的教学文章内有提到过的 , 现在再精要地再说一次吧 ~ 首先 , 要做到这个效果的话 , 条件是数据的记录必须要是一行接一行的 , 当中不能够有任何空白 , 否则会出问题 .假设你的报表中 , 从储存格 A1 到 A1000 全部都有记录 , 现在你要在储存格 A1001 要程序自动增加数据 ,

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何尋找最後一個記錄

2009-04-24T01:39:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.用 EXCEL 來處理數據 , 沒可能只有一條吧 ~ 對不 ?數據是一天比一天多的 , 那麼 , 如果我們的程式設計不能夠自動尋找最後一個數據的位置 , 來確定新數據的儲存位置 , 那你的程式設計就肯定有問題了 ~ 之前在那幾十編的教學文章內有提到過的 , 現在再精要地再說一次吧 ~ 首先 , 要做到這個效果的話 , 條件是數據的記錄必須要是一行接一行的 , 當中不能夠有任何空白 , 否則會出問題 .假設你的報表中 , 從儲存格 A1 到 A1000 全部都有記錄 , 現在你要在儲存格 A1001 要程式自動增加資料 ,

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何合拼储存格

2009-04-23T01:18:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.合拼储存格 , 一个大家经常都会用到的功能吧 ~ 如果我跟你说 , VBA 做不到 , 你相信我吗 ? 相信 ……………… 才怪呢 ~ 哈哈 ~================== Range("A1:A3").Select Selection.Merge Selection.UnMerge==================有没有看到 !? 这几句程序代码跟我之前说过的理论是一样的 , 有正就必定有反 , 有警察当然是有贼了 ~ 对吧 ~ 所以程序代码当中出现了 Merge 和 UnMerge , 意思就是合拼和不合拼 ~ 明白吗

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何合拼儲存格

2009-04-23T01:17:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.合拼儲存格 , 一個大家經常都會用到的功能吧 ~ 如果我跟你說 , VBA 做不到 , 你相信我嗎 ? 相信 ……………… 才怪呢 ~ 哈哈 ~================== Range("A1:A3").Select Selection.Merge Selection.UnMerge==================有沒有看到 !? 這幾句程式碼跟我之前說過的理論是一樣的 , 有正就必定有反 , 有警察當然是有賊了 ~ 對吧 ~ 所以程式碼當中出現了 Merge 和 UnMerge , 意思就是合拼和不合拼 ~ 明白嗎 ?

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何增加工作页

2009-04-22T00:52:00.002+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.增加工作页会是你在设定一个新的报表时常会做的东西吧 , 那么 , 既然你要学会 VBA 使计算机来自动工作 , 那么 , 增加工作页的这个麻烦步骤为什么不交给计算机替你来做呢 ?==================Worksheets.Add AFTER:=Worksheets("SHEET3")==================上面的程序代码的意思 , 就是在工作页 SHEET 3 后面增加一个新的工作页 , 当然 , 新增出来的工作页会自动地更改为使用中的状态 , 这个是必须要留意的 .我自己的个人习惯 , 当程序执行完增加新工作页之后 ,

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何增加工作頁

2009-04-22T00:52:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.增加工作頁會是你在設定一個新的報表時常會做的東西吧 , 那麼 , 既然你要學會 VBA 使電腦來自動工作 , 那麼 , 增加工作頁的這個麻煩步驟為什麼不交給電腦替你來做呢 ?==================Worksheets.Add AFTER:=Worksheets("SHEET3")==================上面的程式碼的意思 , 就是在工作頁 SHEET 3 後面增加一個新的工作頁 , 當然 , 新增出來的工作頁會自動地更改為使用中的狀態 , 這個是必須要留意的 .我自己的個人習慣 , 當程式執行完增加新工作頁之後 ,

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何设定定时执行模块

2009-04-21T00:42:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.这个问题可能很多人都有问过或者想过 , 因为当你能够使你的程序能够自动定时执行 , 哦 ~ 多么的帅气哦 ~ 哈哈哈哈 ~ 对吗 ~ 哈哈哈哈 ~ 好 ~ 要做到这样的效果 , 我们先要准备一点东西 , 否则你很难想象得到 , 这个实验的结果会是怎样的 .首先 , 开一个新的 EXCEL 档出来 , 打开 VBA 编程工具 , 替你的档案增加一个模块 , 模块内加入一点程序代码 :==================Sub abcd()MsgBox ("abcd")End Sub==================然后 , 回到你的 EXCEL 檔的

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何設定定時執行模組

2009-04-21T00:40:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.這個問題可能很多人都有問過或者想過 , 因為當你能夠使你的程式能夠自動定時執行 , 哦 ~ 多麼的帥氣哦 ~ 哈哈哈哈 ~ 對嗎 ~ 哈哈哈哈 ~ 好 ~ 要做到這樣的效果 , 我們先要準備一點東西 , 否則你很難想像得到 , 這個實驗的結果會是怎樣的 .首先 , 開一個新的 EXCEL 檔出來 , 打開 VBA 編程工具 , 替你的檔案增加一個模組 , 模組內加入一點程式碼 :==================Sub abcd()MsgBox ("abcd")End Sub==================然後 , 回到你的 EXCEL 檔的

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 不储存变更 , 而且直接关闭档案

2009-04-20T01:09:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.要说到不常用而又不大实际的技巧 , 这个都可算是其中一个了 ~ 为什么嘛 ~ 当你修改一个档案之后 , 当然地就是保存了哦 ~ 那我要不保存这个技巧来干嘛 !?对 , 这就是为什么我不太常用这个功能的原因 … 嗯 … 不过算了 , 为了多骗一点页面显示量 … ( 闪 ~~~~ )==================ThisWorkbook.Close SaveChanges:=False==================好吧 ~ 解释一下程序代码吧 ~ 就是告诉计算机 SaveChanges:=False 了 ~不明白 !? 有没有搞错 … (

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 不儲存變更 , 而且直接關閉檔案

2009-04-20T01:06:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.要說到不常用而又不大實際的技巧 , 這個都可算是其中一個了 ~ 為什麼嘛 ~ 當你修改一個檔案之後 , 當然地就是保存了哦 ~ 那我要不保存這個技巧來幹嘛 !?對 , 這就是為什麼我不太常用這個功能的原因 … 嗯 … 不過算了 , 為了多騙一點頁面顯示量 … ( 閃 ~~~~ )==================ThisWorkbook.Close SaveChanges:=False==================好吧 ~ 解釋一下程式碼吧 ~ 就是告訴電腦 SaveChanges:=False 了 ~不明白 !? 有沒有搞錯 … ( 救命

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何改变储存格及储存格内文字的颜色

2009-04-17T01:08:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.================== Selection.Interior.ColorIndex = 9 Selection.Interior.ColorIndex = 3 Selection.Interior.ColorIndex = 7 Selection.Interior.ColorIndex = 38 Selection.Interior.ColorIndex = 53 Selection.Interior.ColorIndex = 46 Selection.Interior.ColorIndex =

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何改變儲存格及儲存格內文字的顏色

2009-04-17T01:07:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.================== Selection.Interior.ColorIndex = 9 Selection.Interior.ColorIndex = 3 Selection.Interior.ColorIndex = 7 Selection.Interior.ColorIndex = 38 Selection.Interior.ColorIndex = 53 Selection.Interior.ColorIndex = 46 Selection.Interior.ColorIndex =

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何增加图表

2009-04-16T00:23:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.图表这家伙你没可能不知道是什么吧 ~ 既然我们用 EXCEL 去记录那么多的数据 , 你就没可能不需要把数据制作成一个图表 , 先看一下下面的程序代码 :================== Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("B2:N5"), PlotBy:= _ xlRows ActiveChart.Location

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何增加圖表

2009-04-16T00:21:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.圖表這傢伙你沒可能不知道是什麼吧 ~ 既然我們用 EXCEL 去記錄那麼多的數據 , 你就沒可能不需要把數據製作成一個圖表 , 先看一下下面的程式碼 :================== Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("B2:N5"), PlotBy:= _ xlRows ActiveChart.Location Where

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何复制 , 移动 , 删除工作页

2009-04-15T01:36:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.首先 , 我相信你应该清楚明白 , 把一个工作页中的数据复制后 , 再利用 VBA 对数据进行处理 , 对你的数据更加有保障 , 对吧 ~ 但是 , 我们在设计程序时 , 不可能先用人手复制需要的工作页再执行 VBA 程序那么笨吧 ~ 对不对 , 所以 , 复制工作页这个沉闷的动作 , 交给计算机来做实在是再合理不过了 ~ 你记得复制的英文是什么吗 ? 就是 COPY 嘛 ~ 简简单单的一个英文字 , 就可以做到我们想要的东西了 ~ ==================Worksheets("Sheet2").Copy after:=

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何複製 , 移動 , 刪除工作頁

2009-04-15T01:32:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.首先 , 我相信你應該清楚明白 , 把一個工作頁中的數據複製後 , 再利用 VBA 對數據進行處理 , 對你的數據更加有保障 , 對吧 ~ 但是 , 我們在設計程式時 , 不可能先用人手複製需要的工作頁再執行 VBA 程式那麼笨吧 ~ 對不對 , 所以 , 複製工作頁這個沉悶的動作 , 交給電腦來做實在是再合理不過了 ~ 你記得複製的英文是什麼嗎 ? 就是 COPY 嘛 ~ 簡簡單單的一個英文字 , 就可以做到我們想要的東西了 ~ ==================Worksheets("Sheet2").Copy after:=

Excel VBA 实用技巧 ( 轻轻的进阶编 ) 如何关闭提示警告讯息对话框

2009-04-14T00:44:00.004+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.嗯 … 如果当你叫你的程序制作并储存一个新的档案 , 当每次执行程序时 , 所储存的文件名字都一样的话 , 那么 , 你的计算机便会给你一个免费的而又烦死人的警告讯息出来 .先假设一下情况 :==================每次执行程序后 , 程序的设定是把新增的一个 EXCEL 档以指定的文件名称 ABC.xls 来储存起来 .==================程序第一次运作时 , 你的程序中指定位置内并没有 ABC.xls 这个档案储在 , 所以在第一次执行程序中有关保存档案的程序代码时 , 根本就没有问题发生 .但是 ,

Excel VBA 實用技巧 ( 輕輕的進階編 ) 如何關閉提示警告訊息對話框

2009-04-14T00:41:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.嗯 … 如果當你叫你的程式製作並儲存一個新的檔案 , 當每次執行程式時 , 所儲存的檔案名字都一樣的話 , 那麼 , 你的電腦便會給你一個免費的而又煩死人的警告訊息出來 .先假設一下情況 :==================每次執行程式後 , 程式的設定是把新增的一個 EXCEL 檔以指定的檔案名稱 ABC.xls 來儲存起來 .==================程式第一次運作時 , 你的程式中指定位置內並沒有 ABC.xls 這個檔案儲在 , 所以在第一次執行程式中有關保存檔案的程式碼時 , 根本就沒有問題發生 .但是 , 當你第二次執行程式時

Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何设定储存格格式

2009-04-13T02:16:00.003+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.呵呵呵呵 ~ 先送你一大堆程序代码 ~ 来 ~ ================== Selection.NumberFormatLocal = "G/通用格式" Selection.NumberFormatLocal = "0.00_ " Selection.NumberFormatLocal = "$#,##0.00" Selection.NumberFormatLocal = _ "_-$* #,##0.00_-;-$* #,##0.00_-;_-$* ""-""??_-;_-@_-"

Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何設定儲存格格式

2009-04-13T01:59:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.呵呵呵呵 ~ 先送你一大堆程式碼 ~ 來 ~ ================== Selection.NumberFormatLocal = "G/通用格式" Selection.NumberFormatLocal = "0.00_ " Selection.NumberFormatLocal = "$#,##0.00" Selection.NumberFormatLocal = _ "_-$* #,##0.00_-;-$* #,##0.00_-;_-$* ""-""??_-;_-@_-"

新系列 “ EXCEL VBA 实用技巧 ( 轻轻的进阶编 ) ” 推出前的一个序 ~

2009-04-08T00:10:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.根据之前的教学文章 , 如果你有把它都看完而且自己动手做过 , 我相信 , 你现在对于 EXCEL VBA 的操作方法和编程方法 , 已经有一定的了解了 , 对吧 ~ 当你有了这些基本概念之后 , 之前的教学文章对你的用处就小很多了 , 是吗 ? 现在的你会突然爱上自己开发 , 尝试把你脑袋里一些混乱又天方夜谭的念头实现 , 当你尝试去开发的时候 , 问题就开始接踵而来了 . 每当你进行开发的时候 , 都很想可以向天大叫一句 : 天啊 ~~~~ 救命哦 ~ 又错了耶 ~~~别紧张嘛 ~ 呵呵呵呵 ~ 这些问题我可遇得多了 , 习惯了就好 ~ 哈哈 ~

新系列 “ EXCEL VBA 實用技巧 ( 輕輕的進階編 ) ” 推出前的一個序 ~

2009-04-08T00:07:00.002+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.根據之前的教學文章 , 如果你有把它都看完而且自己動手做過 , 我相信 , 你現在對於 EXCEL VBA 的操作方法和編程方法 , 已經有一定的了解了 , 對吧 ~ 當你有了這些基本概念之後 , 之前的教學文章對你的用處就小很多了 , 是嗎 ? 現在的你會突然愛上自己開發 , 嘗試把你腦袋裡一些混亂又天方夜譚的念頭實現 , 當你嘗試去開發的時候 , 問題就開始接踵而來了 . 每當你進行開發的時候 , 都很想可以向天大叫一句 : 天啊 ~~~~ 救命哦 ~ 又錯了耶 ~~~別緊張嘛 ~ 呵呵呵呵 ~ 這些問題我可遇得多了 , 習慣了就好 ~ 哈哈 ~

对于 VBA 学习第十回 - 正确 , 不正确找不到对象的问题响应 .

2009-01-14T00:46:00.000+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.接到很多朋友都在来到第十回的时候 , 出现的问题 “ 计算机显示找不到对象 ” , 之前我实在是有点不明白的 , 到底为什么大家都会出现 “ 找不到对象 ” 这个问题呢 ? 是程序代码出问题吗 ?经过我反复 ~ 反复 ~ 又再反复 ~ 的测试 , 给果是程序代码没有错误的 ~ 但是 , 当我把我的程序代码贴出来之后 , 为什么又会有朋友遇到同样的问题呢 ? 难道我贴错了其它的程序代码吗 ? 终于 , 我想到了一个很简单而又很重要的问题 ! 问题是 : 到底我有没有提及过 , 模块的名称这个问题呢 ?如果大家有自己动手做过程序 , 应该会发现 ,

對於 VBA 學習第十回 - 正確 , 不正確找不到物件的問題回應 . ( 繁 )

2009-01-14T00:39:00.002+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.接到很多朋友都在來到第十回的時候 , 出現的問題 “ 電腦顯示找不到物件 ” , 之前我實在是有點不明白的 , 到底為什麼大家都會出現 “ 找不到物件 ” 這個問題呢 ? 是程式碼出問題嗎 ?經過我反覆 ~ 反覆 ~ 又再反覆 ~ 的測試 , 給果是程式碼沒有錯誤的 ~ 但是 , 當我把我的程式碼貼出來之後 , 為什麼又會有朋友遇到同樣的問題呢 ? 難道我貼錯了其他的程式碼嗎 ? 終於 , 我想到了一個很簡單而又很重要的問題 ! 問題是 : 到底我有沒有提及過 , 模組的名稱這個問題呢 ?如果大家有自己動手做過程式 , 應該會發現 ,

懒人计划 3 – 自动制作文件的二次进化 PART 08 – 记得要修改哦 ~~

2008-11-21T13:35:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.哈哈哈 ~ 之前的习题很简单吧 ~ 不过好像反应不太好似的 , 可以是编程不是每个人都喜欢吧 ~ 有时候我也觉得满烦的 ~ 哈哈 ~好了 ~ 现在先处理好 INVOICE 页面的设定吧 ~( Pic8_1 )看到图片吗 ? 图片中 , 红色圈中的位置是我们之前加上去的 , 你不会想被人看到你打印出来的东西有这些奇怪的符号吧 ~ 行 G 的位置还好 , 程序会把他删掉的 , B 的那个真的受不了 … XD最简单又最直接的方法 ~ 来 ~ 看我的利害 ~( Pic8_2 )利害吧 ~ 直接把文字的颜色改成白色 ~ 哈哈 ~ 利害利害 ~ 我真佩服我自己

懶人計劃 3 – 自動製作文件的二次進化 PART 08 – 記得要修改哦 ~~

2008-11-21T13:34:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.哈哈哈 ~ 之前的習題很簡單吧 ~ 不過好像反應不太好似的 , 可能是編程不是每個人都喜歡吧 ~ 有時候我也覺得滿煩的 ~ 哈哈 ~好了 ~ 現在先處理好 INVOICE 頁面的設定吧 ~( Pic8_1 )看到圖片嗎 ? 圖片中 , 紅色圈中的位置是我們之前加上去的 , 你不會想被人看到你打印出來的東西有這些奇怪的符號吧 ~ 行 G 的位置還好 , 程式會把他刪掉的 , B 的那個真的受不了 … XD最簡單又最直接的方法 ~ 來 ~ 看我的利害 ~( Pic8_2 )利害吧 ~ 直接把文字的顏色改成白色 ~ 哈哈 ~ 利害利害 ~ 我真佩服我自己

懒人计划 3 – 自动制作文件的二次进化 PART 07 – 是一样还是不同 2

2008-11-20T01:10:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.好 ~ 先来看一下我的完整程序代码 :==========================================Sub SecondTimeUse()'选择 SUMMARY 页面的储存格 B3 , 利用 ActiveCell.End(xlDown).Select 向下寻找最后一个记录'利用变量 LASTREC 记录目标位置Worksheets("Summary").SelectWorksheets("Summary").Range("B3").SelectActiveCell.End(xlDown).SelectLastRec =

懶人計劃 3 – 自動製作文件的二次進化 PART 07 – 是一樣還是不同 2

2008-11-20T01:09:00.002+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.好 ~ 先來看一下我的完整程式碼 :==========================================Sub SecondTimeUse()'選擇 SUMMARY 頁面的儲存格 B3 , 利用 ActiveCell.End(xlDown).Select 向下尋找最後一個記錄'利用變量 LASTREC 記錄目標位置Worksheets("Summary").SelectWorksheets("Summary").Range("B3").SelectActiveCell.End(xlDown).SelectLastRec =

懒人计划 3 – 自动制作文件的二次进化 PART 06 – 是一样还是不同 1

2008-11-20T01:09:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.第二次执行程序时 , 情况比第一次执行简单很多 , 因为不用像第一次执行时一样考虑这个衡量那个 , 所以程序代码的编写比较简单 , 而且可以利以复制贴上来写 , 嗯 , 只要轻轻修改一下就可以了 ~首先 , 情况还是一样 , 先要找到所有记录的最后一行 , 所以程序代码必须有以下的几句 :==========================================Worksheets("Summary").SelectWorksheets("Summary").Range("B3").SelectActiveCell.End(xlDown).

懶人計劃 3 – 自動製作文件的二次進化 PART 06 – 是一樣還是不同 1

2008-11-20T01:08:00.000+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.第二次執行程式時 , 情況比第一次執行簡單很多 , 因為不用像第一次執行時一樣考慮這個衡量那個 , 所以程式碼的編寫比較簡單 , 而且可以利以複製貼上來寫 , 嗯 , 只要輕輕修改一下就可以了 ~首先 , 情況還是一樣 , 先要找到所有記錄的最後一行 , 所以程式碼必須有以下的幾句 :==========================================Worksheets("Summary").SelectWorksheets("Summary").Range("B3").SelectActiveCell.End(xlDown).

懒人计划 3 – 自动制作文件的二次进化 PART 05 – 第一次执行 3

2008-11-19T02:27:00.002+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.真的没骗排版哦 ~ 哈哈 ~ ( 多骗一句不碍事吧 ~ 哈哈哈 ~ 闪 ~~~~~ )现在开始再说一下 , 余下的记录要处理的地方吧 ~ 其实只不过又是那一些什么地方又加些什么 “ Y ” 字作记号 , 什么什么又加这个减那个的 , 所以这一编就不如直接把整个第一次执行程序时的模块贴出来吧 ~==========================================Sub FirstTimeUse()'设定第一个记录位置为 4FirstRec = 4'选择 SUMMARY 页面的储存格 B3 , 利用 ActiveCell.End(

懶人計劃 3 – 自動製作文件的二次進化 PART 05 – 第一次執行 3

2008-11-19T02:27:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.真的沒騙排版哦 ~ 哈哈 ~ ( 多騙一句不礙事吧 ~ 哈哈哈 ~ 閃 ~~~~~ )現在開始再說一下 , 餘下的記錄要處理的地方吧 ~ 其實只不過又是那一些什麼地方又加些什麼 “ Y ” 字作記號 , 什麼什麼又加這個減那個的 , 所以這一編就不如直接把整個第一次執行程式時的模組貼出來吧 ~==========================================Sub FirstTimeUse()'設定第一個記錄位置為 4FirstRec = 4'選擇 SUMMARY 頁面的儲存格 B3 , 利用 ActiveCell.End(

懒人计划 3 – 自动制作文件的二次进化 PART 04 – 第一次执行 2

2008-11-19T02:26:00.004+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.现在先假设 REF # 1 的数据已经做好了打印的过程 , 我们现在要做的 , 是在 SUMMARY 页面的 “ 已打印 ” 和 “ 打印日期 ” 中增加对应数据 , 一个 “ Y ” 字和打印日期 . 程序代码 :==========================================Counter = 4For LoopCount = 1 To Ref2TTLWorksheets("Summary").Range("I" & Counter).Value = "Y"Worksheets("Summary").Range("J" &

懶人計劃 3 – 自動製作文件的二次進化 PART 04 – 第一次執行 2

2008-11-19T02:26:00.003+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.現在先假設 REF # 1 的資料已經做好了打印的過程 , 我們現在要做的 , 是在 SUMMARY 頁面的 “ 已打印 ” 和 “ 打印日期 ” 中增加對應資料 , 一個 “ Y ” 字和打印日期 . 程式碼 :==========================================Counter = 4For LoopCount = 1 To Ref2TTLWorksheets("Summary").Range("I" & Counter).Value = "Y"Worksheets("Summary").Range("J" &

懒人计划 3 – 自动制作文件的二次进化 PART 03 – 第一次执行 1

2008-11-19T02:25:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.现在开始要做的 , 就是程序在第一次执行时要做什么 , 首先要做的 , 是要知道有多少东西要做 , 所以 , 又要使用我们经常使用的程序代码 :==========================================Worksheets("Summary").SelectWorksheets("Summary").Range("B3").SelectActiveCell.End(xlDown).SelectLastRec = ActiveCell.Row==========================================

懶人計劃 3 – 自動製作文件的二次進化 PART 03 – 第一次執行 1

2008-11-19T02:24:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.現在開始要做的 , 就是程式在第一次執行時要做什麼 , 首先要做的 , 是要知道有多少東西要做 , 所以 , 又要使用我們經常使用的程式碼 :==========================================Worksheets("Summary").SelectWorksheets("Summary").Range("B3").SelectActiveCell.End(xlDown).SelectLastRec = ActiveCell.Row==========================================

懒人计划 3 – 自动制作文件的二次进化 PART 02 – 有那么复杂吗 ?

2008-11-18T02:45:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.没想到你能坚持到这里 ~ 呵呵呵呵 ~ 很期待吧 ~ 期待解决方法吗 ?哈哈 ~ 好 ~ 开始吧 ~现在 , 因为这个档是复制出来的 , 而且只是一个测试档 , 就先打开你的 VBA 编辑器 , 把所有的程序代码都删掉 ~ 重新再做过吧 ~什么 ? 为什么要重新再做过 , 不是修改一下就行了吗 ?嗯 … 这个是我的个人习惯 , 为了避免一大堆的程序代码影响自己的思考 , 所以每次改动之前我都会复制一个档出来 , 再把复制本的所有程序代码全部删掉 , 就当是之前没做过 , 直接做一个新的就好 .今次要写的程序 , 主要的目的是把上一次进化版的问题保完

懶人計劃 3 – 自動製作文件的二次進化 PART 02 – 有那麼複雜嗎 ?

2008-11-18T02:44:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.沒想到你能堅持到這裡 ~ 呵呵呵呵 ~ 很期待吧 ~ 期待解決方法嗎 ?哈哈 ~ 好 ~ 開始吧 ~現在 , 因為這個檔是複製出來的 , 而且只是一個測試檔 , 就先打開你的 VBA 編輯器 , 把所有的程式碼都刪掉 ~ 重新再做過吧 ~什麼 ? 為什麼要重新再做過 , 不是修改一下就行了嗎 ?嗯 … 這個是我的個人習慣 , 為了避免一大堆的程式碼影響自己的思考 , 所以每次改動之前我都會複製一個檔出來 , 再把複製本的所有程式碼全部刪掉 , 就當是之前沒做過 , 直接做一個新的就好 .今次要寫的程式 , 主要的目的是把上一次進化版的問題保完 ,

懒人计划 3 – 自动制作文件的二次进化 PART 01 – 有问题 !?

2008-11-17T12:37:00.002+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.这个可以算是 BUG 吗 … 嗯 … 或者说是我在设计的时候 , 懒得想这个问题吧 ~ 哈哈 ~ 如果你有根据我所写的教学来做一个档出来 , 你一定也会发现有这样的一个问题吧 ~好 , 先说明一下问题是什么 .问题是 , 现在的设计只可以支持一个 REF# 对应一行资料 , 如果一个 REF# 有多过一行数据 , 问题就出现了 , 因为程序根本不知道还有第二行的数据 , 所以 , 今次的目的是要把这个问题解决 ( 如果解决不了的话 , 那么这个小程序的功能就跟无用没分别 ~ 对吧 ~ 哈哈 )首先 , 把你正在使用中的档案保存一下 , 再复制一个备份

懶人計劃 3 – 自動製作文件的二次進化 PART 01 – 有問題 !?

2008-11-17T12:34:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.這個可以算是 BUG 嗎 … 嗯 … 或者說是我在設計的時候 , 懶得想這個問題吧 ~ 哈哈 ~ 如果你有根據我所寫的教學來做一個檔出來 , 你一定也會發現有這樣的一個問題吧 ~好 , 先說明一下問題是什麼 .問題是 , 現在的設計只可以支援一個 REF# 對應一行資料 , 如果一個 REF# 有多過一行資料 , 問題就出現了 , 因為程式根本不知道還有第二行的資料 , 所以 , 今次的目的是要把這個問題解決 ( 如果解決不了的話 , 那麼這個小程式的功能就跟無用沒分別 ~ 對吧 ~ 哈哈 )首先 , 把你正在使用中的檔案保存一下 , 再複製一個備份

懒人计划 2 - 自动制作文件进化版 PART 06 - 动起来吧2 ~

2008-10-24T10:40:00.002+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.紧接住上一编文章 ~ 我们继续写程序 ~现在我们已经得到了两个很有用的东西 ( LastRec 和 LastRec2 ) , 现在我们要利用这两个东西来做要做的事 , 首先 , 加入一些程序代码 ~=====================================For PrintLoop = LastRec2 + 1 To LastRecIf Worksheets("Summary").Range("H" & PrintLoop).Value = "" And Worksheets("Summary").Range("I" &

懒人计划 2 - 自动制作文件进化版 PART 05 - 动起来吧 ~

2008-10-24T10:39:00.002+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.如果你有看清楚上一次 , 我在文章中所提到的习题提示 , 那你就应该明白到 , 要做到我们想要的 " 符合条件 " 只需要把程序代码修改一下就可以了 ~上一次的程序代码 :if Worksheets("Summary").Range("H??").value ="Y" and worksheets("Summary").Range("I??").value <>""这句程序代码当中 , 意思是当 H?? 的值是 Y 而且 I?? 的值不是空格就做 , 但是 , 这个应该是程序完成后 , 计算机帮我们增加上去的记录来的 , H?? 是记录 " 已打印

懶人計劃 2 - 自動製作文件進化版 PART 06 - 動起來吧2 ~

2008-10-24T10:30:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.緊接住上一編文章 ~ 我們繼續寫程式 ~現在我們已經得到了兩個很有用的東西 ( LastRec 和 LastRec2 ) , 現在我們要利用這兩個東西來做要做的事 , 首先 , 加入一些程式碼 ~=====================================For PrintLoop = LastRec2 + 1 To LastRecIf Worksheets("Summary").Range("H" & PrintLoop).Value = "" And Worksheets("Summary").Range("I" &

懶人計劃 2 - 自動製作文件進化版 PART 05 - 動起來吧 ~

2008-10-24T10:28:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.如果你有看清楚上一次 , 我在文章中所提到的習題提示 , 那你就應該明白到 , 要做到我們想要的 " 符合條件 " 只需要把程式碼修改一下就可以了 ~上一次的程式碼 :if Worksheets("Summary").Range("H??").value ="Y" and worksheets("Summary").Range("I??").value <>""這句程式碼當中 , 意思是當 H?? 的值是 Y 而且 I?? 的值不是空格就做 , 但是 , 這個應該是程式完成後 , 電腦幫我們增加上去的記錄來的 , H?? 是記錄 " 已打印 " ,

懒人计划 2 - 自动制作文件进化版 PART 04 - 寻找条件 if then else ~

2008-10-23T10:30:00.002+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.大家好吗 ~ 这一回要开始写程序啰 ~~~如果大家有想过上一次我给你的提示 , 那这一章在开始之前 , 你应该也尝试过自己动手做了 ~最初学习的时候 , 我有给你说过 , 其实计算机也很笨的 , 你不叫它做 , 它就什么也不做 , 你要它做 , 它就什么也会做 , 只是你要先告诉它怎样做 . 所以 , 我们第一件要做的事情 , 就是要利用程序代码 , 告诉计算机要怎样做 .第一 , 上次我们增加了 " 已打印 " 和 " 打印日期 " 这两个东西 , 这两个东西的数据 , 理论上来说是计算机加上去的 , 看的也只是计算机 , 不是使用者 .(

懶人計劃 2 - 自動製作文件進化版 PART 04 - 尋找條件 if then else ~

2008-10-23T10:25:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.大家好嗎 ~ 這一回要開始寫程式囉 ~~~如果大家有想過上一次我給你的提示 , 那這一章在開始之前 , 你應該也嘗試過自己動手做了 ~最初學習的時候 , 我有給你說過 , 其實電腦也很笨的 , 你不叫它做 , 它就什麼也不做 , 你要它做 , 它就什麼也會做 , 只是你要先告訴它怎樣做 . 所以 , 我們第一件要做的事情 , 就是要利用程式碼 , 告訴電腦要怎樣做 .第一 , 上次我們增加了 " 已打印 " 和 " 打印日期 " 這兩個東西 , 這兩個東西的資料 , 理論上來說是電腦加上去的 , 看的也只是電腦 , 不是使用者 .( Pic4_1 )

懒人计划 2 - 自动制作文件进化版 PART 03 - 条件成立就做 ~

2008-10-22T10:34:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.我又来了哦 ~ 有没有想我 !? 哈哈 ~ 快 ~ 给我说一说你对我写的 EXCEL VBA 教学有什么感觉 ~~ 没有 !? 有没有搞错 ~ 那写一句到此一游吧 ~ 等我知道有你来过 ~ 呵呵 ~好 ! 废话完毕 , 开始 !上一次准备的东西快给我找出来 ~ 快 ~ 我可不等你了哦 ~ 呵呵 ~直接开始吧 ~ 在 SUMMARY 页面的按钮点两次 , 进入程序编写的画面 ~进入之后 , 先停一下 ~别急嘛 ~ 呵呵呵 ~要我分享我这两年的钻研成果 , 起码都要给我拍一拍掌了吧 XD ( 废话病又来了 ~ 哈 ~ )记得我在引言中有提过的一个重点吗

懶人計劃 2 - 自動製作文件進化版 PART 03 - 條件成立就做 ~

2008-10-22T10:31:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.我又來了哦 ~ 有沒有想我 !? 哈哈 ~ 快 ~ 給我說一說你對我寫的 EXCEL VBA 教學有什麼感覺 ~~ 沒有 !? 有沒有搞錯 ~ 那寫一句到此一遊吧 ~ 等我知道有你來過 ~ 呵呵 ~好 ! 廢話完畢 , 開始 !上一次準備的東西快給我找出來 ~ 快 ~ 我可不等你了哦 ~ 呵呵 ~直接開始吧 ~ 在 SUMMARY 頁面的按鈕點兩次 , 進入程式編寫的畫面 ~進入之後 , 先停一下 ~別急嘛 ~ 呵呵呵 ~要我分享我這兩年的鑽研成果 , 起碼都要給我拍一拍掌了吧 XD ( 廢話病又來了 ~ 哈 ~ )記得我在引言中有提過的一個重點嗎

懒人计划 2 - 自动制作文件进化版 PART 02 - 增加新项目

2008-10-21T10:34:00.002+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.记得上一次我教你们做出来的东西吗 ?? 有没有试过修改 ?? 哈哈 ~ 不可能没有吧 , 对不对 , 没有的话根本就没可能应用在你的日常工作哦 ~我在写这些 EXCEL - VBA 教学的时候 , 很多时都有提过程序的运作速度问题 , 程序的运作速度关系到工作效率的提升 , 和你有多少时间去偷懒 , 所以我们在每一次写程序的时候 , 都必须要记得 , 不要用太多重复的程序代码 , 免得程序在运作的时候 , 做太多没意义的动作 .另一个提升运作速度的方法就是要使用者的操作步骤再减少一点 , 我们在懒人计划 1 中的程序 ,

懶人計劃 2 - 自動製作文件進化版 PART 02 - 增加新項目

2008-10-21T10:33:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.記得上一次我教你們做出來的東西嗎 ?? 有沒有試過修改 ?? 哈哈 ~ 不可能沒有吧 , 對不對 , 沒有的話根本就沒可能應用在你的日常工作哦 ~我在寫這些 EXCEL - VBA 教學的時候 , 很多時都有提過程式的運作速度問題 , 程式的運作速度關係到工作效率的提升 , 和你有多少時間去偷懶 , 所以我們在每一次寫程式的時候 , 都必須要記得 , 不要用太多重複的程式碼 , 免得程式在運作的時候 , 做太多沒意義的動作 .另一個提升運作速度的方法就是要使用者的操作步驟再減少一點 , 我們在懶人計劃 1 中的程式 ,

懒人计划 2 - 自动制作文件进化版 PART 01 - 引言

2008-10-20T13:38:00.001+08:00

~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.在开始这一章之前 , 请你先确定 , 你已经搞定了懒人计划 1 的教学 , 因为这次是懒人计划 1 的进化版 , 如果你还未搞清楚的话 , 我怕你会不知道我在说什么 ~ 哈哈 ~如果你成功完成了属于自己的一个自动制作文件的程序 ( 按照我所说的来做吧 ~ 哈哈 ~ ) , 那么你可能已经想到了一个问题 , 为什么这个程序还会有进化版 ?? 不是已经很好了吗 ??的确 , 对于第一次做到这个效果的你 , 可能已经感到满足了 , 不过我要告诉你 , 因为我在很久之前已经做到了 ( 大概都有五到六年了吧 ~ ) , 所以这个自动制作文件的程序 ,

懶人計劃 2 - 自動製作文件進化版 PART 01 - 引言

2008-10-20T13:37:00.001+08:00

~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.在開始這一章之前 , 請你先確定 , 你已經搞定了懶人計劃 1 的教學 , 因為這次是懶人計劃 1 的進化版 , 如果你還未搞清楚的話 , 我怕你會不知道我在說什麼 ~ 哈哈 ~如果你成功完成了屬於自己的一個自動製作文件的程式 ( 按照我所說的來做吧 ~ 哈哈 ~ ) , 那麼你可能已經想到了一個問題 , 為什麼這個程式還會有進化版 ?? 不是已經很好了嗎 ??的確 , 對於第一次做到這個效果的你 , 可能已經感到滿足了 , 不過我要告訴你 , 因為我在很久之前已經做到了 ( 大概都有五到六年了吧 ~ ) , 所以這個自動製作文件的程式 ,

中毒 ! LEGO CASTLE 真係好毒 !

2008-10-14T01:53:00.000+08:00

||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||||　　　　威廉先生奇遇記重生版第八話之　　　｡　　∧＿∧　　　　|| ||　　　　　中毒 ! 　　　　　　　　　　　　　＼（´･ω・`）　　　||　||　　　　　　　LEGO CASTLE 真係好毒 !　　　　　⊂　⊂　）~　　|| ||＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿|￣威廉先生。￣|＿|| 　　　　　　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣早幾日 , 醒起有朋友儲開 LEGO STAR WAR , 貪得意上拍賣網 SEARCH 下 , 之後發現有 LEGO CASTLE , 未夠兩日 , 又一次貪過癮出街睇實物 , 太多 , 眼花撩亂 , 終於o係好奇心驅使下 , 手痕買左一盒 7037 ... 我比較鐘意 CASTLE ( 個人喜好 ONLY ~ )然後 ...

自動製作文件程式 - 進化

2008-10-12T16:43:00.000+08:00

威廉先生奇遇記重生版第七話之神啊求求讓我睡 ~~~ 請不要... 電話響 ...

2008-09-25T01:57:00.000+08:00

||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||||　　　　威廉先生奇遇記重生版第七話之　　　｡　　∧＿∧　　　　|| ||　　　　　神啊求求讓我睡 ~~~ 　　　　　　　＼（´･ω・`）　　　||　||　　　　　　　請不要... 電話響 ...　　　　　　　　⊂　⊂　）~　　|| ||＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿|￣威廉先生。￣|＿|| 　　　　　　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣最近幾個星期 , 工作真係多到排山倒海 ...有如乜乜江水 , 乜乜不絕 ~ ( 唔記得點打~ XD )工作壓力過大 , 好自然就會出現失眠 ~一失眠 ~ 又乜都唔想做 ...唔想去影相 ...唔想上網 ...唔想寫 BLOG ...唔想寫教學文 ...真係乜鬼都唔想 ~不過 ~ 始終 ~ 最唔想O既係 ... 電話響 !電話響 ,

威廉先生奇遇記重生版第六話之玩到冇野玩 , 今次玩 … 即時記錄

2008-08-30T00:55:00.000+08:00

||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||||　　　　威廉先生奇遇記重生版第六話之　　　｡　　∧＿∧　　　　|| ||　　　　　玩到冇野玩　　　　　　　　　　　＼（´･ω・`）　　　||　||　　　　　　　今次玩 … 即時記錄　　　　　　　　⊂　⊂　）~　　|| ||＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿|￣威廉先生。￣|＿|| 　　　　　　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣早幾日 , 買左一部恨左好耐o既電腦 , ASUS EEEPC 901 , 首先 , 我唔係要曬命 , 哈哈 ( 唔多唔小有 d 啦 ~ ) , 而係想借 d 咦到處遊歷 , 隨處寫 blog , 今編文章寫o既時候 , 正正就發生緊牌皇牌后論牌 .武俠片最鐘意華山論劍 , 現實生活最常見唔係年青人談論遊戲理論 , 就係牌皇牌后論牌 .

威廉先生奇遇記重生版第五話之回憶中的學校生活 , 超市內的加減乘除

2008-08-25T14:01:00.000+08:00

||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||||　　　　威廉先生奇遇記重生版第五話之　　　｡　　∧＿∧　　　　|| ||　　　　　回憶中的學校生活　　　　　　　　＼（´･ω・`）　　　||　||　　　　　　　超市內的加減乘除　　　　　　　　⊂　⊂　）~　　|| ||＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿|￣威廉先生。￣|＿|| 　　　　　　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣有人說 , 超市可以慳錢 , 我說哦 ~ 慳錢 !? 先要看看你的加減乘除功力有多少 !正所謂 " 細時唔讀書 , 大時做運輸 " , 我細個唔鐘意讀書 , 一讀書就恰眼訓 , 真係想好成績都幾難 . 記得細個讀書時候 , 成日都會問老師 ~我 : 老師 ~ 老師 ~ 請問 , 我學學埋埋咁多 SIN , COS 什麼什麼 , 第時做野有咩用架 ?

威廉幻想文之晚餐的幻想

2008-08-18T18:32:00.000+08:00

||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||||　　　　威廉幻想文之　　　　　　　　　　　｡　　∧＿∧　　　　|| ||　　　　晚餐的幻想　　　　　　　　　　　　＼（´･ω・`）　　　||　||　　　　　　　　　　　　　　　　　　　　　　　⊂　⊂　）~　　|| ||＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿|￣威廉先生。￣|＿|| 　　　　　　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣簡陋的房子內 , 你 , 穿著一件薄薄的衣裳 , 靜心地期待我的到來 .我 , 打開了房子的大門 , 來到你的面前 . 我的雙眼就似有看穿能力 , 從你那薄薄的衣裳 , 看到你那玲瓏的曲線 .你的曲線激起了我無限的男性欲望 , 我想要佔有你 , 必須要佔有你 .你 , 擺出誘惑的姿態 , 吸引著我的眼球 .我的眼球一刻也沒有離開你的身體 , 因為 ,