求助：vba中定义的变量使用到if函数中，提示类型不匹配

xly201314

Sub 按钮2_Click()
  Dim demo_tsfl4, demo_tsfl
  demo_tsfl4 = " Or Sheets(" & """报表""" & ").Cells(1, 3).Value = " & """隐患"""
  demo_tsfl = "Sheets(" & """报表""" & ").Cells(2, 3).Value =" & """信访""" & demo_tsfl4
  If demo_tsfl Then     '此处提示“类型不匹配”，此时本地窗口提示  demo_tsfl="Sheets("报表").Cells(15, 3).Value ="信访" Or Sheets("报表").Cells(14, 3).Value = "隐患""，是否是因为demo_tsfl首尾引号所致
    Sheets("报表").Cells(3, 3).Value = "正确"
  Else
    Sheets("报表").Cells(3, 3).Value = "不正确"
  End If
End Sub

'目的：将拼接的字符串用于if条件判断，且必须使用这样的方式

xly201314

怎么没人呀，哪位大神在

suntao2000

ⅰf  then是一个判断，中间的结果是文本怎判断?
如果你是想判断上一个单元格是否="隐患"，下一个是否="信访"。可以这样写
demo_tsfl4 =  (Sheets("报表").Cells(1, 3).Value = " 隐患")
demo_tsfl = (Sheets(" 报表 ").Cells(2, 3).Value ="信访") * demo_tsfl4
如果两个条件有一个成立就行，可以把*换成+

xly201314

suntao2000 发表于 2020-10-18 12:51
ⅰf  then是一个判断，中间的结果是文本怎判断?
如果你是想判断上一个单元格是否="隐患"，下一个是否="信 ...

Sub 按钮2_Click()
Dim demo_tsfl4, demo_tsfl

demo_tsfl4 = (Sheets("报表").Cells(1, 3).Value = " 隐患")
demo_tsfl = (Sheets(" 报表 ").Cells(2, 3).Value = "信访") + demo_tsfl4

If demo_tsfl Then     '此处提示“类型不匹配”，此时本地窗口提示  demo_tsfl="Sheets("报表").Cells(15, 3).Value ="信访" Or Sheets("报表").Cells(14, 3).Value = "隐患""，是否是因为demo_tsfl首尾引号所致
Sheets("报表").Cells(3, 3).Value = "正确"
Else
Sheets("报表").Cells(3, 3).Value = "不正确"
End If
End Sub
'目的：将拼接的字符串用于if条件判断，且必须使用这样的方式

按照修改了，但提示demo_tsfl = (Sheets(" 报表 ").Cells(2, 3).Value = "信访") + demo_tsfl4--下标越界

nathen_frazer

亲爱的楼主：
       如果请您能仔细查阅F1帮助文件里面关于If...Then...Else 语句的详细内容，就会明白您的目的是行不通的。
       以下是帮助文件中的内容：
       -------------------------------------------------------------------------------------------------------------------------------------------
       语法
       If condition Then [statements][Else elsestatements]
       condition 必要参数。一个或多个具有下面两种类型的表达式：
       数值表达式或字符串表达式，其运算结果为 True 或 False。如果 condition 为 Null，则 condition 会视为 False。
       -------------------------------------------------------------------------------------------------------------------------------------------
       condition 明确要求的是表达式，而您的目的是将拼接的字符串用于if条件判断。字符串不论如何拼接，最终得到的始终是字符串，它是不会得到包含True 或 False的运算结果    的。正是这样的原因，系统才会提示 “类型不匹配”。
       本人学识有限，无法参透您要实现的功能。如果您能将目的详细描述出来，希望我能尽一份绵薄之力。