2008年8月8日星期五

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

| |
~ 上傳‧分享‧網賺 ~
~ 免費上傳空間‧請即申請 Freak Share ~
~ 進入後請點選左上角 注冊 ! ~

~ 聲明事項 ~

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

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

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

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

Picture



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

好 ~ 來吧 ~ 記得上一次我說過的 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 的值 .

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

3 留言:

匿名 說...

以上例子是一個Invoice No. 內只有一種貨品. 請問如果Summary內各Invoice No.含有多種貨品及數量, 公式要如何修改才能令INVOICE頁面不會只顯示Ref#列(Row)之貨品, 而是顯示相對Invoice No.全部貨品名稱及數量??

威廉先生 說...

上述方法的確會遇到你所說的問題 , 由於 vlookup 的限制 , 要解決這個問題來達成你的要求 , 可以再收改些少東西 , 來配合 vba 程式的運作 .

基本上 , 我剛剛測試過使用可行性 , 確實是可以做到的 , 等我處理好圖片之後 , 就貼一篇教學出來吧 :)

匿名 說...

謝謝!! 耐心等待新教學篇:)

最新回應

Loading...

有事啟奏‧無事閒聊 ~ 哈 ~


米高積遜全復刻 哈利波特 Michael Jackson 妙麗 金曲獎 MJ 迈克尔杰克逊其实没有死!美国CBC电台已证实 哈利波特 hongkong168 蓮花河畔景苑 盧廣仲 鄧麗欣 不想放手New! 陳珊妮 方大同 巨乳排球 痞子英雄 23 東風 蕭閎仁 米高積遜全復刻 上海 倒塌 南王姐妹花 周杰倫 變形金剛2下載 michael jackson 去世 天文台 米高積遜 花拉科茜 天圖佈局 浪卡 耳廓狐 神探俏嬌娃 韶关旭日玩具厂 譚曉風 严妍 僧老少閒 地下天文台 金泰浩 百老匯 巨乳排球 陳振聰 柯柏文 aika 麥可傑克森