درود
از طریق کد زیر 4 عدد رندوم با میانگین 70 تولید خواهد شد :
از طریق کد زیر 4 عدد رندوم با میانگین 70 تولید خواهد شد :
کد PHP:
Sub Macro1()
a:
DoEvents
For i = 1 To 4
Cells(1, i) = Round(Rnd(1) * 100)
Next i
If WorksheetFunction.Average(Range("a1:d1").Value) = 70 Then
MsgBox "OK"
Exit Sub
Else
GoTo a
End If
End Sub
کامنت