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

龙城飞将III

蝶舞1199 发表于 2016-2-21 08:53
你好！非常感谢！可是为什么我把G列加入公式这个VBA就不好用了呢？我该怎么调呢？如果编辑其他单元格时会 ...

楼主，看下你出问题的附件。

蝶舞1199

龙城飞将III 发表于 2016-2-21 14:05
楼主，看下你出问题的附件。

自动填充数据(1).rar (22.19 KB, 下载次数: 25)

2016-2-21 22:08 上传

点击文件名下载附件

龙城飞将III

蝶舞1199 发表于 2016-2-21 22:08

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3.     Dim arrInfo As Variant
   
4.     If Target.Column <> Cells(1, "G").Column Then Exit Sub
   
5.     If Target.Count = 1 Then
   
6.         Cells(Target.Row, "A") = IIf(Target = 1, -1, "")
   
7.     Else
   
8.         arrInfo = Target
   
9.         Application.EnableEvents = False
   
10.         For i = Target.Row To Target.Row + UBound(arrInfo)
    
11.             Cells(i, "A") = IIf(Target.Cells(i + 1 - Target.Row) = 1, -1, "")
    
12.         Next
    
13.         Application.EnableEvents = True
    
14.     End If
    
15. End Sub
    
16. 
    
17. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
18.     If Target.Count > 1 Then Exit Sub
    
19.     If Target.Column = 1 And Target = -1 Then
    
20.         Target.Offset(0, 1).Activate
    
21.     End If
    
22. End Sub

复制代码

龙城飞将III

蝶舞1199 发表于 2016-2-21 22:08

试试这个：

蝶舞1199

龙城飞将III 发表于 2016-2-21 22:33
试试这个：

你好！我下载试了一下，上次的问题解决了，只是现在好像只有在G列公式回车后A列才能显示数据-1，当G列有变化时A列不会自动更新！

ynqblb

学习学习学习！