返回列表 上一主題 發帖

[發問] 抓取資料庫對應值之方式請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-1-30 08:14 | 只看該作者

[發問] 抓取資料庫對應值之方式請教

DEAR ALL 大大
1.大家好想請問大家以下資料轉置該如何用vba完成
2.原始資料如下
(sheet1)
第一欄    第二欄
       A            
    A            
    B            
    B                           
    C
    .......           
(sheet2)
第一欄    第二欄                  
    A       1              
    B       2
    C       3   
   .....
3.SHEET1 之第二欄要抓取以 SHEET1之第一欄 A1-A66536為KEY 抓取對應 SHEET2之第一欄 A1-A66536之相同內容之SHEET2之第二欄
      對應值至 SHEET1之第二欄.
    3.1  已函數為例. SHEET1之第二欄 B1=INDIRECT("Sheet2!B"&MATCH(A1,Sheet2!A:A,0))
4.請問如何使用  VAB達成此需求  THANKS*10000
收藏 分享
羅

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
2#
發表於 2015-1-30 09:49 | 只看該作者
回復 1# rouber590324


    用 vlookup 就好了

VBA 就用 Worksheetfunction.vlookup

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2015-1-30 14:47 | 只看該作者
DEAR diolin  SIR
感謝指導.已完成  THANKS*1000

Private Sub Worksheet_Change(ByVal Target As Range)

With Target

If .Row >= 1 And .Column = 9 Then

  .Offset(0, 12) = Application.VLookup(.Value, Sheets("規格檔").[A1:E65536], 2, False)
  .Offset(0, 13) = Application.VLookup(.Value, Sheets("規格檔").[A1:E65536], 3, False)
  .Offset(0, 14) = Application.VLookup(.Value, Sheets("規格檔").[A1:E65536], 4, False)
  .Offset(0, 15) = Application.VLookup(.Value, Sheets("規格檔").[A1:E65536], 5, False)

End If

End With

End Sub
羅

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題