請問關於跨工作表vlookup的vba語法 - Excel程式區

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^# 跳轉到 »

發表於 2013-9-20 16:12 | 只看該作者

回復 13# e19821223
是期望如此嗎?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim data As Range, Y As Variant
Application.EnableEvents = False
If Not Intersect(Target, [A1:A10]) Is Nothing Then
' Set data = ['sheet2'!$A$1:B$25]
'Y = Application.VLookup(Target, data, 2, 0)
Y = Application.VLookup(Target, ['sheet2'!$A$1:B$25], 2, 0)
Target.Offset(, 1) = IIf(IsError(Y), "", Y)
End If
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

e19821223

小學生 Rank: 1

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

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2013-9-20 14:48 | 只看該作者

回復 11# GBKEE
我將檔案上傳了請G大有空過目一下謝謝

詢問.rar (13.84 KB)

TOP

e19821223

小學生 Rank: 1

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

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2013-9-20 13:59 | 只看該作者

回復 11# GBKEE

非常感謝G大的教導
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim data As Range
[color=Red] Dim x As Range
Dim y As Range[/color]
Application.EnableEvents = False
If Target.Address(0, 0) = "[color=Red]B1:B10[/color]" Then Exit Sub
With Range("[color=Red]B1:B10[/color]")
If Not .Find(What:="#N/A", LookIn:=xlValues) Is Nothing Then .Cells = ""
End With
Set data = ['sheet2'!$A$1:B$1000]
Y = Application.VLookup(X, data, 2, 0)
Application.EnableEvents = True
End Sub

複製代碼

測試以上的語法但好像還是不行正在尋思是否哪裡有衝突

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2013-9-20 11:43 | 只看該作者

本帖最後由 GBKEE 於 2013-9-20 11:44 編輯

回復 10# e19821223
是這樣嗎?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim data As Range
Application.EnableEvents = False
If Target.Address(0, 0) = "B1" Then Exit Sub
With Range("C13:C32")
If Not .Find(What:="#N/A", LookIn:=xlValues) Is Nothing Then .Cells = ""
End With
Set data = ['sheet2'!$A$1:B$1000]
[b1] = Application.VLookup([a1], data, 2, 0)
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

e19821223

小學生 Rank: 1

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

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2013-9-20 11:22 | 只看該作者

回復 9# GBKEE
再次謝謝G大
不過當在A輸入值時 B會出現"#N/A" 的情況(因為找不到值)
小弟我很單純的多加一個IF 語法如下:

If [c13:c32] = "#N/A" Then
[c13:c32] = ""
End If

複製代碼

恩..我不是很懂的看了我自己寫的也笑了...好像沒那麼單純..
根本無法執行...

再次請教G大了

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-9-20 11:07 | 只看該作者

回復 8# e19821223

If Target.Address(0, 0) = "B1" Then Exit Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

e19821223

小學生 Rank: 1

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

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2013-9-20 10:38 | 只看該作者

感謝O大的指教!
終於止住不運轉了!

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2013-9-20 09:20 | 只看該作者

回復 6# e19821223
VBA 說明

EnableEvents 屬性
請參閱套用至範例特定如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolean。

複製代碼

WORKSHEET_CHANGE 當使用者或外部連結變更工作表中的儲存格時發生此事件
[b1] = Application.VLookup([a1], data, 2, 0) ,會一直引發此事件.

Option Explicit
Private Sub WORKSHEET_CHANGE(ByVal Target As Range)
Dim data As Range
Application.EnableEvents = False
Set data = ['sheet2'!$A$1:B$1000]
[b1] = Application.VLookup([a1], data, 2, 0)
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

e19821223

小學生 Rank: 1

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

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2013-9-20 08:54 | 只看該作者

Private Sub WORKSHEET_CHANGE(ByVal Target As Range)
Dim data As Range
Set data = ['sheet2'!$A$1B$1000]
[b1] = Application.WorksheetFunction.VLookup([a1], data, 2, 0)
End Sub

複製代碼

以上的不能使用...當輸入後電腦變的超級慢 excel整個當掉
不知是否有更好的方式呢謝謝指教

TOP

e19821223

小學生 Rank: 1

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

論壇榮譽勳章論壇贊助勳章

5^#

發表於 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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]