求助VBA代码（公式转换成代码）

wulunting

求助VBA代码（公式转换成代码），在此先谢谢各位老师了

ykcbf1100

同一个订单号会有超过８条记录吗？

wulunting

ykcbf1100 发表于 2024-12-24 14:13
同一个订单号会有超过８条记录吗？

有时会有超过8条记录的，大约10条吧

wulunting

19至30行被隐藏了，这个开单页面最多设置的是20条记录

ykcbf1100

wulunting 发表于 2024-12-24 14:16
有时会有超过8条记录的，大约10条吧

如果超过１０条还显示在一个表中吗？
合计和大写公式也要转换吗？

wulunting

ykcbf1100 发表于 2024-12-24 14:35
如果超过１０条还显示在一个表中吗？
合计和大写公式也要转换吗？

是的，超过10条也显示在一个表中，合计和大写公式就不改动了，只改蓝色字体的单元格。感谢老师的帮助

ykcbf1100

wulunting 发表于 2024-12-24 14:40
是的，超过10条也显示在一个表中，合计和大写公式就不改动了，只改蓝色字体的单元格。感谢老师的帮助

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.12.24
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     For Each Sht In Sheets
   
5.         If InStr("订单号|开单模板", Sht.Name) = 0 Then Sht.Delete
   
6.     Next
   
7.     With Sheets("订单号")
   
8.         r = .Cells(Rows.Count, "g").End(3).Row
   
9.         arr = .Range("e5:o" & r)
   
10.     End With
    
11.     ReDim brr(1 To 100, 1 To 8)
    
12.     If r > 5 Then
    
13.         dd = arr(2, 3)
    
14.         kh = arr(2, 1)
    
15.         rq = Format(Date, "yyyy-m-d")
    
16.     End If
    
17.     For i = 2 To UBound(arr)
    
18.         m = m + 1
    
19.         For j = 4 To UBound(arr, 2)
    
20.             brr(m, j - 3) = arr(i, j)
    
21.         Next
    
22.     Next
    
23.     x = 10: y = 6: r = 12
    
24.     Sheets("开单模板").Copy After:=Sheets(Sheets.Count)
    
25.     Set Sht = Sheets(Sheets.Count)
    
26.     With Sht
    
27.         .[g11:o18] = ""
    
28.         .[g7] = rq: .[g8] = kh
    
29.         .[i7] = dd
    
30.         .Name = dd
    
31.         If m > 8 Then .Rows(r).Resize(m - 8).Insert
    
32.         For i = 1 To m
    
33.             For j = 1 To UBound(brr, 2)
    
34.                 .Cells(x + i, j + y) = brr(i, j)
    
35.             Next
    
36.         Next
    
37.     End With
    
38.     Application.ScreenUpdating = True
    
39.     MsgBox "OK！"
    
40. End Sub
    

复制代码

wulunting

ykcbf1100 发表于 2024-12-24 14:50
附件供参考。。。

非常完美的结果，大师，能不能再优化一下，直接把结果显示在  ‘开单模板’  内，而不是另外生成一张新的单。

laoye5403

练手,供参考