Excel VBA 中的搜索框
智能
我的代码有一个简单的问题。问题是我的搜索框正在工作，我可以将我的数据搜索到另一个工作表中，但问题是我需要在该字段上键入相同的文本。就像数据是用大写锁定写的一样，我也需要用大写锁定输入它。我不喜欢那样。我想禁用区分大小写但如何？你能帮我吗，这是我的代码截图。
这是我的代码
Sub searchData()
Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer
Dim mySearch As Variant
Dim SearchString As String
mySearch = Sheets("Control").Range("B2").Value 'Cell Input
lastrow = Sheets("Data").Cells(Rows.count, 3).End(xlUp).Row
For x = 2 To lastrow
If Sheets("Data").Cells(x, 3) = mySearch Then
'Loan Details
Sheets("Control").Range("B4") = Sheets("Data").Cells(x, 1)
Sheets("Control").Range("B5") = Sheets("Data").Cells(x, 2)
Sheets("Control").Range("B6") = Sheets("Data").Cells(x, 3)
Sheets("Control").Range("B7") = Sheets("Data").Cells(x, 4)
Sheets("Control").Range("B8") = Sheets("Data").Cells(x, 5)
Sheets("Control").Range("B9") = Sheets("Data").Cells(x, 6)
Sheets("Control").Range("B10") = Sheets("Data").Cells(x, 7)
Sheets("Control").Range("B11") = Sheets("Data").Cells(x, 8)
Sheets("Control").Range("B12") = Sheets("Data").Cells(x, 9)
Sheets("Control").Range("B13") = Sheets("Data").Cells(x, 10)
Sheets("Control").Range("B14") = Sheets("Data").Cells(x, 11)
'Personal Details
Sheets("Control").Range("B15") = Sheets("Data").Cells(x, 12)
Sheets("Control").Range("B16") = Sheets("Data").Cells(x, 13)
Sheets("Control").Range("B17") = Sheets("Data").Cells(x, 14)
Sheets("Control").Range("B18") = Sheets("Data").Cells(x, 15)
Sheets("Control").Range("B19") = Sheets("Data").Cells(x, 16)
Sheets("Control").Range("B20") = Sheets("Data").Cells(x, 17)
Sheets("Control").Range("B21") = Sheets("Data").Cells(x, 18)
Sheets("Control").Range("B22") = Sheets("Data").Cells(x, 19)
Sheets("Control").Range("B23") = Sheets("Data").Cells(x, 20)
Sheets("Control").Range("B24") = Sheets("Data").Cells(x, 21)
Sheets("Control").Range("B25") = Sheets("Data").Cells(x, 22)
Sheets("Control").Range("B26") = Sheets("Data").Cells(x, 23)
Sheets("Control").Range("B27") = Sheets("Data").Cells(x, 24)
Sheets("Control").Range("B28") = Sheets("Data").Cells(x, 25)
Sheets("Control").Range("B29") = Sheets("Data").Cells(x, 26)
Sheets("Control").Range("B30") = Sheets("Data").Cells(x, 27)
'Employment Details
Sheets("Control").Range("B31") = Sheets("Data").Cells(x, 28)
Sheets("Control").Range("B32") = Sheets("Data").Cells(x, 29)
Sheets("Control").Range("B33") = Sheets("Data").Cells(x, 30)
Sheets("Control").Range("B34") = Sheets("Data").Cells(x, 31)
Sheets("Control").Range("B35") = Sheets("Data").Cells(x, 32)
Sheets("Control").Range("B36") = Sheets("Data").Cells(x, 33)
End If
Next x
End Sub
尼希特戴伊
将 If 条件更改为以下内容，这将自动搜索大写文本，无论您输入的是什么
UCase(Sheets("Data").Cells(x,3)) = UCase(mySearch)
例如：在 Sheet 你有 = "Sample" 并且在搜索框中你输入了 "sample Searching will search like "SAMPLE = SAMPLE"
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
编辑于
相关文章
TOP 榜单
- 1
Qt Creator Windows 10 - “使用 jom 而不是 nmake”不起作用
- 2
使用next.js时出现服务器错误，错误：找不到react-redux上下文值；请确保组件包装在<Provider>中
- 3
SQL Server中的非确定性数据类型
- 4
Swift 2.1-对单个单元格使用UITableView
- 5
如何避免每次重新编译所有文件？
- 6
在同一Pushwoosh应用程序上Pushwoosh多个捆绑ID
- 7
Hashchange事件侦听器在将事件处理程序附加到事件之前进行侦听
- 8
应用发明者仅从列表中选择一个随机项一次
- 9
在 Avalonia 中是否有带有柱子的 TreeView 或类似的东西？
- 10
HttpClient中的角度变化检测
- 11
在Wagtail管理员中，如何禁用图像和文档的摘要项？
- 12
如何了解DFT结果
- 13
Camunda-根据分配的组过滤任务列表
- 14
错误：找不到存根。请确保已调用spring-cloud-contract：convert
- 15
为什么此后台线程中未处理的异常不会终止我的进程？
- 16
构建类似于Jarvis的本地语言应用程序
- 17
使用分隔符将成对相邻的数组元素相互连接
- 18
您如何通过 Nativescript 中的 Fetch 发出发布请求？
- 19
通过iwd从Linux系统上的命令行连接到wifi（适用于Linux的无线守护程序）
- 20
使用React / Javascript在Wordpress API中通过ID获取选择的多个帖子/页面
- 21
使用 text() 獲取特定文本節點的 XPath
我来说两句