問題回應 – 久別重逢篇~

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

呵呵呵呵 ~ 大家好哦 ~ 我想大家都沒有忘記我吧 XD ( 希望如此好了 ~ XD )

最近工作太忙了, 都完全沒時間打理博客 ~ 稍後又要進修 , 嗯 … 還有一段忙碌日子等著我呢~ 真要命~

好吧~ 今天難得有點時間, 就一次過幫大家解決一下疑難 , 大不了我晚點睡好了~ 哈~ ( 說得多偉大~ 哈哈~ )

=====================================

首先是網友 BENTON 的問題 ~

問題是 … 其實我不太懂你意思~ 哈~

不過, 如果按照我的理解, 你是想利用 VBA 來進行資料分類吧~ 如果單是這樣的話 , 多條件的選擇方法和使用方法之前有教過了, 所以要麻煩你找一找囉~ 不過按照慣例 , 不給一點提示好像不是我的作風吧~ 哈哈~ 好~ 就給你一些提示吧 , 如果我們要利用 VBA 的程式碼來叫電腦幫我們選擇資料 , 我們用的程式碼是 IF ~ THEN ~ ELSE , 如果有多於一個的條件需要考慮的話 , 程式碼只要換成 : IF 什麼什麼 = 什麼什麼 AND什麼什麼 = 什麼什麼 THEN什麼什麼 ELSE什麼什麼 這就可以達成多條件的選擇了~

另外 , 關於平均數 , 不同性別的男女數量等等的問題 , 或者你可以考慮一下用函數式代替 VBA , 我相信這樣會快很多的~ 比如說 : =COUNTIF(I2:I36,"男") 或者是 =COUNTIF(I2:I36,"女") 這個應該很合用吧 XD

好, 你的最後一個問題 ~ 嗯 ~ 這個我看得懂 XD

其實啦~ 我的 VBA 技術沒什麼厲害的 , 只是比初學者多一點經驗而已 :) 我自己的學習方法是 , 多問多練習 , 隨便找個題目來做做看 , 做到了 , 成功感會讓你有無限的快感 , 遇到問題的時候就去問 , 很快就成了 :) 不過當然了 , 首先的條件是 : 你要先掌握 VBA 的基本概念 , 就是這樣了 :)

=====================================

接下來是網友 EV 的問題 , 我想 , 你的問題應該是 : 如何把 EXCEL 的資料來源設定為 SQL 資料庫內的東西吧~ 嗯 ~ 希望沒猜錯好了~ 哈哈~

其實這個我沒有研究過 , 因為對我來說 VBA 這傢伙用來統計資料 , 或者是做做文件就已經很足夠了 ~ 不過當然囉~ 如果你找到方法的話 , 請告訴我一下 XD 等我也研究研究 ~ XD

=====================================

好~ 最後一個是 網友 KEN 的~

嗯 ~~~ 看上去蠻長的 , 其實 … 嘿嘿嘿 ~ 耍帥時間到~~~ 哈哈哈哈~

首先 , 我看到你的程式碼 , 要怎樣解釋會易懂一點呢 ~ 嗯 … 讓我想一想 ~

嗯 … 算了 … 給你一個 DEMO 吧~

Worksheets("Sheet1").Select
Columns("A:B").Select
Selection.Copy
Worksheets ("Sheet2").Select
Columns("A:A").Select
ActiveSheet.Paste

比較一下有什麼分別吧 :) 首先 , 我在最初的教學文章有說過了 , 電腦其實是蠻笨的 , 那到底有多笨呢 !? 看一下上面的程式碼就大概看得出來了 XD

首先要告訴它 , 在那裡找資料 , 之後是選擇那個資料 , 之後是複製 , 然後 , 找目標工作頁出來 , 然後是位置 , 然後才貼 , 就這樣簡單的工作都要寫得那麼清楚 , 不叫笨叫什麼 ~ 哈哈~

你的程式碼是我們大家都看得懂的指令 , 但是對於電腦來說就完全搞不懂了 ~ 上面的幾句程式碼 , 有指明要電腦找到目標位置再做下一步, 但是你的程式碼就欠了這個動作 , 我們當然看的懂囉~ 人的腦袋不知要比電腦的利害多少倍 , 所以我們一看就明白要做的是什麼 , 但是電腦太笨 , 它不懂 , 所以就把責任推到你的身上來 , 說你的指令有問題囉 ~

=====================================

好~ 問題解決完了~ 應該要睡了~ 明天還要跟我的工作拼個你死我活的 , 又要準備進修的事 … 忙死了忙死了 ~ XD

哦 ~ 還有一件事 ~ 我還會盡力抽多一點時間回來的 , 有問題的話再拿來一起討論研究吧~ 等你哦 ~~~ 哈哈哈哈 ~

( 打廣告時間又來囉~~ 呵呵呵呵 ~~~ )

覺得我教的不錯的話 ~ 就多找幾個朋友一齊來學吧~ 哈哈~

覺得我這裡不錯的話 ~ 就記得要多點過來哦 ~

記得要多爬多回多討論 ~ ( 學習不就是這樣嘛 ~ XD )

請多多支持哦 ~

給網友 Becky2612 的問題回應

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 聲明事項 ~

如各位想把以下本文章轉貼 , 請記得要注明出處.

本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.

由於圖片製作需時, 所以更新會比較慢.

存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.

GOOD MORNING CLASS ~~~~ :P

哈哈 ~ 原來真的是蠻過癮的嘛 ~ 哈哈 ~

嗯 … 看到你的圖片 , 可以想像得到 , 原本的報表中 , 資料的排序方式是全部都放在欄A 的 , 而你的目的就是 , 先把資料進行分類 , 然後再排序 , 把資料並排方便查閱 . 嗯 , 我相信 , 現在最困難的地方是 , 如何利用 EXCEL VBA 進行資料分類以及排序吧 … 嗯 … 好像問題都只有這兩個吧 ~ 哈哈 ~ ( 嗯 … 此段純粹為了欺騙排版而寫的 ~ 嘿嘿嘿 ~ :P )

好 , 先簡單地說明一下我的解決方法 , 首先 , 我會先用人手查看有多少個貨品種類 ( 這是為了準備資料分類後的資料儲存位置做的準備 , 加上如果按照你給出來的圖片 , 類別應該不會太多吧~ ) , 然後是利用 EXCEL VBA 進行資料分類 , 再進行排序 .

好 , 先解決第一個問題吧 , 就是資料分類的問題 .

說實在的 , 這個問題比較困難 , 因為需要配合 EXCEL 的函數公式來協助 , 而函數式有多難以理解 , 我相信很多人都明白的 :P

先看一下圖片


( PicR1_1 )

圖片跟你給我的差不多吧 ~ 哈哈 ~ 要使電腦明白如何把資料進行分類 , 首先要告訴它 , 分類的條件是什麼 . 嗯 … 根據上面的圖片 , 你應該發現 , 我的資料跟你的資料的共通處是 , 貨物型號的編排方法是有固定規則的 , 如果細心留意一下 , 這些料號是在固定規則再加上一個流水號 , 如果要利用流水號進行資料分辨 , 這實在是不合理的行為 , 所以嘛 ~ 要解決這個情況的話 , 最好的就是利用固定規則安排的英文字代號來告訴電腦分類的條件 .

首先 , 先學習一下 , 怎樣把這個條件找出來吧 ~ 嗯 … 嗯 … 這個吧 … 這個應該 ok 的

=LEFT(A1,3)

=LEFT 這個函數其實很容易使用的 , 這傢伙的使用結果是 , 找出目標儲存格內的文字 , 由左到右的首 3 個字 , 嘿嘿嘿 ~ 很好很好 , 這個找條件的方法確實是好得很 :P ( 再說明一下 , 上面的函數式最後那個數字是可以更改的 , 現在是 3 , 但是你可以按照你的要求來更改 )

有了這個函數之後 , 第二個問題就是如何加進你的報表裡 .

Columns("C:C").Select
Selection.Insert Shift:=xlToRight

記得上面的程式碼嗎 ?

這就是加插一個新欄位的程式碼 , 加入一個新的欄位之後 , 嘿嘿嘿 ~ 問題來了 ~ 如何加入函數式到這欄的每一個位置 ~ ( 我所指的當然是欄 A 中有資料的位置囉 ~ )

嗯 , 對於這個問題 , 我先給你利用 EXCEL VBA 增加函數式到儲存格的程式碼吧 ~

Worksheets("Sheet1").Range("C1").Select
Worksheets("Sheet1").Range("C1").Formula = "=LEFT(A1,3)"

上面的程式碼就是把函數式增加到儲存格的方法 , 要注意的是 , 函數式是放在 “” 裡面的 , 如果在函數式裡出現了第二組的 “” , 那麼程式就會出現錯誤了 ~ 那時候便要改用 R1C1 的編寫方法 . 順道說明一下吧 , 如果上面的 =LEFT(A1,3) 函數式要改成 R1C1 的編寫方法的話 , 函數式就會變成=LEFT(R[-2]C[-2],3) , 嗯 ~ 看上去很複雜吧 ~ 其實也沒什麼大不了的 , R[-2]C[-2] 其實是座標來的 , 目前選擇了的儲存格座標就是 ( 0,0 ) , R 就是 Y 軸 , C 就是 X 軸 , 嗯 , 只是反轉了吧 , 很容易理解吧 , 對不 ~ 當然囉 ~ 這此不需要搞到這麼複雜的 ~ 就用上面那兩句程式碼就好 .

好 ~ 到我來考驗你了 ~ 嘿嘿嘿 :P

插入新一欄的方法有了 , 可以利用的函數式有了 , 現在就給你一個問題 , 如何把函數式貼在 C 欄的儲存格內 , 而貼上去之前 , 要先確定 A 欄的對應位置是有資料的 . 嘿嘿嘿 ~ 一點也不困難吧 :P , 給你一點提示 :

找到最後一個記錄的方法是 …..
FOR LOOP 迴圈的使用方法是 ……
選擇 … … 然後 …. … COPY …… 然後 ….. PASTE ……

嗯 … 提示滿多的嘛 ~ 哈哈 ~

好 ~ 資料的分辨方法有了 , 現在就來到了另一個部份 , 就是要告訴你的電腦 , 當條件成立就做什麼 . 嗯 … 這句話聽過很多次了吧 ~ 現在 , C 欄中的資料就是條件


( PicR1_2 )

當 條件 是 A , 就把儲存格 C2 的資料放到儲存格 F2 , B2 放到 G2 ,
當 條件 是 B , 就把儲存格 C2 的資料放到儲存格 H2 , B2 放到 I2 ,
當 條件 是 C , 就把儲存格 C2 的資料放到儲存格 J2 , B2 放到 K2 ,
當 條件 是 D , 就把儲存格 C2 的資料放到儲存格 L2 , B2 放到 M2 ,

此段程式碼就不提供了 , 提示就給多一點吧 XD

If Then Else … 嗯 … For Loop … 嗯 … 差不多了吧 ~ 哦 ~ 對了 , 還有 , 好好利用剛剛找出來的那個 “ 最後一個記錄的位置 ”

好 ~ 來到這個部份 , 資料分類就應該可以順利完成了 , 現在的問題是 , 如何把已分類好的資料弄得漂亮一點 , 要做這個動作 , 其實也是很簡單的嘛 ~ 只要利用 VBA 來進行資料排序就可以了 ~ 看一下圖片 :


( PicR1_3 )

排序後的結果應該就是你想要的東西吧 ~ 對嗎 ? 那就分享一下排序的 EXCEL VBA 程式碼是什麼東東吧 ~

Range("H2:I13").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal

上面的程式碼就是用作排序的程式碼 , 首先選擇了儲存格位置的 H2 到 I13 - Range("H2:I13").Select , 排序條件是儲存格 H2 - Selection.Sort Key1:=Range("H2") , 然後是進行遞增排序 - Order1:=xlAscending, … 嗯 , 其他的就先不管了 ~ 排序完成之後就可以做到你想要的效果了 ~

當然囉 ~ 我的這個樣本是 H2 到 I13 的儲存格 , 然而 , 你的報表中的最後一個記錄不可能是 13 吧 ~ 對不 ? 所以選擇的時候就要利用之前找出來的變量 ( 找出最後一個記錄的那個哦 ~ ) 來確定應該要被選擇的範圍 .

還記得嘛 ~ 要利用變量選擇儲存格的方法是 Range("H2:I" & XXX ).Select ~ OK !?

要做多少次排序的動作嘛 ~ 就要看你有多少個項目的資料被找出來了 ~ 當然 , 記得要小心修正程式碼哦 ~ 錯了的話就會浪費很多時間去除蟲 ( DEBUG ) 了 ~

==================

好了 ~ 問題基本上是解決了 ~ 而用的方法是最簡單最直接的方法 , 要配合人手先進行處理嘛 ~ 如果你細心想一想 , 有一些地方其實還有進化空間的 , 首先 , 我之前說過的 “ 先用人手查看有多少個貨品種類 ( 這是為了準備資料分類後的資料儲存位置做的準備 ) ” 這個問題 , 如果你想知道有多少個項目的話 , EXCEL 的進階篩選是可以做到的 , 在合適的情況下 , 進階篩選可以幫上不少忙呢~

還有其他部份可以再作加強的, 不過嘛 ~ 先留一些地方給你研究一下吧 XD

哦 ~ 還有 , 在程式設計的世界裡 , 解決問題的方法是肯定超過一種的 , 所以嘛 ~ 如果你想出來的方法跟我的不一樣都沒關係 , 只要做到目的就好了~ :)

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

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 聲明事項 ~

如各位想把以下本文章轉貼 , 請記得要注明出處.

本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.

由於圖片製作需時, 所以更新會比較慢.

存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.

接到很多朋友都在來到第十回的時候 , 出現的問題 “ 電腦顯示找不到物件 ” , 之前我實在是有點不明白的 , 到底為什麼大家都會出現 “ 找不到物件 ” 這個問題呢 ? 是程式碼出問題嗎 ?

經過我反覆 ~ 反覆 ~ 又再反覆 ~ 的測試 , 給果是程式碼沒有錯誤的 ~

但是 , 當我把我的程式碼貼出來之後 , 為什麼又會有朋友遇到同樣的問題呢 ? 難道我貼錯了其他的程式碼嗎 ?

終於 , 我想到了一個很簡單而又很重要的問題 ! 問題是 : 到底我有沒有提及過 , 模組的名稱這個問題呢 ?

如果大家有自己動手做過程式 , 應該會發現 , 只有在電腦真的找不到你要它找的東西 , 才會出現 “ 電腦顯示找不到物件 ” 這個問題的 , 一想到這一點 , 我的那個疑問就開始出來了 , 到底我有沒有說明過 , 模組名稱的問題呢 ? 如果你把我的程式碼貼到自己的程式碼內 , 很可能 , 你還是會遇到同樣的問題 , 有一個可能性 , 就是你的模組名稱還是 “ Module1” , 而我的模組名稱是 “ DataEntry ” ~


( PicX_1 )

我們現在再來了解一次 , 要使用儲放在不同模組中的程式碼時 , 所需要用的程式碼是什麼 ~

DataEntry.bbb

------------------
引用自第二回 – 對VBA 的基本認識

Sub abc() 和 End Sub 是告訴電腦那裡是開始和結束 , abc 只是一個名字 , 就正如你自己的名字 , 你可以把它改成 cde 或者是 asdf , 只要你喜歡就可以了 ( 只限初學階段 , 到了後期你要編寫大型或者很多個巨集同時執行的程式時 , 最好就是把 名稱 定義為一個一定看得懂而且跟程式有關係的名字 )

而中間的 Worksheets("Sheet1").Range("A1").Value = "100" 就是我們要電腦幫我們處理的東西 .

Worksheets("Sheet1") 是告訴你的電腦 , 你現在要的是這個 EXCEL 檔案中的 Sheet1 , 然後 Range("A1") 就是指 Sheet1 中的儲存格 A1 , value = "100" 就是指你想要的值 .

中間的一點 , 你可以把它當作中文字 " 的 " , 如果把這一個程式碼改成我們的文字 , 那麼你可以用以下的方式去理解 :

開始 程序abc

本工作表第一頁 [ Worksheets("Sheet1") ] " 的 " 儲存格 A1 [ Range("A1") ] " 的 " 值等於 100 [ Value = "100" ]

結束 程序abc

------------------

正如上面所提到的 , 程式碼的閱讀方法是把中程式碼中 , 中間的一點當成是 中文字 “ 的 ” , 所以 , 當電腦執行 DataEntry.bbb 這句的時候 , 目的就是要從模組 DataEntry 內找到程式碼 bbb 並且執行 , 如果電腦連 DataEntry 這個模組也找不到 , 那麼 , 它又如何能夠找到 bbb 這段程式碼呢 ?

當我想到這一點的時候 , 我想 , 大家遇到問題的原因 , 最有可能就是這個了 ~

------------------
引用自第八回 – 煩惱要開始了


之前已經做好了一個使用者介面 , 現在 , 我們要開始動手做一個模組了 , 增加模組的方法就跟增加使用者介面的第一步一樣 . 增加模組之後 , 就在屬性窗格內把 (Name) 的值改成 DataEntry 吧 , 這樣子是為了方便自己辨認 . ( 名字是可以隨你改變的 , 但是必須要以容易辨認來做大前提 )

------------------

有可能大家是忽略了這一段 , 嗯 … 再加上 ( Pic9_2 ) 中 , 模組名稱還是 module1 , 所以把大家都搞亂了 XD 不好意思哦 ~

哈哈~ 請大家試一試上面提到的東西 , 看看是不是能夠把問題解決掉 ~ 如果可以把問題解決掉的話就最好了 , 還是未能解決的話 , 請再告訴我 , 還有就是貼出你的程式碼給我看一下吧 XD ( 請貼在回應處 ~~ 謝謝 ~ )

閃 ~

免得被我可愛的讀者網友們追殺~ 哈哈~

謎之音 : 那你死定了 ~

拜託 ~ 我沒有思覺失調吧 ~ 怎麼老是出現謎之音 ~ 哈哈 ~

==================

題外話 :

最近忙著春節前的事 , 什麼都沒時間搞了 ~ 再加上原本要準備的一些教學文章資料又太多 , 不易整理 , 所以嘛 ~ 親愛的可愛的美貌與智慧並重的讀者網友們 ~ 請給我多一點時間哦 XD

很快就會出來了~ 信我吧~ 嗯 … 最起碼之前的三篇實用開發都沒有令你失望吧~ 哈哈 ~

雖然這次的第十回事件出了點意外…. 哈哈哈 ~~~~~~~~ 閃 ~~~~~