分数通分运算的自定义函数

香川群子

对分数进行分母通分以后的加减运算。

1. Function TF(f1, f2, Optional k = 0)
   
2.         a1 = Trim(Split(f1, "/")(0)): b1 = Split(f1, "/")(1)
   
3.         a2 = Trim(Split(f2, "/")(0)): b2 = Split(f2, "/")(1)
   
4.         t1 = b1: t2 = b2
   
5.         Do
   
6.             If t1 < t2 Then t = t1: t1 = t2: t2 = t
   
7.             t1 = t1 Mod t2
   
8.         Loop While t1
   
9.         
   
10.         Select Case k
    
11.             Case 0
    
12.                 TF = " " & a1 * b2 / t2 + a2 * b1 / t2 & "/" & b1 * b2 / t2 '通分+運算
    
13.             Case 1
    
14.                 TF = b2 / t2 '第1項乗数
    
15.             Case 2
    
16.                 TF = b1 / t2 '第2項乗数
    
17.             Case 3
    
18.                 TF = b1 * b2 / t2 'fm=最小公倍数
    
19.             Case 4
    
20.                 TF = t2 '最大公約数
    
21.             Case 5
    
22.                 TF = " " & a1 * b2 / t2 - a2 * b1 / t2 & "/" & b1 * b2 / t2 '通分-運算
    
23.         End Select
    
24. End Function
    

复制代码

还有，对复数单元格内数值进行【最小公倍数】、【最大公约数】计算的自定义函数：

1. Function LS(Rng As Range, Optional k = 0)  '連続範囲最大公約数と最小公倍数
   
2.     Dim t&, t1&, t2&, i%, LM, SM
   
3.     LM = 1
   
4.     For i = 1 To Rng.Cells.Count
   
5.         If IsNumeric(Rng.Cells(i)) And Rng.Cells(i) > 0 Then
   
6.             If k = 0 Then t1 = LM Else If SM = 0 Then t1 = Rng.Cells(i) Else t1 = SM
   
7.             t2 = Rng.Cells(i)
   
8.             Do
   
9.                 If t1 < t2 Then t = t1: t1 = t2: t2 = t
   
10.                 t1 = t1 Mod t2
    
11.             Loop While t1
    
12.             LM = LM * Rng.Cells(i) / t2
    
13.             SM = t2
    
14.         End If
    
15.     Next
    
16.     If k = 0 Then LS = LM Else LS = SM
    
17. End Function

复制代码

香川群子

稍加改进。多了最简分数的计算。

1. Function TF(f1, Optional f2 = 0, Optional k = 0)
   
2.         a1 = Trim(Split(f1, "/")(0)): b1 = Split(f1, "/")(1)
   
3.         If f2 = 0 Then
   
4.             T1 = Abs(a1): T2 = b1
   
5.             Do
   
6.                 If T1 < T2 Then t = T1: T1 = T2: T2 = t
   
7.                 T1 = T1 Mod T2
   
8.             Loop While T1
   
9.             TF = " " & a1 / T2 & "/" & b1 / T2 '通分-運算
   
10.             Exit Function '如果只输入一个未知值f1，第2参数缺省则自动进行最简分数的计算。
    
11.         End If
    
12.         
    
13.         a2 = Trim(Split(f2, "/")(0)): b2 = Split(f2, "/")(1)
    
14.         T1 = b1: T2 = b2
    
15.         Do
    
16.             If T1 < T2 Then t = T1: T1 = T2: T2 = t
    
17.             T1 = T1 Mod T2
    
18.         Loop While T1
    
19.         
    
20.         fz = a1 * b2 / T2 + a2 * b1 / T2
    
21.         fm = b1 * b2 / T2
    
22.         T3 = Abs(fz): T4 = fm
    
23.         Do
    
24.             If T3 < T4 Then t = T3: T3 = T4: T4 = t
    
25.             T3 = T3 Mod T4
    
26.         Loop While T3
    
27.         
    
28.         Select Case k
    
29.             Case -2
    
30.                 TF = " " & fz / T4 & "/" & fm / T4 '通分-運算结果为最简分数
    
31.             Case -1
    
32.                 TF = " " & a1 * b2 / T2 - a2 * b1 / T2 & "/" & b1 * b2 / T2 '通分-運算
    
33.             Case 0
    
34.                 TF = " " & a1 * b2 / T2 + a2 * b1 / T2 & "/" & b1 * b2 / T2 '通分+運算
    
35.             Case 1
    
36.                 TF = b2 / T2 '第1項乗数
    
37.             Case 2
    
38.                 TF = b1 / T2 '第2項乗数
    
39.             Case 3
    
40.                 TF = b1 * b2 / T2 'fm=最小公倍数
    
41.             Case 4
    
42.                 TF = T2 '最大公約数
    
43.         End Select
    
44. End Function

复制代码

wenwen000424

做个记号，学习一下。

bjshhdq

香川老师，你好！
    有一个问题，在论坛里像不少侠圣也表示无法按条件解决，听说您是EH女中豪杰，所以麻烦你帮一下忙。
    问题帖子在：
    http://club.excelhome.net/forum. ... p;page=1#pid6509962
      谢谢！

bailanhong

厉害(*^__^*) 嘻嘻……

jinhaitiao16

做个记号，学习一下