validation更新时更改单元格值

我在更改单元格时无法更改单元格值。 基本上，当validationRange("F112")发生变化且值为<> "Lease" Range"("F108")需要变为0 。

到目前为止，我已经想出了：

模

 Sub SetLeaseToZero() Dim Settlement As Integer Settlement = Sheets("HV.Select Pricing").Range("F108") If Sheets("HV.Select Pricing").Range("F112") <> "Lease" Then Settlement = 0 Else End If End Sub 

换单

 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("F112")) Is Nothing Then SetLeaseToZero End If End Sub 

提前致谢

Answer 1

您需要设置结算对象才能更改值。 如图所示调整模块代码：

 Sub SetLeaseToZero() Dim Settlement As Range Set Settlement = Sheets("HV.Select Pricing").Range("F108") If Sheets("HV.Select Pricing").Range("F112").Value <> "Lease" Then Settlement.Value = 0 End If End Sub 

请注意， .Value调用在技术上不是必需的，但它们有助于澄清代码。