關(guān)于VBA語(yǔ)句的寫(xiě)法，我寫(xiě)的不能達(dá)到應(yīng)有的效果。

ha0148

Private Sub 往來(lái)選項(xiàng)_AfterUpdate()
If Me.往來(lái)選項(xiàng) <> "單據(jù)金額" Then
Me.往來(lái)金額 = Me.往來(lái)金額 * -1
End If
End Sub

以上是我寫(xiě)的語(yǔ)句，我知道我寫(xiě)的語(yǔ)句有問(wèn)題。
我的意思，是不選擇“單據(jù)金額”，選擇別的什么就是負(fù)數(shù)，可如果要是選了別的選項(xiàng)兩次又成正數(shù)。
請(qǐng)大家?guī)臀倚薷囊幌�，怎要才能做到，只要選“單據(jù)金額”永遠(yuǎn)都有為正數(shù)，選別的選項(xiàng)不管選多少次，永遠(yuǎn)都是負(fù)數(shù)。

admin

加個(gè)絕對(duì)值函數(shù) abs

ha0148

謝謝，問(wèn)題解決了。
If Me.往來(lái)選項(xiàng) ＝ "單據(jù)金額" Then
Me.往來(lái)金額 =ABS( Me.往來(lái)金額)
ELSE
Me.往來(lái)金額 = ABS(Me.往來(lái)金額 )* -1
End If