代码之家 › 专栏 › 技术社区 › Luis Hernandez

如何在visual basic中计算条件中值的typename?

vba excel

Luis Hernandez · 技术社区 · 6 年前

我正在使用visual basic为excel编写宏。我已经查阅了几个教程,所有教程都使用“If TypeOf[object]Is[typename]Then”来检查单元格的值是否属于某种类型。例如,在我的代码中,我尝试评估单元格A1中的值是否是字符串,以便移动它。我的代码:

Private Sub CommandButton1_Click()

 If TypeOf Range("A1").Value Is String Then

  Range("B1").Value = Range("A1").Value 

 End If 

End Sub

但是,“字符串”一词突出显示,我得到一个错误,上面写着:编译错误: 应为:对象或类型名称

我已经被困了很长一段时间,根本找不到或找不到出路。请帮忙。

2 回复 | 直到 6 年前

Tim Williams 6 年前

您可以使用 TypeName() :

If TypeName(Range("A1").Value) = "String" Then

JohnyL 6 年前

假设有 Worker 类别:

Sub F()

    Dim x As Integer
    Dim j As Long
    Dim w As Object

    Set w = New Worker

    MsgBox TypeName(w) '// Worker
    MsgBox VarType(w)  '// 9 = vbObject

    If TypeName(x) = "Integer" Then
    End If

    If VarType(x) = vbInteger Then
    End If

    If VarType(j) = vbLong Then
    End If

End Sub

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前