关于VBA语句的写法，我写的不能达到应有的效果。

ha0148

Private Sub 往来选项_AfterUpdate()
If Me.往来选项 <> "单据金额" Then
Me.往来金额 = Me.往来金额 * -1
End If
End Sub

以上是我写的语句，我知道我写的语句有问题。
我的意思，是不选择“单据金额”，选择别的什么就是负数，可如果要是选了别的选项两次又成正数。
请大家帮我修改一下，怎要才能做到，只要选“单据金额”永远都有为正数，选别的选项不管选多少次，永远都是负数。

admin

加个绝对值函数 abs

ha0148

谢谢，问题解决了。
If Me.往来选项 ＝ "单据金额" Then
Me.往来金额 =ABS( Me.往来金额)
ELSE
Me.往来金额 = ABS(Me.往来金额 )* -1
End If