从合并单元格中删除时键入不匹配 13 错误 - VBA

拉斐尔·罗德里格斯·桑托斯

当我在合并的单元格上按删除按钮时出现错误(类型不匹配 13),但是,此错误仅在单元格合并时显示,否则不会引发错误,我不明白为什么,请按照代码进行操作:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("AG3") Then

    If Target.Value = 5 Then
        Sheets("Sheet6").CommandButton6.Visible = False

    Else
         Sheets("Sheet6").CommandButton6.Visible = True

End If
End If

On Error Resume Next
     Sheets("Sheet6").CommandButton6.Visible = False
On Error GoTo 0

End Sub

缺什么?

单元格AG3有一个从 0 到 5 不等的数字

蒂姆·威廉姆斯

当您从合并的单元格中删除一个值时,Target获取整个范围,而不仅仅是第一个单元格。此行为与向合并单元格添加值时不同(在这种情况下,只有来自合并区域的第一个单元格会被传入)。

例如 - 如果我D2:D8使用此事件处理程序在工作表上合并:

Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print Target.Address, TypeName(Target.Value)
End Sub

在合并的单元格中输入“测试”会给我:

$D$2          String

并删除该值给了我:

$D$2:$D$8             Variant()

我才刚刚学到。

因此,请考虑查看Target.Cells(1)而不是Target(取决于您的确切用例)

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

Excel-选择多个单元格时在VBA中键入不匹配错误13

VBA宏:错误13类型不匹配,单元格上出现错误2023

使用vba修剪值时键入不匹配(错误13)

运行时错误'13':清除单元格内容时键入不匹配

键入不匹配运行时错误 13,同时对多个已删除单元格撤消 Ctrl+z

VBA Excel“错误13:类型不匹配”

使用VBA脚本将2个时间变量分配给2个单元格中的时间值会引发类型不匹配错误13

MS Access VBA:出现错误“ 13”:从其他形式调用函数时,键入不匹配

运行时错误'13:比较日期时键入不匹配-EXCEL VBA

VBA 中的类型 13 数据不匹配错误

在设置数组值时键入不匹配13错误13

VBA错误13类型不匹配

Excel VBA运行时错误类型不匹配13

继承上的 VBA 类型不匹配(错误 13),用户来自

Excel VBA运行时错误“ 13”:类型不匹配

无法解决 VBA 数组错误 13 类型不匹配

VBA数据类型不匹配错误13

运行时错误 13' 类型不匹配 VBA excel

VBA,Excel ODBC驱动程序-对单元格中的参数使用sql查询时,类型不匹配错误

运行时错误13:尝试从另一个工作簿中调用函数时,在VBA中键入不匹配

VBA Excel:将范围内容放入数组时出现运行时错误 13 - 长单元格内容

VBA Excel中的“运行时错误13:类型不匹配”错误

选择多个单元格时评估错误:运行时错误'13':类型不匹配

尝试检查单元格是否包含整数时出现运行时错误 13 类型不匹配

VBA:将数据复制到表中时出现错误 1004 合并单元格

Excel运行时错误13中的VBA:类型不匹配

尝试检测是否关闭了用户窗体时在Excel VBA中得到“运行时错误'13':类型不匹配”

Access 2010 VBA类型不匹配(错误13)或运行时错误424(必需的对象)

错误 13:在类似 vba 语句起作用的用户窗体上为文本框键入不匹配