懶人計劃 1 - 自動製作文件 PART 04 - 改變函數公式 , 雛型出來了 ~ ( 繁體 )

~ 上傳‧分享‧網賺 ~

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

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

~ 聲明事項 ~

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

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

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

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

呵呵呵 ~ 很想我吧 ~ 還是掛念我的程式呢 ~ 哈哈 ~ 都不要緊 ~ 最重要的是結果 , 等我還是等程式碼都一樣 ~ 哈 ~

好 ~ 來吧 ~ 記得上一次我說過的 VLOOKUP 這個函數嗎 ?

VLOOKUP(B2,SUMMARY!$A$2:$S$65536,1,0)

就是利用 B2 儲存格的值在 SUMMARY 頁面找東西 , 現在我們要做的就是利用 VBA 程式 , 把 B2 這個儲存格的值改變 , 大家都應該有留意到 , A2 , A6 和 A10 的儲存格被我加了一點東西 , 分別是 " 單獨 " " 開始 " 和 " 完結 " .

這三個格記錄的是數字 , 什麼數字呢 ? 就是 SUMMARY 頁面裡面的 REF# ( 記錄編號 ) .

先把前一編教學中的函數公式 =IF(ISNA(VLOOKUP(B2,SUMMARY!$A$2:$S$65536,1,0)),"",VLOOKUP(B2,SUMMARY!$A$2:$S$65536,1,0)) 中的 B2 改成 A2 , 把尋找條件定義在 A2 儲存格的資料 .


( Pic4_1 )

留意一下 Pic4_1 這裡有很重要的資訊要注意 , 首先 , 上面的 VLOOKUP 函數找的都是 A 到 S 的第一行 , 但是 , 我們要的東西 , 所記錄的位置並不是全部都是第一行 , 所以一定要作出適當的修改 .

INVOICE NO. 的記錄位置是 SUMMARY 頁面的第二行 , INVOICE DATE. 是第三行 , 所以 , INVOICE 頁面中的儲存格 I2 和 I3 , 請分別加上 :

=IF(ISNA(VLOOKUP(A2,Summary!$A$2:$S$65536,2,0)),"",VLOOKUP(A2,Summary!$A$2:$S$65536,2,0)) 和

=IF(ISNA(VLOOKUP(A2,Summary!$A$2:$S$65536,3,0)),"",VLOOKUP(A2,Summary!$A$2:$S$65536,3,0))

之後 , 貨品名稱 ( C6 ) , 數量 ( D6 ) , 單價 ( E6 ) 和 總價 ( F6 ) 分別是 SUMMARY 頁面的 4 到 7 行 , 所以 , VLOOKUP 的函數公式又要作出修改 :

=IF(ISNA(VLOOKUP(A2,Summary!$A$2:$S$65536,4,0)),"",VLOOKUP(A2,Summary!$A$2:$S$65536,4,0))

=IF(ISNA(VLOOKUP(A2,Summary!$A$2:$S$65536,5,0)),"",VLOOKUP(A2,Summary!$A$2:$S$65536,5,0))

=IF(ISNA(VLOOKUP(A2,Summary!$A$2:$S$65536,6,0)),"",VLOOKUP(A2,Summary!$A$2:$S$65536,6,0))

=IF(ISNA(VLOOKUP(A2,Summary!$A$2:$S$65536,7,0)),"",VLOOKUP(A2,Summary!$A$2:$S$65536,7,0))

下面還有一個合計吧 ~ 那個就用 =SUM 函數好了 ~

現在 , 請在 SUMMARY 的頁面 , 加一個新的記錄上去 .


( Pic4_2 )

在 INVOICE 頁面的儲存格 A2 加上一個 1 字 .


( Pic4_3 )

看到了嗎 ?? 資料都跳出來了 , 我們要的就是這樣 , 輸入一次資料之後 , 就要電腦幫我找東西出來 , 不過我們沒可能每次都要先改變一次 A2 的數值再打印一次吧 ~ 所以我們就利用 VBA 來把這個值改變 , 改變的範圍就是由儲存格 A6 的值 到儲存格 A10 的值 .

下一回 , 我們就不廢話 ( 小一點吧 ~ 哈哈 ~ ) , 直接來寫程式 , 然後 , 就開始把你每天都在重複中步驟一次過消滅 ~