大神们如何让他不区分大小写？

cdwoodways · 发表于 2020-3-14 11:23

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Me.ListBox2.Clear
Set d = CreateObject("scripting.dictionary")
arr = Range("d4:d600")
For i = 1 To UBound(arr）
If arr(i, 1) Like "*" & Me.TextBox3.Value & "*" Then
d(arr(i, 1)) = ""
End If
Next i
Me.ListBox2.List = d.keys
End Sub

liulang0808 · 发表于 2020-3-14 11:32

使用ucase 或者lcase函数处理下

cdwoodways · 发表于 2020-3-14 11:39

处理不好能改下不，谢谢！！！

opel-wong · 发表于 2020-3-14 11:40

cdwoodways 发表于 2020-3-14 11:39
处理不好能改下不，谢谢！！！

上传附件吧，
没有附件，不好测试，

liulang0808 · 发表于 2020-3-14 11:42

cdwoodways 发表于 2020-3-14 11:39
处理不好能改下不，谢谢！！！

需要比较得，使用函数都处理下
其他楼主根据需求来
遇到问题再咨询吧

cdwoodways · 发表于 2020-3-14 11:49

附件上传了谢谢

cdwoodways · 发表于 2020-3-14 12:03

cdwoodways 发表于 2020-3-14 11:49
附件上传了谢谢

我要的效果

山菊花 · 发表于 2020-3-14 13:04

cdwoodways · 发表于 2020-3-14 15:03

山菊花发表于 2020-3-14 13:04

可以了谢谢

		自动登录	找回密码
密码			免费注册

大神们如何让他不区分大小写？

最新热点 /1