excel 宏 运行时错误'13' 类型不匹配14
发布网友
发布时间:2023-11-03 06:16
我来回答
共3个回答
热心网友
时间:2024-03-31 12:34
不匹配是因为没有固定修改数据,引发事件的区域。解决方法如下:
1、打开excel。
2、首先点击左上角的文件菜单,如下图所示。
3、然后点击左侧的选项菜单。
4、接着选择自定义功能区。
5、然后勾选开发工具。
6、接下来在点击开发工具就可以看到宏了。
热心网友
时间:2024-03-31 12:36
这个问题,你没有固定修改数据,引发事件的区域,你在粘贴C列数据时,有100个单元格数据改变了,而IF函数不知道取哪个的值判断,解决问题,有两种办法,
一个是固定区域,才引发事件,另一个是用代码暂时禁止事件,因为不知道你的条件区域,所以用第二种办法,修改了一下,如下:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 1 Then
Range("A2:A100").Select
Selection.Copy
Application.EnableEvents = False '禁用所有事件
Range("C2:C100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.EnableEvents = True '解禁所有事件
ActiveSheet.Calculate
End If
End Sub
热心网友
时间:2024-03-31 12:35
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target = 1 Then
Range("A1:A100").Select
Selection.Copy
Range("C1:C100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Calculate
End If
End If
End Sub