VBA如果A = B和C =文本
我一直在寻找stackoverflow，但不能得到一个明确的答案，我的小问题。 我对编码相当陌生，有时候我仍然在处理语法。
现在我有一个循环读一个数组，在循环内检查一个if语句。 我一直在检查工作正常的循环，以及数组。 if语句直到我开始使用“isText”。
search了一下后，我发现“isText”不是一个函数，有没有什么等价的东西？
现在我的if语句如下所示： IF A = B and C （包含任何值） then Write somethig somewhere in a cell
现在我正在使用的代码是：
Sub KnopKlik() Dim Soorten(10) Dim Teller As Integer Dim Collum1 As String Collum1 = Sheets(2).Range("C1").Value MsgBox (Collum1) Sheets(1).Select Range("E2").Select For Teller = 0 To 10 Soorten(Teller) = ActiveCell.Offset(Teller).Value Next Teller For Teller = 0 To 10 If Sheets(2).Range("B9") = Soorten(Teller) And Application.IsText(Collum1) Then MsgBox ("Check") Sheets(2).Range("E9").Value = ActiveCell.Offset(Teller, 3) Sheets(2).Select Range("B9").Select Teller = 10 Else End If Next Teller End Sub
现在，如果声明的最后部分是问题
And Application.IsText(Collum1) Then
编辑**
这是我现在如何解决它。 基本上只要在那个小区里有ANNYTHING，它就会通过。
If Sheets(2).Range("B9") = Soorten(Teller) Then 'Als B9 Gelijk is aan (database) DAN!>>> If Not Collum1 = "" Then Sheets(2).Range("E9").Value = ActiveCell.Offset(Teller, 3) End If Else End If
提前致谢。
你可以这样做：
If Sheets(2).Range("B9") = Soorten(Teller) And Len(Trim(Collum1))>0 Then
len将给出string的长度。 修剪将从左侧和右侧删除空的空间，因此，如果它是一个空string，它将是真实的。