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

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

کد برای اکسل. کوچکترین عضو یک مجموعه دلخواه

Sub delete()
Dim j As Integer
Dim out As Single
i = 25
 For j = 2 To 1201
  Rw = Range(Cells(i, j), Cells(i + 7, j))
out = WorksheetFunction.Min(Rw)
Worksheets("Target_total").Cells(10, j) = out
 Next j
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="">
تجدید کد امنیتی