返回列表下一主題上一主題發帖

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

boomf2

小學生 Rank: 1

帖子: 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)

樓主熱帖

boomf2

小學生 Rank: 1

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

論壇贊助勳章

2^#

發表於 2019-12-2 15:14 | 顯示全部帖子

謝謝你
想問一下,有方法可以不指定workbook2.xlsm嗎? 因為我檔案名會經常變更.
另外, .End(3).Row 是什麼意思呢?

Windows("Workbook2.xlsm").Activate
r = [a65535].End(3).Row

複製代碼

TOP

boomf2

小學生 Rank: 1

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

論壇贊助勳章

3^#

發表於 2019-12-2 17:25 | 顯示全部帖子

FilePath = ThisWorkbook.FullName

FileOnly = ThisWorkbook.Name

PathOnly = Left(FilePath, Len(FilePath) - Len(FileOnly))[/b]

Application.ScreenUpdating = False

Source1 = Application.GetOpenFilename

X = InputBox

Workbooks.Open Source1

[b]Windows("FileOnly").Activate[/b]

R = [a65535].End(3).Row
複製代碼
加了以上粗體的CODE...可是不行.有大大可以幫忙嗎