یافتن مقادیر فرد بزرگتر از 50

Question

آمل دارای 1000 مقدار در یک کاربرگ اکسل است که هر کدام 100 ردیف از 10 ستون را اشغال می کند. هر مقدار در این محدوده یک مقدار صحیح بین 0 تا 99 است. آمل به روشی برای شمارش و نمایش تمام مقادیر فرد و بزرگتر از 50 نیاز دارد.

چند راه برای شمارش و نمایش وجود دارد، اما مهم است که بدانید اینها وظایف متفاوتی هستند. شاید بهترین راه برای نمایش مقادیر متناسب با معیارها استفاده از قالب بندی شرطی باشد. می توانید یک قانون قالب بندی شرطی به هر سلول اضافه کنید که مقادیر مورد نظر را پررنگ یا برجسته کند. این مراحل را دنبال کنید:

شکل 1. کادر محاوره ای New Formatting Rule.

شکل 2. کادر محاوره ای Format Cells.

1. سلول های حاوی داده های شما را انتخاب کنید.
2. تب Home نوار را نمایش دهید.
3. روی ابزار Conditional Formatting در گروه Styles کلیک کنید. اکسل پالتی از گزینه های مربوط به قالب بندی شرطی را نمایش می دهد.
4. روی New Rule کلیک کنید. اکسل کادر محاوره ای New Formatting Rule را نمایش می دهد. (شکل 1 را ببینید.)
5. در قسمت Select a Rule Type در بالای کادر محاوره ای، Use a Formula To Determine Who Cells Format را انتخاب کنید.
6. در کادر فرمول فرمول =AND(MOD(A1,2),A1>50) را وارد کنید .
7. روی دکمه Format کلیک کنید. اکسل کادر محاوره ای Format Cells را نمایش می دهد. (شکل 2 را ببینید.)
8. از کنترل های موجود در کادر محاوره ای برای تغییر قالب بندی، به دلخواه استفاده کنید.
9. برای بستن کادر محاوره ای Format Cells روی OK کلیک کنید.
10. روی OK کلیک کنید تا کادر محاوره ای New Formatting Rule بسته شود. قالب بندی در محدوده سلول هایی که در مرحله 1 انتخاب کرده اید اعمال می شود.

در صورت تمایل، می توانید از فرمول زیر در مرحله 6 نیز استفاده کنید:

=AND(ISODD(A1),A1>50)

برای به دست آوردن تعداد سلول های متناسب با معیارها، می توانید از فرمول آرایه استفاده کنید:

=SUM(MOD(MyCells,2)*(MyCells>50)

این فرمول فرض می کند که محدوده سلول هایی که می خواهید تجزیه و تحلیل کنید MyCells نام دارند. فراموش نکنید که با استفاده از Ctrl+Shift+Enter وارد سلول شوید . اگر نمی خواهید از فرمول آرایه استفاده کنید، می توانید از موارد زیر استفاده کنید:

=SUMPRODUCT((MOD(MyCells,2)*(MyCells>50))

همچنین می توانید از یک ماکرو برای استخراج سلول ها و تعداد استفاده کنید. نسخه زیر یک نسخه ساده از چنین ماکرو است. مقادیر سلول های مطابق با معیارها را در ستون M قرار می دهد و سپس تعداد سلول های موجود را نشان می دهد:

Sub SpecialCount()
    Dim c As Range
    Dim i As Integer

    i = 0
    For Each c In Range("A2:J101")
        If c.Value > 50 And c.Value Mod 2 Then
            i = i + 1
            Range("L" & i).Value = c.Value
        End If
    Next c

    MsgBox i & " values are odd and greater than 50", vbOKOnly
End Sub