ترفندهای کامپیوتری

کلیدهای Alt + F11 را فشار دهید یا از تب Developer قسمت code گزینه Visual Basic را انتخاب کنید. پنجره Microsoft Visual Basic ظاهر می‌شود. در این پنجره از تب Insert گزینه Module را انتخاب نمائید.

در پنجره باز شده کدهای زیر را کپی کنید.

Function GetCurrency(Cell As Range) As String
'pctarfand.ir & tarfandha.blog.ir'
    GetCurrency = Replace(Cell.NumberFormat, "\", "")
    GetCurrency = Mid(GetCurrency, 1, InStr(GetCurrency, "#") - 1)
End Function

کد را ذخیره کنید تا تابع GetCurrency آماده استفاده شود.

حال اگر مطابق شکل زیر در سلولی از تابع GetCurrency استفاده کنید در خروجی نماد استفاده شده در سلول مورد نظر استخراج می شود.

همین کار را برای واحدهای ارزی دیگر نیز انجام دهید.

مرحله بعد در واقع جمع شرطی است که چون شرط آن داشتن نماد مورد نظر است تابع جدیدی باید تعریف شود. برای اینکار کد ماکروی زیر را مطابق مراحل کد قبل در اکسل ذخیره کنید تا تابع SumCurrency آماده استفاده شود.

Function SumCurrency(ByVal Area As Range, ByVal CurrencySign As String) As Double
'pctarfand.ir & tarfandha.blog.ir'
  Dim R As Range
  For Each R In Area
    If InStr(R.NumberFormatLocal, CurrencySign) > 0 Then
      SumCurrency = SumCurrency + R.Value
    End If
  Next
End Function

حال اگر مطابق شکل زیر در سلولی از تابع SumCurrency استفاده کنید در خروجی مجموع اعداد با وحدهای ارزی مربوطه محاسبه می‌شود. این تایع دو ورودی دارد. ورودی اول آن محدود اعداد مورد نظر که در اینجا A2:A8 بود و ورودی بعد شرط تابع یعنی نماد ارز مربوطه است که بوسیله تابع قبل در ستون D و برای این مثال در سلول D2 استخراج شد.

مانند مثال زیر تابع GetCurrency را بدون استفاده مجزا، می‌توان درون تابع SumCurrency نیز استفاده کرد.

=SumCurrency(A2:A8,GetCurrency(A2))

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

منابع:

social.technet.microsoft.com

answers.microsoft.com