12
返回列表 上一主題 發帖

[發問] 請問關於跨工作表vlookup的vba語法

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-16 12:12 | 顯示全部帖子

[發問] 請問關於跨工作表vlookup的vba語法

  1. Private Sub WORKSHEET_CHANGE()
  2. Dim data As Range
  3. Set data = ['sheet2'!$A$1:$B$10]
  4. [b1] = Application.WorksheetFunction.VLookup([a1], data, 2, 0)
  5. End Sub
複製代碼
以上是我爬論壇的文所寫出來的 想要在sheet1的a1:a10打上編號 則b1:b10參造a1:a10的編碼找尋sheet2的資料
但 卻出現了"無法取得類別 worksheetfanction的vlookup屬性"這訊息

煩請各位大大指教一下 該怎麼修正完善 非常感恩!
收藏 分享

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2013-9-17 08:51 | 顯示全部帖子
需要花時間研究 還是不是很懂 感謝G大的指教~

TOP

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2013-9-17 16:14 | 顯示全部帖子
感謝O大的回覆 我依照O大所打的 改成
Private Sub WORKSHEET_CHANGE(ByVal Target As Range)
Dim data As Range
Set data = ['sheet2'!$A$1B$10]
[b1] = Application.WorksheetFunction.VLookup([a1], data, 2, 0)
End Sub

可行了
可運作了
但出現了警告標語"堆疊空間不足" 不知道是什麼問題呢
還有 我今天 是用A1 B1
但 我若是想要在A1:A10 ,B1:B10都想要呈現 那 要打10次嗎?
我是非常新的新手..尚在學習 先感謝各位路過的高手的指教

TOP

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2013-9-20 08:54 | 顯示全部帖子
  1. Private Sub WORKSHEET_CHANGE(ByVal Target As Range)
  2. Dim data As Range
  3. Set data = ['sheet2'!$A$1B$1000]
  4. [b1] = Application.WorksheetFunction.VLookup([a1], data, 2, 0)
  5. End Sub
複製代碼
以上的不能使用...當輸入後電腦變的超級慢 excel整個當掉
不知是否有更好的方式呢 謝謝指教

TOP

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2013-9-20 10:38 | 顯示全部帖子
感謝O大的指教!
終於止住不運轉了!

不過 當執行此語法後 在B1的部分 就不能手動輸入了
有什麼辦法是可以說依然可以手動輸入呢?
再次麻煩了 非常感謝

TOP

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2013-9-20 11:22 | 顯示全部帖子
回復 9# GBKEE
再次謝謝G大
不過 當在A輸入值時 B會出現"#N/A" 的情況(因為找不到值)
小弟我很單純的多加一個IF 語法如下:
  1. If [c13:c32] = "#N/A" Then
  2. [c13:c32] = ""
  3.      
  4. End If
複製代碼
恩..我不是很懂的看了我自己寫的也笑了...好像沒那麼單純..
根本無法執行...

再次請教G大了

TOP

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
7#
發表於 2013-9-20 13:59 | 顯示全部帖子
回復 11# GBKEE
  1. 非常感謝G大的教導
  2. Option Explicit
  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     Dim data As Range
  5.    [color=Red] Dim x As Range
  6.     Dim y As Range[/color]
  7.     Application.EnableEvents = False
  8.     If Target.Address(0, 0) = "[color=Red]B1:B10[/color]" Then Exit Sub
  9.     With Range("[color=Red]B1:B10[/color]")
  10.         If Not .Find(What:="#N/A", LookIn:=xlValues) Is Nothing Then .Cells = ""
  11.     End With
  12.     Set data = ['sheet2'!$A$1:B$1000]
  13.     Y = Application.VLookup(X, data, 2, 0)
  14.     Application.EnableEvents = True
  15. End Sub
複製代碼
測試以上的語法 但 好像還是不行 正在尋思 是否哪裡有衝突

TOP

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
8#
發表於 2013-9-20 14:48 | 顯示全部帖子
回復 11# GBKEE
我將檔案上傳了 請G大有空過目一下 謝謝

詢問.rar (13.84 KB)

TOP

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
9#
發表於 2013-9-20 16:46 | 顯示全部帖子
哇! 是的 我就是要呈現如此 感謝G大的幫忙!
現在比較不懂的
If Not Intersect(Target, [A1:A10]) Is Nothing Then
Target.Offset(, 1) = IIf(IsError(Y), "", Y)
以上兩段的意思
不知是否能再煩請G大的解惑
抱歉 我知道我煩了點...

TOP

e19821223

帖子
20 
主題
2 
精華
0 
積分
30 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-11-7 
最後登錄
2014-12-27 

論壇榮譽勳章論壇贊助勳章
10#
發表於 2013-9-20 17:41 | 顯示全部帖子
G大 非常謝謝你!
我再多爬一下文 再次感謝您提供的資訊

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
12
返回列表 上一主題