با استفاده از تعداد دقیق ارقام

Question

هنک پرسید آیا راهی در اکسل برای نمایش یک عدد با استفاده از شش رقم، مستقل از محل اعشار وجود دارد؟ به عنوان مثال، 0.1 به عنوان 0.10000، 200 به عنوان 200.000 و 25000 به عنوان 25000.0 نمایش داده می شود.

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

چندین مشترک ExcelTips پیشنهاداتی ارائه کردند که شامل استفاده از فرمول ها برای نمایش شماره به صورت دلخواه است. به عنوان مثال، فرمول زیر مقدار را در A1 با استفاده از شش رقم نشان می دهد:

=FIXED(A1,IF(ABS(A1)

سایر خوانندگان فرمول هایی ارائه کردند که متکی بر تبدیل عدد به یک رشته متن و نمایش آن به این صورت بود. با این حال، تبدیل یک عدد به معادل متنی آن، این اشکال مشخص را دارد که دیگر نمی توان از عدد در فرمول های دیگر استفاده کرد. (به یاد داشته باشید - در این مرحله یک متن است، نه یک عدد.) فرمول بالا آن محدودیت را ندارد.

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

Sub SetFigures()
    Dim iDecimals As Integer
    Dim bCommas As Boolean
    Dim sFormat As String
    Dim CellRange As Range
    Dim TestCell As Range

    bCommas = False Change as desired

    Set CellRange = Selection
    For Each TestCell In CellRange
        If Abs(TestCell.Value) < 1 Then
            iDecimals = 5
        Else
            iDecimals = 5 - Int(Log(Abs(TestCell.Value)) / Log(10#))
        End If

        sFormat = "0"
        If bCommas Then sFormat = "#,##0"
        If iDecimals  0 Then sFormat = sFormat & _
          "." & String(iDecimals, "0")

        TestCell.NumberFormat = sFormat
    Next TestCell
End Sub

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