Fatal编程技术网
  • vba/
  • Vba Microsoft Visual basic 6.5忽略大小写

Vba Microsoft Visual basic 6.5忽略大小写

vba excel

Vba Microsoft Visual basic 6.5忽略大小写,vba,excel,Vba,Excel,我正在使用microsoft visual basic 6.5和Excel TxtMMM是用户键入的字符串提示。在本例中，我将其硬编码为示例 但是它（TxtMMM）可以是“Jan”、“Jan”、“Jan”或“Jan”等中的任何一个 我的问题是，如何在检查时写入条件以检查TxtMMM，忽略区分大小写的 例如，如果用户输入TxtMMM 一月 一月 一月 然后它将返回“01” 这很简单。只需先使用UCase将TxtMM转换为大写，然后比较： If UCase(TxtMMM) = "JAN"

我正在使用microsoft visual basic 6.5和Excel

TxtMMM
是用户键入的
字符串提示。在本例中，我将其硬编码为示例
但是它（
TxtMMM）可以是“Jan”、“Jan”、“Jan”或“Jan”等中的任何一个

我的问题是，如何在检查时写入条件以检查
TxtMMM
，忽略区分大小写的

例如，如果用户输入
TxtMMM

  • 一月
  • 一月
  • 一月
然后它将返回
“01”

这很简单。只需先使用UCase将TxtMM转换为大写，然后比较：

    If UCase(TxtMMM) = "JAN" Then
        sTxtMMM = "01"
        csd = 1
    ElseIf UCase(TxtMMM) = "FEB" Then
        sTxtMMM = "02"
        csd = 1
        .....
     End If
这很简单。只需先使用UCase将TxtMM转换为大写，然后比较：

    If UCase(TxtMMM) = "JAN" Then
        sTxtMMM = "01"
        csd = 1
    ElseIf UCase(TxtMMM) = "FEB" Then
        sTxtMMM = "02"
        csd = 1
        .....
     End If
而不是12步
选择
为什么不


Dim TxtMMM As String
TxtMMM = "Jan"
MsgBox Format(Month(DateValue("1/" & TxtMMM & "/2013")), "00")
csd = 1



而不是12步
选择
为什么不


Dim TxtMMM As String
TxtMMM = "Jan"
MsgBox Format(Month(DateValue("1/" & TxtMMM & "/2013")), "00")
csd = 1



这样做，它会改变txtmm的值吗？或者仅对该语句有效？它不会更改TxtMMM的值。只对该语句（如果条件）有效。这样做，它会改变txtmm的值吗？或者仅对该语句有效？它不会更改TxtMMM的值。仅对该语句（如果条件）有效。为什么不通过使用
csd=month（…
）来关闭循环？如
Jan
和
Feb
had
csd=1
。为什么不通过使用
csd=month来关闭循环（…
？如所给示例中的
Jan
和
Feb
都有
csd=1
。