نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: تولید اعداد رندوم با یک میانگین مشخص

  1. #1


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,398
    امتیاز
    12755
    سپاس
    4,636
    سپاس شده
    12,131 در 3,223 پست
    سطح اکسل
    70.00 %

    تولید اعداد رندوم با یک میانگین مشخص

    درود

    از طریق کد زیر 4 عدد رندوم با میانگین 70 تولید خواهد شد :

    کد PHP:


    Sub Macro1
    ()
    a:
    DoEvents
    For 1 To 4
        Cells
    (1i) = 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 
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.




  2.  

  3. #2


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,482
    امتیاز
    12357
    سپاس
    8,954
    سپاس شده
    10,628 در 3,753 پست
    سطح اکسل
    100.00 %

    اگه اون چهار عدد نتونن ميانگين مورد نظر رو بسازن تكليف چيه؟


  4. #3


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,398
    امتیاز
    12755
    سپاس
    4,636
    سپاس شده
    12,131 در 3,223 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط amir ghasemiyan نمایش پست ها
    اگه اون چهار عدد نتونن ميانگين مورد نظر رو بسازن تكليف چيه؟
    این اتفاق نمیفته و حتما باید میانگین ساخته بشه تا کد متوقف بشه




  5. #4


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,482
    امتیاز
    12357
    سپاس
    8,954
    سپاس شده
    10,628 در 3,753 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط ~M*E*H*D*I~ نمایش پست ها
    این اتفاق نمیفته و حتما باید میانگین ساخته بشه تا کد متوقف بشه
    خب ميدونم. مثلا اگه طرف ميانگين رو بزنه -10 اونوقت چي؟

  6. سپاس ها (2)


  7. #5


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,398
    امتیاز
    12755
    سپاس
    4,636
    سپاس شده
    12,131 در 3,223 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط amir ghasemiyan نمایش پست ها
    خب ميدونم. مثلا اگه طرف ميانگين رو بزنه -10 اونوقت چي؟
    کد PHP:
    Sub Macro1()
    a:
    DoEvents
    For 1 To 4
        Cells
    (1i) = 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 




  8. #6


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,482
    امتیاز
    12357
    سپاس
    8,954
    سپاس شده
    10,628 در 3,753 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط ~M*E*H*D*I~ نمایش پست ها
    کد PHP:
    Sub Macro1()
    a:
    DoEvents
    For 1 To 4
        Cells
    (1i) = 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 
    دستت درد نكنه ولي اينم يه مشكلي داره :دي
    اگه عدد ميانگين مثبت باشه جواب نميده

    بذار يه كد بنويسم كه هر عددي بدي پوشش ميده


  9. #7


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,482
    امتیاز
    12357
    سپاس
    8,954
    سپاس شده
    10,628 در 3,753 پست
    سطح اکسل
    100.00 %

    با اجازه استاد وطن پرست.
    الان ميدونم چه حرصي ميخوره از دست من
    اين كد براي هر عددي جواب ميده.مثبت، منفي و حتي صفر
    اگه كسي بلده كد كوتاه تري بنويسه خوشحال ميشم اينجا به اشتراك بذاره

    کد:
    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



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. عدم اضافه کردن کنترل به تولباکس
    توسط امیر رضا دهقان در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2013/01/19, 01:56
  2. لینک یک سلول از اکسل با خطی در اتوکد
    توسط mrdn66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2012/12/16, 09:43
  3. متونیم یه ردیف ایجاد کنیم مابین ردیفهای دیگه
    توسط mahdiking در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2012/11/05, 10:35
  4. اتوکد
    توسط ashkan در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/09/10, 01:34
  5. برنامه توليد
    توسط mshahin در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/07/26, 12:21

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است