用VBA根据条件自动填充固定数据

蝶舞1199

问题：当g2=1时A2等于-1，否则为“”，现在的问题是A列随时可能会人工输入数据，这个问题怎么能解决呢？

自动填充数据.rar (7.74 KB, 下载次数: 29)

2016-2-20 22:25 上传

点击文件名下载附件

龙城飞将III

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Or Target.Column <> Cells(1, "G").Column Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.     Cells(Target.Row, "A") = IIf(Target = 1, -1, "")
   
5.     Application.EnableEvents = True
   
6. End Sub
   
7. 
   
8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
9.     If Target.Column = 1 Then
   
10.         Target.Offset(0, 1).Activate
    
11.     End If
    
12. End Sub

复制代码

龙城飞将III

参考附件：

蝶舞1199

龙城飞将III 发表于 2016-2-20 23:04

你好！我复制了代码后A列不能人工填写数据了！

龙城飞将III

蝶舞1199 发表于 2016-2-20 23:08
你好！我复制了代码后A列不能人工填写数据了！

你的意思是A列为空的时候可以输入数据？只有当A列数据为-1的时候不能改？

蝶舞1199

龙城飞将III 发表于 2016-2-20 23:10
你的意思是A列为空的时候可以输入数据？只有当A列数据为-1的时候不能改？

嗯嗯  是的！

蝶舞1199

龙城飞将III 发表于 2016-2-20 23:05
参考附件：

你好！麻烦您再帮我改一下！谢谢！

龙城飞将III

蝶舞1199 发表于 2016-2-20 23:15
你好！麻烦您再帮我改一下！谢谢！

稍微改动下：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Or Target.Column <> Cells(1, "G").Column Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.     Cells(Target.Row, "A") = IIf(Target = 1, -1, "")
   
5.     Application.EnableEvents = True
   
6. End Sub
   
7. 
   
8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
9.     If Target.Column = 1 And Target = -1 Then
   
10.         Target.Offset(0, 1).Activate
    
11.     End If
    
12. End Sub

复制代码

龙城飞将III

》》》》》》》》》》》》》》》》》》》》
参考附件：

蝶舞1199

龙城飞将III 发表于 2016-2-21 00:39
》》》》》》》》》》》》》》》》》》》》
参考附件：

你好！非常感谢！可是为什么我把G列加入公式这个VBA就不好用了呢？我该怎么调呢？如果编辑其他单元格时会出现提示错误！如图 自动填充数据(1).rar (22.19 KB, 下载次数: 7)

2016-2-21 09:05 上传

点击文件名下载附件