excel中输入数值自动关联变为负数？

liuyizhong

excel中输入数值自动关联变为负数？ 当E列为“发出”时 ，G列和H列输入任何数字自动显示负数 （自动在前面添加负号）这个该怎么关联下？

坯布收发流水账.rar (10.65 KB, 下载次数: 6)

2018-9-16 19:24 上传

点击文件名下载附件

小花鹿

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

liuyizhong

小花鹿 发表于 2018-9-16 19:45
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

大侠，请问代码怎么写？

lsc900707

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 7 Then
   
3.         If Target.Offset(0, -2) = "发出" Then Target.Value = Abs(Target.Value) * -1
   
4.     ElseIf Target.Column = 8 Then
   
5.         If Target.Offset(0, -3) = "发出" Then Target.Value = Abs(Target.Value) * -1
   
6.     End If
   
7. End Sub

复制代码

liuyizhong

lsc900707 发表于 2018-9-16 20:47

谢谢版主的帮忙

小花鹿

liuyizhong 发表于 2018-9-16 20:15
大侠，请问代码怎么写？

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 7 Or Target.Column > 8 Then Exit Sub
Dim r&
r = Target.Row
If Cells(r, 5) = "收进" Then
    Target = Abs(Target)
End If
If Cells(r, 5) = "发出" Then
    Target = -Abs(Target)
End If
End Sub

liuyizhong

小花鹿 发表于 2018-9-16 21:12
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 7 Or Target.Column > 8 The ...

感谢大侠的帮助，谢谢