UC知道excel中VBA的elseif？
来源：百度知道 编辑：UC知道 时间：2024/06/30 10:20:26
下面语句中实现D列数据含"100"时候，Q列必须输入小写ok，才能退出excel。但我想输入大写的“OK”也是符合条件的，应该怎么改呢？
Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To 65535
If InStr(Cells(i, 4), "100") > 0 And Cells(i, 17) <> "ok" Then
MsgBox "不能退出！"
Cancel = True
Exit For
End If
Next i
End Sub
Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To 65535
If InStr(Cells(i, 4), "100") > 0 And Cells(i, 17) <> "ok" Then
MsgBox "不能退出！"
Cancel = True
Exit For
End If
Next i
End Sub
全部转换为大写
MsgBox StrConv(strInfo, vbUpperCase)
或者UCase和LCase来转换
小写:97-122
大写:65-90
用ASC和CHR函数来取字符和字符代码循环比较就可以了
网上查到这些，我对VBA也是半桶水的，希望这能帮到你一点点了！我不会引用ASC码，应该有ASC码代替“OK”字符应该就行了！
将Cells(i, 17) 改为 Lcase(Cells(i, 17))