改用VBA输入数据

czm1818

我的这张表C列数据是用扫描枪扫描输入的，然后D，E，F，G，I列根据C列用函数自动算的，由于数据量现在越来越多和函数太多关系，
此表速度越来越慢了，我不堪忍受，望高人帮忙用VBA能自动输入.
VBA输入数据.rar (30.41 KB, 下载次数: 133)

2011-12-12 20:07 上传

点击文件名下载附件

蓝桥玄霜

1. Sub yy()
   
2. Dim Arr, i&, Myr&, Brr
   
3. Myr = [a65536].End(xlUp).Row
   
4. Range("d3:g" & Myr).ClearContents
   
5. Range("i3:i" & Myr).ClearContents
   
6. Arr = Range("a3:j" & Myr)
   
7. ReDim Brr(1 To UBound(Arr), 1 To 7)
   
8. For i = 1 To UBound(Arr)
   
9.     Brr(i, 1) = Left(Arr(i, 3), 5)
   
10.     Brr(i, 2) = Left(Right(Arr(i, 3), 11), 4)
    
11.     Brr(i, 3) = Left(Right(Arr(i, 3), 7), 1) & "#"
    
12.     Brr(i, 4) = Split(Arr(i, 3), "+")(1)
    
13.     Brr(i, 5) = Arr(i, 8)
    
14.     If Arr(i, 8) <> "" Then
    
15.         Brr(i, 6) = "C" & Right(Left(Arr(i, 3), 17), 16) & "-" & Arr(i, 8)
    
16.     Else
    
17.         Brr(i, 6) = ""
    
18.     End If
    
19.     Brr(i, 7) = Arr(i, 10)
    
20. Next
    
21. [d3].Resize(UBound(Brr), 7) = Brr
    
22. End Sub
    

复制代码

czm1818

蓝桥玄霜 发表于 2011-12-13 12:55

蓝桥玄霜
感谢你的帮助！  代码运行很好，但如果我要直接打开工作表自动运行，不用单独运行按钮等控件，该怎么设置
代码？

lzqlaj

Private Sub Workbook_Open()
yy
End Sub

czm1818

现在又碰到个问题，如果行数据多了（3000行），程序好像是重复运行的，速度就慢了，我原先意思可能表达不明了。

1，我目的想通过输入了C列数据（如C3）后，D3，E3，F3，G3自动输；然后输入H3后，I3自动输。
2，C列单元格输好数据也就是自动输入好的数据，程序就不再运行，其实就是自动输的程序只运行在新增条目上。
还请高人再优化一下啊

czm1818

蓝桥玄霜 发表于 2011-12-13 12:55

现在又碰到个问题，如果行数据多了（3000行），程序好像是重复运行的，速度就慢了，我原先意思可能表达不明了。

1，我目的想通过输入了C列数据（如C3）后，D3，E3，F3，G3自动输；然后输入H3后，I3自动输。
2，C列单元格输好数据也就是自动输入好的数据，程序就不再运行，其实就是自动输的程序只运行在新增条目上。
还请高人再优化一下啊
3，我清除C列某个单元格数据不会出现死循环

蓝桥玄霜

改为工作表变化事件，在C列输入，其它几列自动输入。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Or Target = "" Then Exit Sub
   
3. If (Target.Column <> 3 And Target.Column <> 8) Or Target.Row < 3 Then Exit Sub
   
4. Dim aa
   
5. aa = Target.Value
   
6. If Target.Column = 3 Then
   
7.     Target.Offset(0, 1) = Left(aa, 5)
   
8.     Target.Offset(0, 2) = Left(Right(aa, 11), 4)
   
9.     Target.Offset(0, 3) = Left(Right(aa, 7), 1) & "#"
   
10.     Target.Offset(0, 4) = Split(aa, "+")(1)
    
11. Else
    
12.     If aa <> "" Then
    
13.         Target.Offset(0, 1) = "C" & Right(Left(Target.Offset(0, -5).Value, 17), 16) & "-" & aa
    
14.     Else
    
15.         Target.Offset(0, 1) = ""
    
16.     End If
    
17. End If
    
18. End Sub

复制代码

czm1818

蓝桥玄霜 发表于 2011-12-13 21:26
改为工作表变化事件，在C列输入，其它几列自动输入。

不愧是版主，太厉害了，非常好用，感谢你的帮助