vba 初试

 选择-插入- 模块

然后加入如下代码: 保存

Function hcf(m, n)
If m < n Then
t = m: m = n: n = t
End If
r = m Mod n
Do While r > 0
m = n
n = r
r = m Mod n

Loop
hcf = n
End Function

 

在C1栏中定位光标 然后输入公式
=hcf(A1,B1)

计算出结果(求最小公倍数):

 

 demo download

 

你可能感兴趣的:(vba 初试)