Question

excel中的代码出现死循环。在一行输入一个数EXCEL出现无法操作

Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
Cells(i, 3).Value = Cells(i, 2).Value * 0.6
Cells(i, 4).Value = 1.5
If Cells(i, 5).Value <= 500 Then
Cells(i, 6).Value = 10
Else
Cells(i, 6).Value = (Cells(i, 5).Value - 500) / 50 * 0.1 + 10
End If
End Sub

Answer 1

那是因为你在代码中改变了单元格的值所以事件没有退出的时候再次发生了事件，陷入了无限嵌套，就是假死状态了，你应该加防重入代码，如下：
Sub Worksheet_Change(ByVal Target As Range)
Static MeIn As Boolean
If MeIn Then Exit Sub
MeIn = True
i = Target.Row
Cells(i, 3).Value = Cells(i, 2).Value * 0.6
Cells(i, 4).Value = 1.5
If Cells(i, 5).Value <= 500 Then
Cells(i, 6).Value = 10
Else
Cells(i, 6).Value = (Cells(i, 5).Value - 500) / 50 * 0.1 + 10
End If
MeIn = False
End Sub

Answer 2

在CHANGE事件下，再需要赋值的
可用APPLICATION.ENABLEEVENTS
来暂时禁用事件
Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
APPLICATION.ENABLEEVENTS=FALSE
Cells(i, 3).Value = Cells(i, 2).Value * 0.6
Cells(i, 4).Value = 1.5
If Cells(i, 5).Value <= 500 Then
Cells(i, 6).Value = 10
Else
Cells(i, 6).Value = (Cells(i, 5).Value - 500) / 50 * 0.1 + 10
End If
APPLICATION.ENABLEEVENTS=TRUE

END SUB

Answer 3

 Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
i = Target.Row
Cells(i, 3).Value = Cells(i, 2).Value * 0.6
Cells(i, 4).Value = 1.5
If Cells(i, 5).Value <= 500 Then
Cells(i, 6).Value = 10
Else
Cells(i, 6).Value = (Cells(i, 5).Value - 500) / 50 * 0.1 + 10
End If
Application.EnableEvents = True
End Sub

追问

请问用代码实现两个数相除取整数位呢？如10.1/2=5