自动填写，请帮忙编程，谢谢！

wgxfhi11

自动填写，请帮忙编程，谢谢！

grf1973

1. Sub 自动填写()
   
2.     r = [f65536].End(3).Row + 2
   
3.     Range("H7:ak" & r) = ""
   
4.     arr = Range("e5:ak" & [f65536].End(3).Row + 2)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For j = 5 To UBound(arr, 2)
   
7.         d(arr(2, j)) = j
   
8.     Next
   
9.     For i = 3 To UBound(arr) - 2
   
10.         sl = Val(arr(i, 1))  '数量
    
11.         x = arr(i, 2) '工序工时
    
12.         Do While Len(x) > 0        '分离工序、工时
    
13.             For k = 1 To Len(x)
    
14.                 If InStr("0123456789", Mid(x, k, 1)) > 0 Then Exit For
    
15.             Next
    
16.             gx = Left(x, k - 1)   '工序
    
17.             gs = Val(Mid(x, k))    '工时
    
18.             y = gs * sl     '工时*数量
    
19.             zgs = zgs + y '总工时
    
20.             arr(i, 4) = arr(i, 4) + y
    
21.             c = d(gx)
    
22.             If c > 0 Then arr(i, c) = y: arr(UBound(arr), c) = arr(UBound(arr), c) + y
    
23.             x = Replace(x, gx & gs, "")
    
24.         Loop
    
25.     Next
    
26.     arr(UBound(arr) - 1, 4) = zgs
    
27.     Range("e5:ak" & [f65536].End(3).Row + 2) = arr
    
28.     For j = 5 To UBound(arr, 2)
    
29.         x = arr(UBound(arr), j)
    
30.         If x > 0 Then xstr = xstr & arr(2, j) & x
    
31.     Next
    
32.     Cells(r, 4) = xstr
    
33. End Sub

复制代码

wgxfhi11

为什么我一点击就死机了

wgxfhi11

grf1973 发表于 2016-3-1 16:25

你好，为什么我一点击就没反应，死机了！

grf1973

是不是工序工时那一列有不规范的内容？如果不规范，会死循环的。

grf1973

我上传的附件应该是没有问题的。

wgxfhi11

就是下载你的附件的，一点击就没反应

grf1973

怎么会呢？难道是你的版本不对？

wgxfhi11

那能否再重新上传，我再下载试试呢，谢谢

grf1973

不会禁用宏了吧？所以点击没反应。