卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

Excel VBA批量計(jì)算小公倍數(shù)的方法

打開(kāi)工作表和VBA編輯代碼窗口首先,打開(kāi)Excel并創(chuàng)建一個(gè)工作表作為示例。然后,在Excel中打開(kāi)VBA編輯器,輸入以下代碼:```vbaSub 最小公倍數(shù)() Dim m As Integ

打開(kāi)工作表和VBA編輯代碼窗口

首先,打開(kāi)Excel并創(chuàng)建一個(gè)工作表作為示例。然后,在Excel中打開(kāi)VBA編輯器,輸入以下代碼:

```vba

Sub 最小公倍數(shù)()

Dim m As Integer, n As Integer

Dim m1 As Integer, n1 As Integer

Dim t As Integer

For i 1 To 10

m Sheet3.Cells(i, 1).Value

n Sheet3.Cells(i, 2).Value

m

m1 m

n1 n

If m1 < n1 Then

m1 n

n1 m '交換m和n的值

End If

Do

m1

r m1 Mod n1

If r 0 Then Exit Do

m1 n1

n1 r

Loop

str1 "最小公倍數(shù)" m * n / n1

Sheet3.Cells(i, 3).Value str1

Next

End Sub

```

使用For循環(huán)讀取數(shù)組數(shù)據(jù)

為了批量計(jì)算小公倍數(shù),我們需要使用For循環(huán)來(lái)讀取數(shù)組數(shù)據(jù),如上述代碼所示。

利用輾轉(zhuǎn)相除法求解最小公倍數(shù)

輾轉(zhuǎn)相除法是一種方法,用于求解兩個(gè)整數(shù)的最大公約數(shù),其中較小的數(shù)與兩數(shù)的和相除后得到的余數(shù)即為最大公約數(shù)。首先利用該方法求出兩個(gè)數(shù)的最大公約數(shù)。

計(jì)算最小公倍數(shù)

根據(jù)公式MN/r計(jì)算出最小公倍數(shù),并在工作表中插入一個(gè)宏按鈕來(lái)運(yùn)行此宏。最終將計(jì)算結(jié)果寫(xiě)入工作表中。

執(zhí)行批量計(jì)算

點(diǎn)擊宏按鈕即可進(jìn)行計(jì)算,若需處理大量數(shù)據(jù),可修改For語(yǔ)句中的i值以實(shí)現(xiàn)批量計(jì)算的目的。通過(guò)調(diào)整代碼中的i值范圍,可以批量填充更多的單元格數(shù)量,從而實(shí)現(xiàn)批量計(jì)算的效果。

標(biāo)簽: