根据条件判断填入的数据自动判断正负

kane027

297341853 发表于 2016-1-26 13:54
老师。这是通过vba来实现的吗？

求助大神.rar (8.49 KB, 下载次数: 49)

2016-1-26 17:43 上传

点击文件名下载附件

给你个附件

guski216

kane027 发表于 2016-1-25 23:08

如果我在G4单元格显示，退，即F9:U20此区域输入数值自动变为负数，求帮助，用vab

kane027

guski216 发表于 2017-3-19 22:20
如果我在G4单元格显示，退，即F9:U20此区域输入数值自动变为负数，求帮助，用vab

请模拟结果并上传附件，否则很难猜你的意思的

kane027

guski216 发表于 2017-3-19 22:20
如果我在G4单元格显示，退，即F9:U20此区域输入数值自动变为负数，求帮助，用vab

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.ScreenUpdating = False
   
3.     On Error Resume Next
   
4.     With Target
   
5.         If .Column < 6 Or .Column > 21 Or .Row < 9 Or .Row > 20 Then Exit Sub
   
6.         Application.EnableEvents = False
   
7.         If [g4] = "退" Then Target = -Target
   
8.         Application.EnableEvents = True
   
9.     End With
   
10. End Sub
    

复制代码

guski216

kane027 发表于 2017-3-20 10:26

谢谢朋友的帮助，这就是我要的效果，辛苦你了