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

اشتراک دانش
همه چیز را همگان دانند
با سلام و عرض احترام خدمت شما
در صورتی که هر کدوم از مطالب به کارتون میاد اطلاع بدید تا راهنمایی کامل تر براتوم ارسال کنم و یا برنامه ای برای مسئله شما بنویسم
جمعه, ۲۴ ارديبهشت ۱۳۹۵، ۰۹:۱۸ ب.ظ

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

نظرات (۰)

هیچ نظری هنوز ثبت نشده است

ارسال نظر

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی