[發問] VLookup Vba用法

ziv976688

想將下列的函數公式化為程式碼~
.[A4:A10].Formula = "=IF(A$1="""","""",VLOOKUP(A$1,DATA!$A:$H,ROW()-2,))": .[A4:A10] = .[A4:A10].Value    '列132
現改為程式碼
If .Cells(1, 1) <> "" Then .Range("A4:A10") = Application.VLookup(.Range("A1"), Sheets("DATA").Range("A:H"), Row() - 2, 0)    '列133

但列133產生偵錯

下載 (120.6 KB)

2021-9-30 06:41

請問：正確語法應該如何編寫？
懇請各位大大賜教。謝謝！

TEST_0930.rar (272.02 KB)

下載次數: 10

2021-9-30 06:42

ziv976688

回復 15# samwang
測試結果 :
問題1 :
列147 改為    Crr = .Range("c2:ay16"): Arr = .Range("c47:ay" & R): n = 0
問題已解決

問題2 :
因為細查後~發現BUG出在  .Font.Name = "Verdana" '字體；
而我所需要的是 .EntireColumn.AutoFit  '自動欄寬 (Sheets("Sheet1")預先設定的"自動欄寬"~無效~因為每期的欄寬是浮動不定的)
如貴建議~將 .Font.Name = "Verdana" '字體移除
問題已解決

謝謝您的耐心指導和熱心幫忙~受益良多~感恩

samwang

回復 14# ziv976688


問題1: >> 已更新，如附件，請測試看看，謝謝。

問題2：
7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)的列191~列197程式碼不能執行~
如果執行~會在列195自動欄寬產生"偵錯"~然後無法關閉檔案~會當機~必須強制重新開機
>> 問題2，我測試沒問題，另外列191~197(版面設定)，後學認為是多餘的可以移除，
因為後面程式列200 是將整個原來檔案格式整個copy ，然後另存新檔，所以不用再每次重新設定，
清除舊資料時，需用.ClearContents，不可用.Delete(原格式設定清除)，謝謝

ziv976688

回復 12# samwang
TEST_1004.rar (325.22 KB)

下載次數: 3

2021-10-4 06:39

不好意思，最後2個問題~勞駕您賜正~謝謝您

問題1：
7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)執行後的效果檔~
統計"0"的個數~在C26都會固定多1個(以7T_搜尋(統)字檔(主檔)_0930(C2_C26=fx)的效果檔比對)~
請詳見：7T前3大&小_0_1902期_100_7個_1次(C26=VBA效果檔)；7T前3大&小_0_1902期_100_14個_1次(C26=VBA效果檔)
PS：如果您要測試14個檔案的話~請將另7個7RA統的檔案，置入子資料夾內後~再執行(主檔)即可。

問題2：
7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)的列191~列197程式碼不能執行~
如果執行~會在列195自動欄寬產生"偵錯"~然後無法關閉檔案~會當機~必須強制重新開機

備註：
如果將7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)的
列3改為
Dim Path As String, A, Ar(1 To 1000, 1 To 2), Arr, Brr(1 To 7), Crr, T, i&, j& ', n%, ci%, cj%, ai%
列142~列145改為執行
列147~列176改為註解
列191~列197改為執行
即=7T_搜尋(統)字檔(主檔)_0930(C2_C26=fx)，
則列191~列197的程式碼就可以執行。

以上   懇請賜教。謝謝您    

ziv976688

回復 12# samwang
OK了
謝謝您的耐心指導和熱心幫忙~受益良多~感恩

samwang

回復 11# ziv976688

只要有嘗試寫，就會有進步，修改如下，請測試看看，謝謝
        If Arr(i, j) = 0 Then
            n = n + 1: Arr(1, j) = n
        ElseIf Arr(i, j) > 0 And n = 0 Then
           Arr(1, j) = "V"
        End If

ziv976688

回復 8# samwang
參考   http://forum.twbts.com/thread-23380-1-1.html   8#的貴解~
將If Arr(i, j) = 0 Then n = n + 1: Arr(1, j) = n Else Arr(1, j) = "V": GoTo 100]    '列167
改為
    If Arr(i, j) = 0 Then n = n + 1    '列167
    If n > 0 Then Arr(1, j) = n Else Arr(1, j) = "V": GoTo 100    '列168
跑出來的答案是正確的。
但不知道這樣改對不對 ? (沒有自信)

以上  懇請賜正
謝謝您

ziv976688

回復 8# samwang
請參考本新附件範例即可
TEST_1002_V2.rar (331.41 KB)

下載次數: 5

2021-10-2 19:27

C26 : AY26的補充說明 :
.[c26].Resize(1, 49)的搜尋範圍=.Range("c51:ay" & R)；統計範圍=由c51起始，每跳17列的儲存格。

.[c26:ay26]顯示的數字或文字的程式邏輯~
以統計範圍的各個單欄為各統計標的~
當某單欄全部=""時，則該欄的第26列儲存格顯示""。
EX1 : C欄的統計範圍全部=""；則C26=""
EX2 : E欄的統計範圍全部=""；則E26=""
其餘......類推。

當某單欄只要有顯示="0"的數字時，則將該欄有顯示="0"的總個數，填入第26列儲存格。
EX 1 : W 欄的統計範圍之W51有顯示0；則W26=1
EX 2 : AC欄的統計範圍之AC85有顯示0；則AC26=1

當某單欄都沒有顯示="0"的數字；但有顯示其它>0的數字時，則在該欄第26列儲存格，填入"V"。
EX 1 : D欄都沒有顯示="0"的數字；但D136=2，則D26=V
EX 2 : F欄都沒有顯示="0"的數字；但F119=1和F136=2，則F26=V
其餘......類推。
詳如附件 : 7T前3大&小+0_0_1894期_100_6個_1次(需求效果檔)

目前效果檔的 W26=V~其答案有誤~
因為W51有顯示0
所以W26答案應為1


以上   懇請賜正
謝謝您 !

ziv976688

回復 8# samwang
不好意思，依照您的說明操作，按執行鍵後~得如下偵錯點圖片~

下載 (105.8 KB)

2021-10-2 10:23

再按F8~沒有反應

因為是初次操作如上的步驟，我也不知道步驟對不對?更不知道如何逐段偵錯~
所以乾脆將"版面格式"的程式碼全段改為註解~
再按執行鍵~可以正常而得到結果了。

測試結果 : W26有誤~答案應為 1
因為W51= 0
詳如附件範例 : TEST_1002.rar (88.91 KB)

下載次數: 0

2021-10-2 10:43

以上  懇請賜正
謝謝您

samwang

回復 7# ziv976688


測試好幾次，都在   .EntireColumn.AutoFit    '列172處中斷~如圖片
>> 我測試沒問題，請看附件，可以先設中斷點在'列172的前面幾個，然後執行程式到中斷點後再按F8去偵測除錯，
請再測試看看，謝謝