[發問] excel 函數應用在VBA 的問題

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2010-11-22 13:49 | 顯示全部帖子

語法
VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)
你的lookup_value為Sheet1.Cells(5 ...
oobird 發表於 2010-11-22 12:38

大大你講的這個我清楚,在excel 函數使用上沒有問題
問題在於寫在VBA上時,Vlookup這個函數程式碼上該如何撰寫

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

3^#

發表於 2010-11-23 11:36 | 顯示全部帖子

本帖最後由 hugh0620 於 2010-11-23 11:46 編輯

大大~ 您是對的~ 但我卻又延伸出一個問題

當我程式碼在跑的時候,如果遇到vlookup抓不到資料時,出現#N/A時
程式就會停止,請問大大該如何處理

在函數中是比較好處理就用if(iserror(vlookup(lookup_value,table_array,col_index_num,range_lookup),"",lookup_value,table_array,col_index_num,range_lookup)) 就可以將抓不到資料的部份,變成空格

若是我要在vba上處理,該如何做呢?? 請大大指導一下

在vba之前的處理方式,如下

Sheet1.Cells(4 + x, 48).Formula = "=IF(ISERROR(VLOOKUP(RC[-39]&RC[-38]&RC[-34],SBD!R3C1:R10000C9,9,FALSE)),"""",VLOOKUP(RC[-39]&RC[-38]&RC[-34],SBD!R3C1:R10000C9,9,FALSE))"
Sheet1.Cells(4 + x, 48) = Sheet1.Cells(4 + x, 48) <---主要是不想讓活頁上帶出公式
但是這樣的處理方式,讓我在執行時跑起來要等待很久的時間

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

4^#

發表於 2010-11-23 12:37 | 顯示全部帖子

感謝各位大大~ 問題已經解決了~

只是因為我的資料較大,這樣處理的訴度有點慢而已~

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2010-11-25 14:21 | 顯示全部帖子

回復 6# Hsieh

請問大大一個問題,大大的寫法是:Application.VLookup  為何不是Application.WorksheetFuncation.VLookup
                           因為我在編寫程式碼的時候,要編寫Application.WorksheetFuncation的時候,在點的時候才會出現函數的選單
               這兩者間的差異在哪呢?? 請大大教導一下,幫學習中的我解惑
               ps.我編寫的是WorksheetFuncation.函數,可是卻會產生錯誤
      If IsError(Application.VLookup(Sheet1.Cells(4 + X, 9) & Sheet1.Cells(4 + X, 10) & Sheet1.Cells(4 + X, 14), Sheet3.Range("A4:I15000"), 9, False))