level 5
level 5
鱼面鱼骨鱼汤
楼主
请问我要怎么改才能 不分大小写都可以查找出姓名？
格式要是这样：
_______ = Text1.Text
2020年05月21日 05点05分
3
格式要是这样：
_______ = Text1.Text
一个简单直接的思路就是不管大写小写一律转大写或一律转小写比对查找
2020年05月21日 05点05分
![[玫瑰]](/static/emoticons/u73abu7470.png)
@余思培 你说的太对了
2020年05月21日 13点05分
@璐村惂鐢ㄦ埛_0748V5Z馃惥 因为老师给的格式固定了，如果我用大小写，我就得加lcase或者ucase，所以纠结了
2020年05月21日 14点05分
level 15
改赋值号左边无解（语法上VB就会给你报错了）
一种方法如3楼楼中楼所说，先进行大小写转换再比较，修改方法如下：
strInput = Text1.Text '改为 strInput = UCase(Text1.Text)
If Sname(i) = strInput Then '改为 If UCase(Sname(i)) = strInput Then
以上代码中UCase是转换为全部大写，也可以用LCase转换为全部小写
另一种方法是在“通用-声明”区域添加如下代码：
Option Compare Text
这样，进行字符串比较时就不会区分大小写了
如果不使用Option Compare Text，还有一种不区分大小写的方法，就是使用字符串函数，这里是用StrComp，改法如下：
If Sname(i) = strInput Then '改为 If StrComp(Sname(i), strInput, vbTextCompare) Then
2020年05月21日 05点05分
5
一种方法如3楼楼中楼所说，先进行大小写转换再比较，修改方法如下：
strInput = Text1.Text '改为 strInput = UCase(Text1.Text)
If Sname(i) = strInput Then '改为 If UCase(Sname(i)) = strInput Then
以上代码中UCase是转换为全部大写，也可以用LCase转换为全部小写
另一种方法是在“通用-声明”区域添加如下代码：
Option Compare Text
这样，进行字符串比较时就不会区分大小写了
如果不使用Option Compare Text，还有一种不区分大小写的方法，就是使用字符串函数，这里是用StrComp，改法如下：
If Sname(i) = strInput Then '改为 If StrComp(Sname(i), strInput, vbTextCompare) Then
![[爱心]](/static/emoticons/u7231u5fc3.png)
