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

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

۱ مطلب با کلمه‌ی کلیدی «انحراف معیار اکسل» ثبت شده است

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
۱ نظر موافقین ۰ مخالفین ۰ ۱۵ فروردين ۹۵ ، ۱۳:۱۹
وبلاگ نویس