[已解决]这几个函数公式怎么转化成VBA代码？

mathking77

A列和B列是数据， CDE列是我用函数公式得出的数据 是我需要的值
能不能用VBA代码直接得出这些结果
运行代码后 得到的结果 能够直接覆盖掉AB列原数据，E列的数据放在C列

我用的函数公式是
C,D列： 小数点后小于0.33的都舍去，0.33-0.83的都算成0.5，大于0.83的都进一位
E列：D列大于3就记1


求教 用VBA代码应该如何写？

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-25 19:39

结果会生成在H-J

1. Sub xx()
   
2.     Dim arr, brr()
   
3.     arr = Sheet1.Range("A1:B17")
   
4.     ReDim brr(1 To UBound(arr, 1))
   
5.     For i = 1 To UBound(arr, 1)
   
6.         arr(i, 1) = 取值(arr(i, 1))
   
7.         arr(i, 2) = 取值(arr(i, 2))
   
8.         If arr(i, 2) > 3 Then brr(i) = 1
   
9.     Next
   
10.     Sheet1.Range("H1").Resize(UBound(arr, 1), 2) = arr
    
11.     Sheet1.Range("J1").Resize(UBound(arr, 1), 1) = Application.WorksheetFunction.Transpose(brr)
    
12. End Sub
    
13. Function 取值(ByVal x As Double) As Double
    
14.     If x - Int(x) > 0.83333 Then
    
15.         取值 = Round(x, 0)
    
16.     ElseIf x - Int(x) < 0.33333 Then
    
17.         取值 = Int(x)
    
18.     Else
    
19.         取值 = Int(x) + 0.5
    
20.     End If
    
21. End Function

复制代码

，可以自己改一下参数，生成到A-C

跳转到最佳答案楼层

老司机带带我

结果会生成在H-J

1. Sub xx()
   
2.     Dim arr, brr()
   
3.     arr = Sheet1.Range("A1:B17")
   
4.     ReDim brr(1 To UBound(arr, 1))
   
5.     For i = 1 To UBound(arr, 1)
   
6.         arr(i, 1) = 取值(arr(i, 1))
   
7.         arr(i, 2) = 取值(arr(i, 2))
   
8.         If arr(i, 2) > 3 Then brr(i) = 1
   
9.     Next
   
10.     Sheet1.Range("H1").Resize(UBound(arr, 1), 2) = arr
    
11.     Sheet1.Range("J1").Resize(UBound(arr, 1), 1) = Application.WorksheetFunction.Transpose(brr)
    
12. End Sub
    
13. Function 取值(ByVal x As Double) As Double
    
14.     If x - Int(x) > 0.83333 Then
    
15.         取值 = Round(x, 0)
    
16.     ElseIf x - Int(x) < 0.33333 Then
    
17.         取值 = Int(x)
    
18.     Else
    
19.         取值 = Int(x) + 0.5
    
20.     End If
    
21. End Function

复制代码

，可以自己改一下参数，生成到A-C

mathking77

老司机带带我 发表于 2016-6-25 19:39
结果会生成在H-J，可以自己改一下参数，生成到A-C

好的 非常感谢，请问大神 这个根据日期取周几数据的和 代码该如何写？http://www.excelpx.com/thread-419280-1-1.html
我根据你上次帮我做的就餐代码 自己尝试修改写，我先插了列星期数 打算把星期列中1-5的数据相加 你有没有办法直接根据日期 不插星期列来做？