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

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

۲ مطلب با کلمه‌ی کلیدی «نرمال کردن داده ها در اکسل» ثبت شده است

جمعه, ۲۴ ارديبهشت ۱۳۹۵، ۰۹:۱۸ ب.ظ

نرمال سازی بین -1 و 1 در اکسل

Sub norm()
Dim max, min As Single
Dim d2, d1, k As Integer
d1 = -1
d2 = 1
k = 0
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
k = LastRow + 1
For i = 1 To LastRow
LastCol = Cells(i, Columns.Count).End(xlToLeft).Column

k = k + 1
Rw = Range(Cells(i, 1), Cells(i, LastCol))
min = WorksheetFunction.min(Rw)
max = WorksheetFunction.max(Rw)
For j = 1 To LastCol
Cells(k, j) = (((Cells(i, j) - min) * (d2 - d1) / (max - min))) + d1
 
Next j
Next i
End Sub

مشاهده فیلم این برنامه در آپارات

http://www.aparat.com/v/yTu4P

نکات:   حتما اطلاعات را به حالت سطری مرتب کنید، سطر ها عنوان نداشته باشند، d1 و d2  که بازه نرمال سازی هستند به دلخواه خود تغییر دهید.

اگه مشکلی داشتید به گروه تلگرام زیر بیاید

https://telegram.me/joinchat/BozDJQjn6p28fgJJ-6CMLQ

۰ نظر موافقین ۰ مخالفین ۰ ۲۴ ارديبهشت ۹۵ ، ۲۱:۱۸
وبلاگ نویس
يكشنبه, ۱۵ آذر ۱۳۹۴، ۰۹:۳۱ ق.ظ

نرمال کردن سطر داده بین 0 و 1

کد زیر می تواند تمام سطر های اکسل را به صورت مجزا نرمال نماید

دوستانی نمیتونن با این کد کار کنن حتما تو نظرات بگید که مفصل توضیح بدم براشون

Sub normal()

For i = 1 To 91 ' تعداد سطرها
For j = 2 To 2076 ' تعداد ستون ها
Cells(i, j) = (Cells(i, j) - Cells(i, 2078)) / (Cells(i, 2077) - Cells(i, 2078))
Next j
Next i

End Sub
۳ نظر موافقین ۰ مخالفین ۰ ۱۵ آذر ۹۴ ، ۰۹:۳۱
وبلاگ نویس