帖子: 175
主題: 8
精華: 0
積分: 207
點名: 277
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-7-14 19:29 | 只看該作者

[分享] VBA分享-效果蠻類似VLOOKUP查詢,只是可以兩欄互查

本帖最後由 infoverdad 於 2011-7-14 19:31 編輯

分享之前參考的VBA程式碼

效果蠻類似VLOOKUP查詢,只是可以兩欄互查。
B欄與C欄皆為資料驗證"清單"的方式
點選任一欄位, 則其對應的值會自動帶入

任填一欄帶入另一欄.rar (8.18 KB)

樓主熱帖

melvinhsu

小學生 Rank: 1

帖子: 14
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: WINDOWS
軟體版本: VISTA
閱讀權限: 10
註冊時間: 2010-9-10
最後登錄: 2015-1-6

論壇贊助勳章

25^#

發表於 2014-5-9 12:33 | 只看該作者

請問各位高手，在target 的用法，是如何使用

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兔年全勤獎章

24^#

發表於 2014-5-5 14:55 | 只看該作者

可是Exit Sub不是指離開這個事件嗎? 這樣整句解釋下來不就是等於選擇至少一個以上的儲存格就離開這個事件?
dryadf 發表於 2014/5/5 01:08

沒錯的

Private Sub Worksheet_Change(ByVal Target As Range)
'ByVal 選擇性引數。表示以傳值的方式來傳遞引數。
'Target : 變數名稱
'As Range : 型態為 Range物件
' Range 物件，該物件代表一個儲存格或儲存格範圍

複製代碼

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

TOP

dryadf

小學生 Rank: 1

帖子: 4
主題: 0
精華: 0
積分: 4
點名: 0
作業系統: Windows7
軟體版本: excel2003
閱讀權限: 10
註冊時間: 2014-5-1
最後登錄: 2014-5-9

23^#

發表於 2014-5-5 01:08 | 只看該作者

回復 22# GBKEE

感謝GKBEE版大的解答~~
忽然覺得自己好蠢，原來我問問題的方向錯了，因為我完全看錯了。
大概是看太久看到眼都花了，我一直以為您是寫 If Target.Count < 1 @@
所以我才會一直以為是為了避免出現Count小於1的狀況發生，原來根本不可能會有Count<1的情況....
真的是很抱歉~~:P

我之前有試過在find方法中把 If Target.Count > 1 Then Exit Sub拿掉測試，可是偵錯的功能沒有阻止我，整個程式還是執行的很開心，功能也都正常。
所以我才搞不懂那一段到底是什麼意思~~~
反倒是把 Application.EnableEvents = False跟 Application.EnableEvents = true拿掉，整個就開始暴走
我當下手足無措，還好按下Esc就停止了

這樣我就明白了，Count > 1是指至少選擇一個以上的儲存格
如果是這樣的話，您find方法內寫的是 If Target.Count > 1 Then Exit Sub
可是Exit Sub不是指離開這個事件嗎? 這樣整句解釋下來不就是等於選擇至少一個以上的儲存格就離開這個事件?
還是我理解錯誤呢?
想再求解一下~~
以上，再次感謝GBKEE版大肯費心為我解惑~~

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兔年全勤獎章

22^#

發表於 2014-5-4 15:15 | 只看該作者

回復 21# dryadf
1. 在您find方法內是寫if Target.Count > 1 Then Exit sub
A: 沒有Target.Count會小於1的, 為避免如下類似如下情況發生.試著 Find方法內去掉這段看看 if Target.Count > 1 Then Exit sub

Option Explicit
Sub Ex()
ActiveSheet.[A1:A10] = ""
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim E As Range
For Each E In Target
MsgBox E.Address
Next
End Sub

複製代碼

2. 在執行過您上面分享的Ex之後，我試著亂改裡面的程式看有什麼效果。
寫成<1的時候不是該代表我選擇一個以上的儲存格時，就能顯示正常的結果嗎?q
A:是>=1吧,代表我選擇一個以上的儲存格.

3. 您在Ex這段程式中用到了Option Explicit
如A 1 中沒Dim E As Range 系統會通知你要宣告變數.

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

TOP

dryadf

小學生 Rank: 1

帖子: 4
主題: 0
精華: 0
積分: 4
點名: 0
作業系統: Windows7
軟體版本: excel2003
閱讀權限: 10
註冊時間: 2014-5-1
最後登錄: 2014-5-9

21^#

發表於 2014-5-4 01:47 | 只看該作者

回復 18# GBKEE

感謝GBKEE版大的分享
所以Count就是計算儲存格的數量
可是這樣小弟又多了幾個疑問，不曉得GBKEE版大是否願意解惑

1. 在您find方法內是寫if Target.Count > 1 Then Exit sub
請問是在什麼情況之下Count才會小於1呢? 這樣寫是為了避免什麼情況發生呢?

2. 在執行過您上面分享的Ex之後，我試著亂改裡面的程式看有什麼效果。
然後我改成
Private Sub Worksheet_Change(ByVal Target As Range)

   if  Target.Count < 1 Then

      MsgBox Target.Count

   End If

End Sub
我主要是想試試看修改成您在find方法裡面的用法會有什麼效果
結果我發現<1的時候即便我選擇兩個以上的儲存格也不會執行MsgBox
除非是寫成=1，這樣選擇一個儲存格的時候可以正常的執行MsgBox
如果寫成<=1或>=1的時候，也只有在選擇一個儲存格的時候才能正常執行MsgBox
請問這是為什麼呢?
寫成<1的時候不是該代表我選擇一個以上的儲存格時，就能顯示正常的結果嗎?

3. 您在Ex這段程式中用到了Option Explicit
我用F1說明查到的是說Option Explicit是用來強制每個變數都一定要宣告
為什麼您在Ex中要特別加入這一段呢?
我試著把Option Explicit刪除，也是能夠正常運作，那加入這一段的用意是什麼呢?

小弟魯鈍，希望GBKEE版大能不吝賜教~~~~~謝謝~~

TOP

yen956