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

　暱稱: VBA向前衝

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

9^#

發表於 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))

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

8^#

發表於 2010-11-23 13:34 | 只看該作者

vba有vba的方法，你在vba中勉強使用工作表函數速度就不能兼顧了！

　暱稱: VBA向前衝

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

7^#

發表於 2010-11-23 12:37 | 只看該作者

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

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

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-11-23 12:04 | 只看該作者

回復 5# hugh0620

If IsError(Application.VLookup(Sheet1.Cells(5, 9) & Sheet1.Cells(5, 10) & Sheet1.Cells(5, 14), Sheet2.Range("A4:I1000"), 9, False)) Then
wf = ""
Else
wf = Application.VLookup(Sheet1.Cells(5, 9) & Sheet1.Cells(5, 10) & Sheet1.Cells(5, 14), Sheet2.Range("A4:I1000"), 9, False)
End If

學海無涯_不恥下問

　暱稱: VBA向前衝

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

5^#

發表於 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) <---主要是不想讓活頁上帶出公式
但是這樣的處理方式,讓我在執行時跑起來要等待很久的時間

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-11-22 14:39 | 只看該作者

就如一樓的寫法沒錯的。看到二樓的紅字嗎？你就少個連接符。

　暱稱: VBA向前衝

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

3^#

發表於 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這個函數程式碼上該如何撰寫

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-11-22 12:38 | 只看該作者

語法
VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)
你的lookup_value為Sheet1.Cells(5, 9)& Sheet1.Cells(5, 10) & Sheet1.Cells(5, 14)三個儲存格合并起來的字符，table_array的第一欄就要有與這個字符相符的內容，不可以分開三個欄位放置。