12
返回列表 上一主題 發帖

[發問] VLookup Vba用法

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
7# 跳轉到 »
發表於 2021-10-2 00:17 | 只看該作者
本帖最後由 ziv976688 於 2021-10-2 00:38 編輯

回復 6# samwang
不好意思 ，測試未達結果~
測試好幾次，都在   .EntireColumn.AutoFit    '列172處中斷~如圖片

如果將  .EntireColumn.AutoFit  改為註解後~
再點執行~螢幕會變黑屏~檔案也關不掉~只能強制重新開機後~再測試~測試好幾次，都是如此

懇請賜正
謝謝您

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
6#
發表於 2021-10-1 21:21 | 只看該作者
回復 5# ziv976688

末學尚有3個函數公式，想轉化為程式語法~
>> 如附件，26列的最小=0 的個數答案與你的效果檔有差異，請再確認您的條件需求為何? 謝謝

7T_搜尋(統)字檔(主檔)_1001.zip (37.55 KB)

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
5#
發表於 2021-9-30 20:16 | 只看該作者
回復 3# samwang
不好意思~末學尚有3個函數公式，想轉化為程式語法~
詳如範例附件 :   TEST_0930_V1.rar (279.76 KB)

以上   懇請賜教。謝謝您！   

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
4#
發表於 2021-9-30 13:46 | 只看該作者
本帖最後由 ziv976688 於 2021-9-30 14:15 編輯

回復 2# samwang
測試成功
多學一招(原來Row( )，必須以 i = 4 To 10來表達)
謝謝您的指導~感恩

回復 3# samwang
只是想學習函數公式如何轉化為程式語法~
由函數公式比對程式碼~末學較能消化語法的意義。
謝謝您

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
3#
發表於 2021-9-30 12:58 | 只看該作者
回復 1# ziv976688


.[A4:A10].Formula = "=IF(A$1="""","""",VLOOKUP(A$1,DATA!$A:$H,ROW()-2,))": .[A4:A10] = .[A4:A10].Value    '列132
>> 請問原來那個'列132不是可以用嗎? 為何要改?

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2021-9-30 10:01 | 只看該作者
回復 1# ziv976688


If .[a1] <> "" Then For i = 4 To 10: .Cells(i, 1) = Application.VLookup(.Range("A1"), Sheets("DATA").Range("A:H"), i - 2, 0): Next

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
12
返回列表 上一主題