驗證更新時更改單元格值

Question

我在更改單元格時無法更改單元格值。基本上，當驗證Range("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電話在技術上並非必需的，但它們有助於澄清的代碼。