Sub自動計算()
將I標註為整數
Dim randomNum為Double
雙精度模糊結果
對於i = 1到5 '假設要計算的行數是5。
RandomNum = Rnd() * 0.2+0.8 '生成從80%到100%的隨機數。
範圍(" A " & amp我)。在a列寫壹個隨機數。
RandomNum = Rnd() * 0.2+0.8 '生成從80%到100%的隨機數。
範圍(" B " & amp我)。在b列寫壹個隨機數。
RandomNum = Rnd() * 0.2+0.8 '生成從80%到100%的隨機數。
範圍(" C " & amp我)。在c列寫壹個隨機數。
結果=範圍(" C " & amp我)。值/範圍(" A " & amp我)。數值+範圍。我)。價值
如果結果& gt= 0.2,如果結果不小於20%
MsgBox“第壹個”&;我& amp"行不符合要求,需要重新計算."
範圍(" A " & amp我& amp":C " & amp我)。' ClearContents '清除該行的數據。
如果…就會結束
接下來我
末端接頭
您可以將上述代碼復制粘貼到Excel的VBA編輯器中,然後設置壹個按鈕來觸發代碼的執行。點擊按鈕,代碼會自動在表格中生成壹個隨機數,自動判斷是否符合要求。如果某行的計算結果不符合要求,該行將被清除並重新計算。當所有行都滿足要求時,程序執行結束。