یافتن تعداد ارقام مهم در اکسل

Question

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

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

=IF(A1

با این حال، دلیل این که این به این سادگی نیست، این است که تعداد ارقام مهم در یک مقدار به چیزهای زیادی بستگی دارد. نکته اصلی این است که شما همیشه نمی توانید با نگاه کردن به یک مقدار تعداد ارقام مهم آن را تشخیص دهید.

به عنوان مثال، مقدار 100 می تواند دارای 1، 2 یا 3 رقم قابل توجه باشد. فرض بر این است که مقدار 1.00 دارای 3 رقم قابل توجه است، اما اگر مقدار نمایش داده شده نتیجه قالب بندی اعمال شده توسط اکسل باشد، ممکن است اینطور نباشد - به عنوان مثال، مقدار موجود در سلول می تواند 1.0000437 باشد که اکسل آن را به صورت 1.00 فرمت می کند. در اینجا می‌توانید درباره موضوع ارقام مهم اطلاعات بیشتری کسب کنید:

https://excelribbon.PCcloob.Ir/T012083

روش‌های پذیرفته‌شده‌ای برای شناسایی ارقام مهم در یک عدد وجود دارد، اما هر تلاشی برای تدوین مجموعه‌ای از قوانین همیشه قابل بحث است. یکی از این قوانین در ویکی‌پدیا، در بخش «شناسایی ارقام مهم» این مقاله ذکر شده است:

http://en.wikipedia.org/wiki/Significant_figures

حداقل با داشتن مجموعه ای ابتدایی از قوانین (مانند آنچه در مقاله ویکی پدیا است) می توان یک تابع تعریف شده توسط کاربر ایجاد کرد که محتمل ترین تعداد ارقام مهم را برای یک مقدار به شما بدهد.

Function SigFigs(rng As Range, Optional iType As Integer = 1)
    iType = 1 is Min
    iType = 2 is Max

    Dim rCell As Range
    Dim sText As String
    Dim sText2 As String
    Dim iMax As Integer
    Dim iMin As Integer
    Dim iDec As Integer
    Dim i As Integer

    Application.Volatile
    Set rCell = rng.Cells(1)

    if not a number then error
    If Not IsNumeric(rCell) Or IsDate(rCell) Then
        SigFigs = CVErr(xlErrNum)
        Exit Function
    End If

    sText2 = Trim(rCell.Text)
    sText = ""
    find position of decimal point (it matters)
    iDec = InStr(sText2, ".")

    strip out any non-numbers (including decimal point)
    For i = 1 To Len(sText2)
      If Mid(sText2, i, 1) >= "0" And _
        Mid(sText2, i, 1) 

شما این تابع را با استفاده از موارد زیر در کاربرگ خود فراخوانی می کنید:

=SigFigs(A1, x)

می توانید x را با 1 یا 2 جایگزین کنید. اگر 1 را مشخص کنید، تابع حداقل تعداد ارقام مهم را برمی گرداند. اگر 2 را مشخص کنید، تابع حداکثر تعداد ارقام قابل توجه را برمی گرداند. در بیشتر موارد، دو مقدار بازگشتی ممکن یکسان خواهند بود، به جز مقادیری که اعداد کامل هستند، بدون اعشار انتهایی، که دارای صفرهای انتهایی هستند. به عبارت دیگر، اگر از تابع برای ارزیابی عدد 1234000 استفاده کنید، حداقل ( x است 1) 4 و حداکثر ( x است 2) 7 را برمی گرداند.

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