VBA错误：方法'_Default作用于对象'Range'时失败 5
PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Row=13ThenCells(13,1)="温度数据"En...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 13 Then
Cells(13, 1) = "温度数据"
End If
End Sub 展开
If Target.Row = 13 Then
Cells(13, 1) = "温度数据"
End If
End Sub 展开
1个回答
展开全部
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row = 13 Then
Cells(13, 1) = "温度数据"
End If
Application.EnableEvents = true
End Sub
在前后加上这两个语句就不会重复执行了
Application.EnableEvents = False
If Target.Row = 13 Then
Cells(13, 1) = "温度数据"
End If
Application.EnableEvents = true
End Sub
在前后加上这两个语句就不会重复执行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
