سلام میلاد

فرض کن اعداد ما در محدوده A1:A10 و معدل آن ها در سلول D1 محاسبه میشه

اول در محدوده A1:A10 از تابع رندوم به صورت ذیل استفاده کن

=RANDBETWEEN(0,20)

بعد ماکروی ذیل رو اجرا کن

Sub Generate_Num()
Dim X As Integer
Dim Msg As Variant
X = 1
‘
Do While X = 1
Application.Calculate
If Range(“D1”) = 17 Then
Msg = MsgBox(“OK”, vbInformation, “sheet1.ir”)
X = 0
Exit Do
End If
Loop
End Sub

ابن کد تا زمانی که معدل اعداد تصادفی ایجاد شده برابر 17 بشود، اجرا میشه

البته این راه حل بهینه ای نیست و ممکنه کمی زمانبر باشه ولی جواب میده