返回列表 上一主題 發帖

[發問] VBA讓用戶選擇vlookup的文件名,資料範圍欄數

boomf2

帖子
17 
主題
7 
精華
0 
積分
24 
點名
0  
作業系統
windwo10 
軟體版本
excel2013 
閱讀權限
10 
註冊時間
2017-1-7 
最後登錄
2023-2-18 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-12-1 19:11 | 只看該作者

[發問] VBA讓用戶選擇vlookup的文件名,資料範圍欄數

現時我在Workbook2.xlsx , Column J2:N2 內, vlookup Datebase.xlsx 的數據.

在空格N2使用VLOOKUP($A:$A,[Database.xlsx]Sheet1!$A:$F,2,0) 來回傳值.
而空格M3等於N2回傳資料範圍欄數+1  => VLOOKUP($A:$A,[Database.xlsx]Sheet1!$A:$F,3,0) 來回傳值.
而空格L3等於N2回傳資料範圍欄數+2  => VLOOKUP($A:$A,[Database.xlsx]Sheet1!$A:$F,4,0) 來回傳值.

Datebase.xlsx , <=每月名稱會有所不同 , 所以我想設置VBA詢問和選擇FILE位置.
Sheet1!$A:$F,2,0<= vlookup資料範圍欄數不一定是第2欄, 所以我想設置VBA詢問 需要回傳第幾欄數的資料  .
Sheet1!$A:$F<=每月範圍會固定 ,一定有columnA開始

可以解答一下嗎? 感激.:(

vlookup2.zip (24.86 KB)

收藏 分享

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2019-12-2 14:20 | 只看該作者
回復 1# boomf2

功力沒很好,試試看!!
Sub ex()
Application.ScreenUpdating = False
Source1 = Application.GetOpenFilename
x = InputBox("查詢位置")
Workbooks.Open Source1
Windows("Workbook2.xlsm").Activate
r = [a65535].End(3).Row
[N2].Resize(r - 1) = "=VLOOKUP(A2,[" & Dir(Source1) & "]Sheet1!A:F," & x & ",FALSE)"
[M2].Resize(r - 1) = "=VLOOKUP(A2,[" & Dir(Source1) & "]Sheet1!A:F," & x + 1 & ",FALSE)"
[L2].Resize(r - 1) = "=VLOOKUP(A2,[" & Dir(Source1) & "]Sheet1!A:F," & x + 2 & ",FALSE)"
Workbooks(Dir(Source1)).Close False
Application.ScreenUpdating = True
End Sub

我是用M2 & L2,如果要改為M3 & L3,請將M2 & L2改成M3 & L3即可
而空格M3等於N2回傳資料範圍欄數+1&nbsp;&nbsp;=> VLOOKUP($A:$A,[Database.xlsx]Sheet1!$A:$F,3,0) 來回傳值.
而空格L3等於N2回傳資料範圍欄數+2&nbsp;&nbsp;=> VLOOKUP($A:$A,[Database.xlsx]Sheet1!$A:$F,4,0) 來回傳值.

TOP

boomf2

帖子
17 
主題
7 
精華
0 
積分
24 
點名
0  
作業系統
windwo10 
軟體版本
excel2013 
閱讀權限
10 
註冊時間
2017-1-7 
最後登錄
2023-2-18 

論壇贊助勳章
3#
發表於 2019-12-2 15:14 | 只看該作者
謝謝你
想問一下,有方法可以不指定workbook2.xlsm嗎? 因為我檔案名會經常變更.
另外, .End(3).Row 是什麼意思呢?
  1. Windows("Workbook2.xlsm").Activate
  2. r = [a65535].End(3).Row
複製代碼

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
4#
發表於 2019-12-2 17:01 | 只看該作者
回復 3# boomf2

調整一下
Sub ex()
Application.ScreenUpdating = False
Source1 = Application.GetOpenFilename
x = InputBox("查詢位置")
r = [a65535].End(3).Row
[N2].Resize(r - 1) = "=VLOOKUP(A2,[" & Dir(Source1) & "]Sheet1!A:F," & x & ",FALSE)"
[M2].Resize(r - 1) = "=VLOOKUP(A2,[" & Dir(Source1) & "]Sheet1!A:F," & x + 1 & ",FALSE)"
[L2].Resize(r - 1) = "=VLOOKUP(A2,[" & Dir(Source1) & "]Sheet1!A:F," & x + 2 & ",FALSE)"
Application.ScreenUpdating = True
End Sub

End(3):end属性,3表示XLUP

TOP

boomf2

帖子
17 
主題
7 
精華
0 
積分
24 
點名
0  
作業系統
windwo10 
軟體版本
excel2013 
閱讀權限
10 
註冊時間
2017-1-7 
最後登錄
2023-2-18 

論壇贊助勳章
5#
發表於 2019-12-2 17:25 | 只看該作者
  1. FilePath = ThisWorkbook.FullName
  2. FileOnly = ThisWorkbook.Name
  3. PathOnly = Left(FilePath, Len(FilePath) - Len(FileOnly))[/b]

  5. Application.ScreenUpdating = False
  6. Source1 = Application.GetOpenFilename
  7. X = InputBox
  8. Workbooks.Open Source1
  9. [b]Windows("FileOnly").Activate[/b]
  10. R = [a65535].End(3).Row
複製代碼
加了以上粗體的CODE...可是不行.有大大可以幫忙嗎

TOP

boomf2

帖子
17 
主題
7 
精華
0 
積分
24 
點名
0  
作業系統
windwo10 
軟體版本
excel2013 
閱讀權限
10 
註冊時間
2017-1-7 
最後登錄
2023-2-18 

論壇贊助勳章
6#
發表於 2019-12-2 17:28 | 只看該作者
回復  boomf2

調整一下
Sub ex()
Application.ScreenUpdating = False
Source1 = Application.GetOp ...
jcchiang 發表於 2019-12-2 17:01



    成功了=] !!!!!

TOP

boomf2

帖子
17 
主題
7 
精華
0 
積分
24 
點名
0  
作業系統
windwo10 
軟體版本
excel2013 
閱讀權限
10 
註冊時間
2017-1-7 
最後登錄
2023-2-18 

論壇贊助勳章
7#
發表於 2019-12-3 13:56 | 只看該作者
當WORKBOOK/DATA多過3萬行時, 跑很慢...有方法改CODING SPEED UP嗎?

TOP

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