macro to add fraction numbers

[ramkumarcn]

Hi,

I am trying to design a VBA macro to add fraction values. For eg. if the values are 2/3 and 1/4 then the sum should be 3/7. that is it should add both the numerators as well as denominators. Could you please help me with the code?

 

[MickG]

Try:-

Function Frac(RngA As Range, RngB As Range) As String
Dim A, B
A = Split(RngA, "/")
B = Split(RngB, "/")
Frac = Val(A(0)) + Val(B(0)) & "/" & Val(A(1)) + Val(B(1))
End Function