[已解决]关于是用VBA在单元格内多个数值计算的问题，求助

ccc919

列如A1单元格内有 60/30/50 数值，也可能是 80/70/60/50 数量是随机的数值也是随机不一定的，也有可能是 90/80/70/20/50 请问 我需要在B2单元格计算并且显示出结果， 计算公式为 都乘以20%  列如： A1单元格内 为 60/30/50 则B2计算显示结果为12/6/10，如A1 单元格内变量数值为 80/70/60/50 则B2单元格内为 16/14/12/10 。 求各位帮帮忙谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-6 10:41

…………

跳转到最佳答案楼层

dsmch

…………

26759761@qq.com

自定义函数

1. Function 计算(rg As Range)
   
2. ar = Split(rg, "/")
   
3.   For x = 0 To UBound(ar)
   
4.    ar(x) = ar(x) / 5
   
5.   Next
   
6.   计算 = Join(ar, "/")
   
7. End Function

复制代码

grf1973

1. Sub tt()
   
2.     r = [a65536].End(3).Row
   
3.     arr = Range("a1:a" & r)
   
4.     ReDim brr(1 To r, 1 To 1)
   
5.     For i = 1 To r
   
6.         xrr = Split(arr(i, 1), "/")
   
7.         For j = 0 To UBound(xrr)
   
8.             xrr(j) = Int(Val(xrr(j)) / 5)
   
9.         Next
   
10.         brr(i, 1) = "'" & Join(xrr, "/")
    
11.     Next
    
12.     [b1].Resize(r, 1) = brr
    
13. End Sub
    

复制代码

ccc919

dsmch 发表于 2015-3-6 10:41
…………

如果20%为变量应该怎么写？ 可能是 50% 60%或者90%

dsmch

公式=js(单元格，变量）

1. Function js(rng, x)
   
2. w = Split(rng, "/")
   
3. For i = 0 To UBound(w)
   
4.     w(i) = w(i) * x
   
5. Next
   
6. js = Join(w, "/")
   
7. End Function

复制代码