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

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

بزرگترین و کوچکترین عنصر هر سطر در اکسل

این تکه کد دو ستون به انتهای هر سط اضافه می کند. که ستون اول مقدار بزرگترین عنصر سطر است. و ستوم دوم مقدار کوچکترین عنصر سطر

Sub normal()
Dim max As Double
Dim min As Double

For i = 1 To 20
max = Cells(i, 1)
min = Cells(i, 1)
For j = 2 To 20

If Cells(i, j) > max Then
max = Cells(i, j)
ElseIf Cells(i, j) < min Then
min = Cells(i, j)
End If

Next j
Cells(i, 21) = max
Cells(i, 22) = min
Next i
End Sub

نظرات (۰)

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

ارسال نظر

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