[已解决]判定函数得VBA。

毕加猪2016

D列是手动输入的数据，当E列输入“作废”二字时，D列其对应单元格数据变为负数。

工作簿.rar (7.14 KB, 下载次数: 2)

2016-7-18 16:56 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-7-18 17:28

毕加猪2016 发表于 2016-7-18 17:22
可以么？

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 5 Then Exit Sub
   
3.     If Target.Value = "作废" Then
   
4.         Target.Offset(, -1) = Target.Offset(, -1).Value * -1
   
5.         Else
   
6.         If Target.Value = "" Then
   
7.         Target.Offset(, -1) = Target.Offset(, -1).Value * -1
   
8.         End If
   
9.     End If
   
10. End Sub
    

复制代码

CHANGE事件，不要误操作，否则...

跳转到最佳答案楼层

望帝春心

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 5 Then Exit Sub
   
3.     If Target.Value = "作废" Then
   
4.         Target.Offset(, -1) = Target.Offset(, -1).Value * -1
   
5.     End If
   
6. End Sub
   

复制代码

望帝春心

参考附件

毕加猪2016

望帝春心 发表于 2016-7-18 17:11

谢谢帮助。但是如果我删除“作废”，数据还是负数，不会变为正数

望帝春心

毕加猪2016 发表于 2016-7-18 17:18
谢谢帮助。但是如果我删除“作废”，数据还是负数，不会变为正数

删除了还要变回正数吗？

毕加猪2016

望帝春心 发表于 2016-7-18 17:22
删除了还要变回正数吗？

可以么？

望帝春心

毕加猪2016 发表于 2016-7-18 17:18
谢谢帮助。但是如果我删除“作废”，数据还是负数，不会变为正数

我是VBA新手，再试试能不能做出来啊。

望帝春心

毕加猪2016 发表于 2016-7-18 17:22
可以么？

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 5 Then Exit Sub
   
3.     If Target.Value = "作废" Then
   
4.         Target.Offset(, -1) = Target.Offset(, -1).Value * -1
   
5.         Else
   
6.         If Target.Value = "" Then
   
7.         Target.Offset(, -1) = Target.Offset(, -1).Value * -1
   
8.         End If
   
9.     End If
   
10. End Sub
    

复制代码

CHANGE事件，不要误操作，否则...

毕加猪2016

望帝春心 发表于 2016-7-18 17:28
CHANGE事件，不要误操作，否则...

谢谢您的帮助。
您说的误操作指的是什么？

望帝春心

毕加猪2016 发表于 2016-7-18 17:31
谢谢您的帮助。
您说的误操作指的是什么？

比如你在删除作废二字的时候误录了空格或其他内容，负数不会变回去，你可以试试...