روشن شدن دائمی تنظیم دقت همانطور که نمایش داده می شود

Question

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

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

Private Sub Workbook_Open()
    ThisWorkbook.PrecisionAsDisplayed = True
End Sub

ماکرو باید در ماژول This Workbook قرار گیرد، بنابراین هر بار که ورک بوک باز می شود، اجرا می شود. در صورت تمایل می توانید آن را به یک ورک بوک جدید و خالی اضافه کنید و سپس آن ورک بوک را به عنوان یک الگو به نام Book.xltm در پوشه XLStart ذخیره کنید. با انجام این کار، برای اکسل، الگوی پیش فرضی که می خواهید هنگام ایجاد یک ورک بوک جدید استفاده کنید، مشخص می شود. بنابراین، همه کتاب های کار جدید شامل این ماکرو ساده یک خطی برای تنظیم دقت می شوند.

اکنون، همانطور که گفته شد، بسیاری از افراد به شدت توصیه می کنند که حتی گزینه Set Precision As Displayed را روشن نکنید. چرا؟ زیرا به طور دائم بر داده های ورک بوک شما تأثیر می گذارد. به عنوان مثال، این تمرین کوچک را امتحان کنید:

1. نمایش یک سلول در یک کاربرگ را روی 5 رقم اعشار تنظیم کنید. (بگذارید بگوییم شما این کار را با استفاده از سلول B3 انجام می دهید.)
2. مطمئن شوید که Set Precision As Display روشن است.
3. مقدار 1.23456 را در سلول B3 وارد کنید.
4. حالا نمایش سلول B3 را به 2 رقم اعشار تغییر دهید. اکنون باید 1.23 را نشان دهد.
5. مجدداً نمایش سلول B3 را به 5 رقم اعشار برگردانید. اکنون باید 1.23000 را نشان دهد.

آخرین رقم (456) اکنون از بین رفته و برای همیشه گم شده است. آنها را نمی توان بازیابی کرد. شاید بهتر باشد فرمول های خود را طوری تنظیم کنید که تابع ROUND را شامل شود تا گرد کردن به 2 رقم اعشار فقط در مواردی انجام شود که نیاز دارید به جای همه جا انجام شود.

اگر تصمیم دارید که می خواهید از Set Precision As Display استفاده کنید، بهتر است راه آسانی را برای تغییر تنظیمات بر اساس ورک بوک به کتاب تنظیم کنید. این کار را می توان با یک ماکرو منفرد اضافه شده به ورک بوک شخصی شما انجام داد:

Sub TogglePrecision()
    Dim sTemp As String

    sTemp = "Precision as Displayed has been "
    With ActiveWorkbook
        If .PrecisionAsDisplayed Then
            .PrecisionAsDisplayed = False
            sTemp = sTemp & "DISABLED"
        Else
            .PrecisionAsDisplayed = True
            sTemp = sTemp & "ENABLED"
        End If
    End With
    MsgBox sTemp
End Sub

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