همه چیز را همگان دانند

اشتراک دانش
همه چیز را همگان دانند
با سلام و عرض احترام خدمت شما
در صورتی که هر کدوم از مطالب به کارتون میاد اطلاع بدید تا راهنمایی کامل تر براتوم ارسال کنم و یا برنامه ای برای مسئله شما بنویسم

۲ مطلب در فروردين ۱۳۹۵ ثبت شده است

شنبه, ۲۸ فروردين ۱۳۹۵، ۱۱:۱۰ ق.ظ

واریانس

۰ نظر موافقین ۰ مخالفین ۰ ۲۸ فروردين ۹۵ ، ۱۱:۱۰
وبلاگ نویس
Sub foryou()
Dim j As Integer
Dim i As Integer

i = 14 'Select a row

  Rw = Range(Cells(i, 2), Cells(i, 2076)) 'Range beetwen 2 to 2076(column)
 
    Min = WorksheetFunction.Min(Rw)
    Max = WorksheetFunction.Max(Rw)
    avg = WorksheetFunction.Average(Rw)
    std = WorksheetFunction.StDev(Rw)
    
  Cells(15 + i, 2) = Max
  Cells(15 + i, 3) = Min
  Cells(15 + i, 4) = avg
  Cells(15 + i, 5) = std
End Sub
۱ نظر موافقین ۰ مخالفین ۰ ۱۵ فروردين ۹۵ ، ۱۳:۱۹
وبلاگ نویس