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

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

۱ مطلب با کلمه‌ی کلیدی «-1 تا +1» ثبت شده است

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

نرمال سازی بین -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

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