توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : تولید اعداد رندوم با یک میانگین مشخص
~M*E*H*D*I~
2014/05/20, 13:54
درود
از طریق کد زیر 4 عدد رندوم با میانگین 70 تولید خواهد شد :
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
Amir Ghasemiyan
2014/05/20, 14:31
اگه اون چهار عدد نتونن ميانگين مورد نظر رو بسازن تكليف چيه؟ ;)
~M*E*H*D*I~
2014/05/20, 14:42
اگه اون چهار عدد نتونن ميانگين مورد نظر رو بسازن تكليف چيه؟ ;)
این اتفاق نمیفته و حتما باید میانگین ساخته بشه تا کد متوقف بشه:p
Amir Ghasemiyan
2014/05/20, 16:10
این اتفاق نمیفته و حتما باید میانگین ساخته بشه تا کد متوقف بشه:p
خب ميدونم. مثلا اگه طرف ميانگين رو بزنه -10 اونوقت چي؟ ;)
~M*E*H*D*I~
2014/05/20, 17:49
خب ميدونم. مثلا اگه طرف ميانگين رو بزنه -10 اونوقت چي؟ ;)
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) = -10 Then
MsgBox "OK"
Exit Sub
Else
GoTo a
End If
End Sub
Amir Ghasemiyan
2014/05/20, 17:58
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) = -10 Then
MsgBox "OK"
Exit Sub
Else
GoTo a
End If
End Sub
دستت درد نكنه ولي اينم يه مشكلي داره :دي
اگه عدد ميانگين مثبت باشه جواب نميده
بذار يه كد بنويسم كه هر عددي بدي پوشش ميده
Amir Ghasemiyan
2014/05/20, 18:33
با اجازه استاد وطن پرست.
الان ميدونم چه حرصي ميخوره از دست من ;)
اين كد براي هر عددي جواب ميده.مثبت، منفي و حتي صفر
اگه كسي بلده كد كوتاه تري بنويسه خوشحال ميشم اينجا به اشتراك بذاره
Sub Macro1()
Dim ave As Integer
ave = 10
If ave < 0 Then
n1 = 1
n2 = 1
ElseIf ave > 0 Then
n1 = 2
n2 = 2
Else
n1 = 1
n2 = 2
End If
a:
DoEvents
For i = 1 To 4 Step 2
Cells(1, i) = Round(Rnd(1) * 100 * (-1) ^ n1)
Cells(1, i + 1) = Round(Rnd(1) * 100 * (-1) ^ n2)
Next i
If WorksheetFunction.Average(Range("a1:d1").Value) = ave Then
MsgBox "OK"
Exit Sub
Else
GoTo a
End If
End Sub
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.