tag:blogger.com,1999:blog-77420792667497659152024-02-08T09:57:53.141+08:00威廉博客免費 EXCEL VBA 教學 , 與我的閒聊日誌 ~Unknownnoreply@blogger.comBlogger146125tag:blogger.com,1999:blog-7742079266749765915.post-55325093068846551942010-06-17T14:13:00.003+08:002010-06-17T14:36:00.523+08:00給各位的信大家好哦 ~ 嗯 .......好像很多話要說 , 但總覺得有點 ..... 嗯 ..... 應該說是 ..... 不好意思吧 .....好吧 , 要認真點 .首先 , 多謝各位對我的不離不棄 , 但是 , 由於最近在工作上 , 金錢上等等的一大堆問題已經煩得要死 , 所以最近都沒空來寫寫新文章 , 跟大家討論一下問題 , 實在是不好意思 .然後 , 是那個圖片經常看不到的問題吧 , 嗯 .... 我都有發現這個問題 , 原本的想法是 , 把所有的文章重新在貼一次 , 博客的設計改一下 , 圖片也不會再放在 SHARE A PIC 那邊了 , 確實是 LOAD 得很慢 ..... 有時候更會打不開呢 .....嗯 ..... 請各位相信我 , 我一定會再貼新文章 , 一定會解決圖片問題的 , 等我的問題處理好 , 我就會再回來了 , 要等我哦 ~Best Regards, WilliamUnknownnoreply@blogger.com1tag:blogger.com,1999:blog-7742079266749765915.post-41950586331195528292009-07-30T00:04:00.004+08:002009-07-30T01:02:40.363+08:00威廉先生奇遇記重生版 第九話 之 狗狗乖 ~ 請勿嚇我 ~ 恤衫西褲加波鞋 ? 叔叔請問你搞乜 ?|| ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄|||| 威廉先生奇遇記重生版 第九話 之 。 ∧_∧ || || 狗狗乖 ~ 請勿嚇我 ~ \ (´・ω・`) || || 恤衫西褲加波鞋 ? 叔叔請問你搞乜 ? ⊂ ⊂ )~ || ||______________________| ̄威廉先生。 ̄|_||  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄嗯 , 今次事件係發生o係我跑步O既時候 .........跑步經驗 : 講真 , 真係冇 , 到今日為止先認真跑得果兩次 , 仲要行多過跑 .... 運動經驗 : 籃球 , 羽毛球 , 間唔中游水==============================上星期五 24 JUL 2009 , 人生第一次認真咁跑 , 跑前熱身只係Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-64719394976989283702009-07-22T01:43:00.000+08:002009-07-22T01:44:10.047+08:00问题响应 – 久别重逢篇~呵呵呵呵 ~ 大家好哦 ~ 我想大家都没有忘记我吧 XD ( 希望如此好了 ~ XD )最近工作太忙了, 都完全没时间打理博客 ~ 稍后又要进修 , 嗯 … 还有一段忙碌日子等着我呢~ 真要命~ 好吧~ 今天难得有点时间, 就一次过帮大家解决一下疑难 , 大不了我晚点睡好了~ 哈~ ( 说得多伟大~ 哈哈~ )=====================================首先是网友 BENTON 的问题 ~问题是 … 其实我不太懂你意思~ 哈~不过, 如果按照我的理解, 你是想利用 VBA 来进行数据分类吧~ 如果单是这样的话 , 多条件的选择方法和使用方法之前有教过了, 所以要麻烦你找一找啰~ 不过按照惯例 , 不给一点提示好像不是我的作风吧~ 哈哈~ 好~ 就给你一些提示吧 , 如果我们要利用 VBA 的程序代码来叫计算机帮我们选择数据 , 我们用的程序代码是 IF ~ Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-33303247029356252452009-07-22T01:39:00.001+08:002009-07-22T01:41:52.566+08:00問題回應 – 久別重逢篇~呵呵呵呵 ~ 大家好哦 ~ 我想大家都沒有忘記我吧 XD ( 希望如此好了 ~ XD )最近工作太忙了, 都完全沒時間打理博客 ~ 稍後又要進修 , 嗯 … 還有一段忙碌日子等著我呢~ 真要命~ 好吧~ 今天難得有點時間, 就一次過幫大家解決一下疑難 , 大不了我晚點睡好了~ 哈~ ( 說得多偉大~ 哈哈~ )=====================================首先是網友 BENTON 的問題 ~問題是 … 其實我不太懂你意思~ 哈~不過, 如果按照我的理解, 你是想利用 VBA 來進行資料分類吧~ 如果單是這樣的話 , 多條件的選擇方法和使用方法之前有教過了, 所以要麻煩你找一找囉~ 不過按照慣例 , 不給一點提示好像不是我的作風吧~ 哈哈~ 好~ 就給你一些提示吧 , 如果我們要利用 VBA 的程式碼來叫電腦幫我們選擇資料 , 我們用的程式碼是 IF ~ Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-63524124390996255912009-06-03T02:54:00.001+08:002009-06-03T02:54:19.907+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何利用变量选择储存格~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.你懂得怎样使用变量吧 ~ ( 如果你还未懂的话 , 请看看我的教学文章吧 , 有说明过的 ~ 嗯 … 好像在某一编里面吧 … 忘了 ~ 哈哈 ~ )变量的用途有多广泛 , 相信不用我说你都应该知道了 ~ 既然它的用途这么广泛 , 那为什么不用来控制想要选择的储存格呢 ? 看一下程序代码 :==================TempVar = 10Worksheets("Sheet2").Range("A" & TempVar).Select==================你可以看到的是 , 我先设定了 TempVar 这个变量的值是 10 , Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-20105166768592543882009-06-03T02:42:00.000+08:002009-06-03T02:53:21.143+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何利用變量選擇儲存格~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.你懂得怎樣使用變量吧 ~ ( 如果你還未懂的話 , 請看看我的教學文章吧 , 有說明過的 ~ 嗯 … 好像在某一編裡面吧 … 忘了 ~ 哈哈 ~ )變量的用途有多廣泛 , 相信不用我說你都應該知道了 ~ 既然它的用途這麼廣泛 , 那為什麼不用來控制想要選擇的儲存格呢 ? 看一下程式碼 :==================TempVar = 10Worksheets("Sheet2").Range("A" & TempVar).Select==================你可以看到的是 , 我先設定了 TempVar 這個變量的值是 10 , Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-28310660916965771572009-06-02T00:54:00.000+08:002009-06-02T00:55:09.577+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何删除储存格 / 行 / 列~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 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========Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-70910453876178053542009-06-02T00:53:00.000+08:002009-06-02T00:54:24.684+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何刪除儲存格 / 行 / 列~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 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==========Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-60836794708362345322009-06-01T01:03:00.001+08:002009-06-01T01:03:59.825+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何打印文件~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.如果你有跟着我贴出的教学文章来做 , 那这个东西你就一定懂了 ~ 不过为了方便我 … … 骗显示量 ~ 哈哈 ~ 那就没办法都要再贴一次了 ~ 哈哈 ~ ==================Worksheets("Sheet1").SelectWorksheets("Sheet1").PrintOut , copies:=1==================就这个 ~ 嗯 ~ PrintOut 是给计算机的打印指令 , 而后面的 copies:=1 就是打印的份数 , 这里的是 1 次 , 当然 , 你可以改成你需要的次数的 ~ OK ~哗 ~~~Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-87349644961347002802009-06-01T01:01:00.000+08:002009-06-01T01:02:13.900+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何打印文件~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.如果你有跟著我貼出的教學文章來做 , 那這個東西你就一定懂了 ~ 不過為了方便我 … … 騙顯示量 ~ 哈哈 ~ 那就沒辦法都要再貼一次了 ~ 哈哈 ~ ==================Worksheets("Sheet1").SelectWorksheets("Sheet1").PrintOut , copies:=1==================就這個 ~ 嗯 ~ PrintOut 是給電腦的打印指令 , 而後面的 copies:=1 就是列印的份數 , 這裡的是 1 次 , 當然 , 你可以改成你需要的次數的 ~ OK ~嘩 ~~~ Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-54464801672836736482009-05-15T01:51:00.000+08:002009-05-15T01:52:04.967+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何设定储存格的对齐方式~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.要说明储存格的对齐方式的话 … 嗯 … 的确很烦 … 烦得要死 ~ 先看一下下面的程序代码 ~================== Range("A1").Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-7742079266749765915.post-88350915446226673952009-05-15T01:35:00.000+08:002009-05-15T01:50:54.278+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何設定儲存格的對齊方式~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.要說明儲存格的對齊方式的話 … 嗯 … 的確很煩 … 煩得要死 ~ 先看一下下面的程式碼 ~================== Range("A1").Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-7742079266749765915.post-11360032977934540462009-05-14T01:36:00.001+08:002009-05-14T01:41:11.515+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何保护工作簿或页面与解除保护~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.嗯 … 保护的英文是什么 ? 你知道吗 ?嗯 … 这个问题太简单了吧 ~ 哈哈 ~ 不可能不知道了 ~ 就是 Protect嘛 ~ 那么 , 不保护又是什么呢 ?嗯 … 不保护好像有点不够贴切 , 那么 … 解除保护的英文会是什么呢 ? 很简单嘛 ~ 简单得很 , 就是前面加上 UN 的 PROTECT , UnProtect 了. 这个说明了什么 ? 这就说明了 … … 嘿嘿嘿 … … 嘿嘿嘿 … 我懂英文 ~ 哈哈哈哈 ~好了 ~ 回到问题上吧 ~ 正如刚才所说 , 保护和解除保护是 Protect 和 UnProtect , 在 VBA 的程序Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-24636512995713824932009-05-14T01:35:00.001+08:002009-05-14T01:41:00.232+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何保護工作簿或頁面與解除保護~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.嗯 … 保護的英文是什麼 ? 你知道嗎 ?嗯 … 這個問題太簡單了吧 ~ 哈哈 ~ 不可能不知道了 ~ 就是 Protect嘛 ~ 那麼 , 不保護又是什麼呢 ?嗯 … 不保護好像有點不夠貼切 , 那麼 … 解除保護的英文會是什麼呢 ? 很簡單嘛 ~ 簡單得很 , 就是前面加上 UN 的 PROTECT , UnProtect 了. 這個說明了什麼 ? 這就說明了 … … 嘿嘿嘿 … … 嘿嘿嘿 … 我懂英文 ~ 哈哈哈哈 ~好了 ~ 回到問題上吧 ~ 正如剛才所說 , 保護和解除保護是 Protect 和 UnProtect , 在 VBA 的Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-78182639573790165892009-05-13T01:34:00.001+08:002009-05-13T01:34:32.444+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何插入储存格 / 行 / 列~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.什么都不说 ~ 直接看程序代码 ~ ================== Rows("A1").Select Selection.Insert Shift:=xlToRight Rows("A1").Select Selection.Insert Shift:=xlDown==================搞定 ~ 什么 !? 还不懂 ? 怎么会啦 ~ 很简单的嘛 ~ 一个是储存格右移 , 另外一个是储存格下移 ~ 行了 ~ 呵呵呵呵 ~ ================== Rows("1:1").SelectUnknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-60413724044358988222009-05-13T01:32:00.000+08:002009-05-13T01:33:45.045+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何插入儲存格 / 行 / 列~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.什麼都不說 ~ 直接看程式碼 ~ ================== Rows("A1").Select Selection.Insert Shift:=xlToRight Rows("A1").Select Selection.Insert Shift:=xlDown==================搞定 ~ 什麼 !? 還不懂 ? 怎麼會啦 ~ 很簡單的嘛 ~ 一個是儲存格右移 , 另外一個是儲存格下移 ~ 行了 ~ 呵呵呵呵 ~ ================== Rows("1:1").Select Unknownnoreply@blogger.com2tag:blogger.com,1999:blog-7742079266749765915.post-3232215135603119212009-05-12T01:35:00.000+08:002009-05-12T01:36:10.657+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何进行数据排序~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 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 _ :=Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-89725198508543786262009-05-12T01:34:00.001+08:002009-05-12T01:34:23.741+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何進行資料排序~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 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 _ :=Unknownnoreply@blogger.com2tag:blogger.com,1999:blog-7742079266749765915.post-26845830996802151842009-05-11T01:40:00.000+08:002009-05-11T01:41:53.149+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何做新建的档案 , 按照自动流水号存盘~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.先告诉我 ~ 另存新档的英文是什么 ~ 什么 ? 不知道 ? 没可能吧 ~ 忘了 ? 别骗我好不好 … 好吧 ~ 我输了 ~ 我来告诉你好了 ~ 就是 SAVE AS ~ 想起来了吧 ~程序代码跟新增档案的差不多 , 程序代码就这个 :==================ActiveWorkbook.SaveAs Filename:="c:\abc"==================看到了吗 ? 又是 SAVE AS ~ 没分别的 ~ 呵呵呵呵 ~ 后面的 FILE NAME 部份是指定了档案保存的位置和文件名称 , 这就是利用 Excel Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-37283123627924046772009-05-11T01:37:00.001+08:002009-05-11T01:40:13.800+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何做新建的檔案 , 按照自動流水號存檔~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.先告訴我 ~ 另存新檔的英文是什麼 ~ 什麼 ? 不知道 ? 沒可能吧 ~ 忘了 ? 別騙我好不好 … 好吧 ~ 我輸了 ~ 我來告訴你好了 ~ 就是 SAVE AS ~ 想起來了吧 ~程式碼跟新增檔案的差不多 , 程式碼就這個 :==================ActiveWorkbook.SaveAs Filename:="c:\abc"==================看到了嗎 ? 又是 SAVE AS ~ 沒分別的 ~ 呵呵呵呵 ~ 後面的 FILE NAME 部份是指定了檔案保存的位置和檔案名稱 , 這就是利用 Excel VBA Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-21759857710242745882009-05-08T01:35:00.001+08:002009-05-08T01:35:30.840+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何变更页面名称的颜色标记~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.如果你习惯用不同的颜色来作为不同页面的标记 , 你可能已经觉得 , 每次用人手自己更改颜色实在是一件麻烦事 , 当然 , 我也是一样 , 最怕麻烦 ~ 哈哈 ~ 既然 VBA 的功能可以做得那么广泛 , 那改变面页标签颜色这件事又会有什么难度 ~==================Worksheets("SHEET1").Tab.ColorIndex = 10Worksheets("SHEET1").Tab.ColorIndex = xlColorIndexNone==================第一句最尾的数字是代表什么颜色嘛 ~ 这个你可要Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-25078968307482835862009-05-08T01:33:00.000+08:002009-05-08T01:34:07.283+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何變更頁面名稱的顏色標記~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.如果你習慣用不同的顏色來作為不同頁面的標記 , 你可能已經覺得 , 每次用人手自己更改顏色實在是一件麻煩事 , 當然 , 我也是一樣 , 最怕麻煩 ~ 哈哈 ~ 既然 VBA 的功能可以做得那麼廣泛 , 那改變面頁標籤顏色這件事又會有什麼難度 ~==================Worksheets("SHEET1").Tab.ColorIndex = 10Worksheets("SHEET1").Tab.ColorIndex = xlColorIndexNone==================第一句最尾的數字是代表什麼顏色嘛 ~ 這個你可要Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-57458711322209025042009-05-07T01:43:00.001+08:002009-05-07T01:43:52.181+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何插入图片~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.这个技术并不常用 , 嗯 … 对我来说是肯定的 ~ 因为根本就没需要把图片放到报表内 , 我的报表有数据和图表就可以了 ~ 不过嘛 ~ 又是那句话 , 骗一个页面显示量也不为过吧 ~ 哈哈 ~ ================== ActiveSheet.Pictures.Insert( _ "C:\Documents and Settings\Admin\My Documents\My Pictures\abc.jpg").Select==================这就可以了 ~ 不用我再解释了吧 ~ 哈哈 ~嗯 … … Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-43666959918395238382009-05-07T01:42:00.000+08:002009-05-07T01:43:12.188+08:00Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何插入圖片~ 聲明事項 ~如各位想把以下本文章轉貼 , 請記得要注明出處.本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.由於圖片製作需時, 所以更新會比較慢.存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.這個技術並不常用 , 嗯 … 對我來說是肯定的 ~ 因為根本就沒需要把圖片放到報表內 , 我的報表有數據和圖表就可以了 ~ 不過嘛 ~ 又是那句話 , 騙一個頁面顯示量也不為過吧 ~ 哈哈 ~ ================== ActiveSheet.Pictures.Insert( _ "C:\Documents and Settings\Admin\My Documents\My Pictures\abc.jpg").Select==================這就可以了 ~ 不用我再解釋了吧 ~ 哈哈 ~嗯 … … Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7742079266749765915.post-36857190602312474832009-05-06T01:41:00.000+08:002009-05-06T01:42:09.634+08:00Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何自动调整行高列宽~ 声明事项 ~如各位想把以下本文章转贴 , 请记得要注明出处.本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.由于图片制作需时, 所以更新会比较慢.存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.这个嘛 ~ 好像没什么值得特别注意的 , 就两句简单的程序代码就搞定了 ~ ================== Columns("A:A").EntireColumn.AutoFit Rows("1:1").EntireRow.AutoFit==================嗯 … 完了 ~ 哈哈 ~ 对呀 ~ 没骗你呀 ~ 就是这么简单了 ~ 只要留意一下程序代码分别是 COLUMN 和 ROW 的分别 , 然后就是加多一个 AUTO FIT 进去 ~ 这就搞定了 ~ 哈哈 ~Unknownnoreply@blogger.com0