Question

vba如何判断两个字符串相等

比如：
Dim StrM As String
StrM = “save”
如果StrM等于save的话要进行后边的一些操作
请问如何用VBA编写语句判断StrM 是否等于“save"？

Answer 1

1、首先输入excle，打开VBA编辑器，并在编辑器中创建一个名为which day的新进程。

2、然后定义一些要使用的变量，这些变量都是字符串类型。

3、然后再给这些变量进行赋值。

4、要转换用户输入的日期格式，CDate是一个将字符串转换为日期的函数。

5、然后对mydate的值进行判断。

6、最后单击菜单栏上的“运行”按钮。

Answer 2

1、进入excle，打开VBA的编辑器，在编辑里新建一个过程，命名为whichday。

2、然后是定义一些要用到的变量，全部是字符串的类型。

3、再给这些变量进行赋值。

4、将用户输入的日期格式进行转换，Cdate是一个将字符串转换为日期的函数。

5、对mydate的值进行判断。

6、然后是点击菜单栏上面的“运行”按钮。

注意事项：

VBA提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。它的编写是以子过程和函数为单位，在 Access中以模块形式出现。

Answer 3

直接用 = 就可以比较了, = 在VB的语法里有两种作用, 一是赋值, 二就是逻辑相等运算.
Dim StrM As String
StrM = "save" ' 这里的=是赋值
If StrM = "save" Then '这里的=是逻辑相等运算
'....
End If

追问

你好，但是我读取的是一段，
比如 save 本身就是word中的一段
StrM = doc.Paragraphs(1).Range.Text ‘此时strM就读入了save这一段
这样我用 if StrM = 'save' Then 就不行了
是不是因为save作为一段后边有回车？
要是这样应该怎么做？请教

追答

可以根据需要进行一些必要的处理,如果用等号,只有表达式两端完全一致时才会返回True,如果你只是想在一个表达式中查找是否含另一个表达式,可以用InStr函数,比如
If InStr(StrM, "save")>0 Then
如果要忽略前后空格,可以用
If Trim(StrM) = "save" Then
忽略大小写,可以用
If LCase(StrM) = "save" Then
主要是根据你希望的那样对字符进行一些处理.

Answer 4

if str1=“Save” then

else

end if

结构就是这样，判断相等也是用的=号不是 ==

Answer 5

if str1=str2 then
...
end if

追问

那可不可以这样
If str1 = "save"
……
end if
还有就是 这样不会是将str2赋值给str1么？