帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-5-30 14:23 | 只看該作者

[發問] 請問透過VBA雙向查詢，如何區別英文大小寫?，也就是字要完全一樣

如圖及附檔中，在儲存格C5及C6間進行雙向查詢，但只要遇到有大小寫時，不管是先大寫還是先小寫，第一次查詢完後欲再查詢第二次時，就不能查詢，請問各位高手如何讓它判別大小寫，謝謝您!

雙向查詢.rar (14.98 KB)

VBA程式：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range
If Intersect(Target, [C5:C6]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Set A = Columns("A:B").Find(Target, lookat:=xlWhole)
If A Is Nothing Then MsgBox
[C5] = Cells(A.Row, 1).Value
[C6] = Cells(A.Row, 2)
10
Application.EnableEvents = True
End Sub

樓主熱帖

peter460191

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

2^#

發表於 2013-5-30 15:18 | 只看該作者

本帖最後由 GBKEE 於 2013-5-31 10:29 編輯

回復 1# peter460191
VBA 的說明

Find 方法
套用至 Range 物件時用 Find 方法。
在範圍內尋找特定資訊，並傳回 Range 物件，該物件代表所找到的第一個包含所尋找資訊的儲存格。如果未發現符合的儲存格，就傳回 Nothing。本方法不影響指定範圍或目前儲存格。
關於在 Visual Basic 中使用 Find 工作表函數的詳細內容，請參閱在 Visual Basic 中使用 Microsoft Excel 工作表函數。
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
expression 必選。傳回 Range 物件的運算式。
What 必選的 Variant。要尋找的資料。可為字串或任意 Microsoft Excel 資料型式。
After 選擇性的 Variant。指定儲存格，尋找將從該儲存格之後開始。此儲存格對應於從使用者介面尋找時的使用中儲存格位置。注意 After 必須是尋找範圍中的單個儲存格。請記住尋找是從該儲存格之後開始的；必須等到該方法循環回到此儲存格時，才會搜尋其內容。如果未指定此引數，搜尋將從範圍的左上角儲存格之後開始。
LookIn 選擇性的 Variant資料類型。資訊的類型。
LookAt 選擇性的 Variant。可為下列 XlLookAt 常數之一：xlWhole 或 xlPart。
SearchOrder 選擇性的 Variant。可為下列 XlSearchOrder 常數之一：xlByRows 或 xlByColumns。
SearchDirection 選擇性的 XlSearchDirection 資料類型。搜尋的方向。
XlSearchDirection 可以是這些 XlSearchDirection 常數之一。
xlNext 預設值
xlPrevious
MatchCase 選擇性的 Variant。若指定為 True，則搜尋時大小寫視為相異。預設值為 False。
MatchByte 選擇性的 Variant。僅用於您選擇或安裝的雙位元語言支援版本。若指定為 True，就使雙位元組字元僅符合雙位元組字元。若指定為 False，則雙位元組字元可符合其等價的單位元組字元。
SearchFormat 選擇性的 Variant。搜尋的格式。

複製代碼

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

TOP

peter460191

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

3^#

發表於 2013-5-31 09:48 | 只看該作者

回復 2# GBKEE

非常謝謝GBKEE 版主的指導，才疏學淺短時間無法明瞭深奧的內容，方便幫我改好程式碼以利研究嗎？謝謝您了!

peter460191

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2013-5-31 10:20 | 只看該作者

本帖最後由 stillfish00 於 2013-5-31 10:23 編輯

回復 3# peter460191
MatchCase 選用 Variant
如果為 True，則搜尋時會將大小寫視為相異。預設值為 False。

這個應該提示很明顯了，多看參數說明才能活用。
Set A = Columns("A:B").Find(Target, lookat:=xlWhole,MatchCase:=True)

TOP

peter460191

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

5^#

發表於 2013-5-31 10:32 | 只看該作者

回復 4# stillfish00

感謝stillfish00指導，已成功了，會仔細研究版主的說明，再一次謝謝兩位的指導，謝謝您!

peter460191

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

6^#

發表於 2013-5-31 10:36 | 只看該作者

回復 3# peter460191
4# stillfish00 的 Set A = Columns("A:B").Find(Target, lookat:=xlWhole,MatchCase:=True) 試試看
1#說:第一次查詢完後欲再查詢第二次時，就不能查詢 ,是何意!

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

TOP

peter460191

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

7^#

發表於 2013-5-31 10:56 | 只看該作者

回復 6# GBKEE

1#說:第一次查詢完後欲再查詢第二次時，就不能查詢,是何意!
意思是當c5儲存格選到大小寫其中一個時,再選另一個就不能動了

peter460191

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2013-5-31 13:48 | 只看該作者

回復 7# peter460191

Private Sub Worksheet_Change(ByVal Target As Range)
Static Mystr$
Dim A As Range
If Intersect(Target, [C5:C6]) Is Nothing Then Exit Sub '[C5:C6]為資料輸入位置，可任意改變
Application.EnableEvents = False
Set A = Columns("A:B").Find(Target, lookat:=xlWhole, MatchCase:=True) 'A:B為資料來源位置欄位，可任意改變
If InStr(1, Mystr, Target, vbBinaryCompare) > 0 Then MsgBox "區分大小寫，已查詢過": GoTo 10 '區分大小寫
'If InStr(Mystr, Target) > 0 Then MsgBox "不分大小寫，已查詢過": GoTo 10 '不分大小寫
If A Is Nothing Then MsgBox "輸入錯誤": [C5:C6] = "": GoTo 10 '[C5:C6]為資料輸入位置，可任意改變
[C5] = Cells(A.Row, 1).Value '[C5:C6]為資料輸入位置，可任意改變
[C6] = Cells(A.Row, 2) '[C5:C6]為資料輸入位置，可任意改變
If Target.Address = "$C$5" Then Mystr = Mystr & "," & Target
10
Application.EnableEvents = True
End Sub

複製代碼

學海無涯_不恥下問

TOP

peter460191

中學生 Rank: 2

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

9^#

發表於 2013-5-31 14:47 | 只看該作者

回復 8# Hsieh

謝謝 Hsieh 版主的程式，將仔細研究看看，非常謝謝您!

peter460191

TOP