把公式转为vba代码

梦羽111

各位老师,想把单元格里面的公式转为代码，请各位老师帮帮忙，谢谢

ykcbf1100

附件供参考。。。

ykcbf1100

更新一下，刚才代码有误。

1. Sub ykcbf()  '//2024.5.2
   
2.     r = Cells(Rows.Count, 2).End(3).Row
   
3.     arr = [a1].Resize(r, 12)
   
4.     For i = 3 To UBound(arr)
   
5.         st = "1.00"
   
6.         For j = 2 To 7
   
7.             If arr(i, j) <> "/" Then
   
8.                 st = st & ":" & Round(arr(i, j) / arr(i, 1), 2)
   
9.             End If
   
10.         Next
    
11.         For j = 8 To 11
    
12.             If arr(i, j) <> "/" Then
    
13.                 st = st & ":" & Round(arr(i, j) / arr(i, 1), 3)
    
14.             End If
    
15.         Next
    
16.         st = st & ":" & Round(arr(i, 11) / arr(i, 1), 2)
    
17.         arr(i, 12) = st
    
18.     Next
    
19.    
    
20.     [l1].Resize(r, 1) = Application.Index(arr, 0, 12)
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a3:k" & r)
   
7.         ReDim brr(1 To UBound(arr), 1 To 1)
   
8.         For i = 1 To UBound(arr)
   
9.             brr(i, 1) = "1.00"
   
10.             For j = 2 To UBound(arr, 2)
    
11.                 If Len(arr(i, j)) <> 0 And IsNumeric(arr(i, j)) Then
    
12.                     brr(i, 1) = brr(i, 1) & ":" & Application.Round(arr(i, j) / arr(i, 1), IIf(j >= 8 And j <= 10, 3, 2))
    
13.                 End If
    
14.             Next
    
15.         Next
    
16.         .Range("l3").Resize(UBound(brr), 1) = brr
    
17.     End With
    
18. End Sub
    

复制代码

chxw68

参与一下，复习一下基础知识。

chxw68

ykcbf1100 发表于 2024-5-2 07:07
参与一下。。。

提个建议：VBA的round()函数是四舍六入五单双，与咱们使用习惯不太一样的，一般要用工作表Round()函数。

ykcbf1100

chxw68 发表于 2024-5-2 07:26
提个建议：VBA的round()函数是四舍六入五单双，与咱们使用习惯不太一样的，一般要用工作表Round()函数。

老师说的在理。我以后注意一下。

梦羽111

chxw68 发表于 2024-5-2 07:26
提个建议：VBA的round()函数是四舍六入五单双，与咱们使用习惯不太一样的，一般要用工作表Round()函数。

老师我是土木行业，就是四舍6入五看单双

chxw68

梦羽111 发表于 2024-5-2 09:24
老师我是土木行业，就是四舍6入五看单双

那就ykcbf1100老师写的代码正确。

jjmysjg

chxw68 发表于 2024-5-2 07:20
参与一下，复习一下基础知识。

遇到不是数字就,以“—”占位，这样上下行格式能对其，这样更好。