如何更改Excel中的默认数字格式？

Question

我总是以“常规”类型的字符串整数列。每次打开此电子表格时，我都必须将其转换为“数字”类型。但是当我这样做时，它会自动创建两个小数点。例如，它将“12345”更改为“12345.00”。每次使用'减少十进制'都很烦人。有没有办法对默认模式进行两次更改？ 1）始终假设列具有“数字”类型，而不是“通用”类型 2）没有任何小数点。

Answer 1

Excel技巧，学习Excel Raghu R 2
4239 如何设置Excel默认格式？

这似乎无关紧要，但是在开始工作之前正确设置Office应用程序是明智之举。想一想您一直在更改现有工作簿上的格式设置选项并进行总计的所有时间-它加起来了。

excel

三个提示，可帮助您重置Excel的默认格式。设置一次，再也不需要设置。

1：设置工作簿的格式选项

Excel并没有提供许多选项来允许您为工作簿设置格式默认值。但是，您可以通过修改空白工作簿中的格式，然后将其保存为默认模板来解决此问题。

Open Excel to a blank workbook.
Format the blank file with all options desired. For example, set margins, cell color formats, or set up a header or footer. Make sure to remove any values you entered in cells to test formatting unless you want them to appear in every blank workbook.
Once your changes are made, click on the File tab and choose Save As.
From the “Files of type” drop-down list, select “Excel Template (*.xltx)” and change the file name to “Book.”

Set the “Save in” location to theXLSTART folder. This folder is typicallylocated in a path similar to C:Program Files/Microsoft Office/Office14/XLSTART.
    The quickest way to find its location is to use the Immediate window in the Visual Basic Editor (VBE), as follows:
    Press [Alt]+[F11] to launch the VBE.
    If the Immediate window isn’t visible, press [Ctrl]+g.
    In the Immediate window, type ? application. StartupPath and press Enter.
    VBA will display the path to XLStart.
    XLSTART_PATH
Click Save.
Quit and re-open Excel. The blank workbook should contain the formatting you previously set.

Answer 2

设置格式如下：

保存文件后，格式将被保留。

Answer 3

尝试以下方法：

右键单击某列，然后点击Format Cells...，然后从Number列表中选择Category:，并为Decimal places:指定0

保存文件并重新打开，您应该会看到该列设置为Number

修改

如果要将格式应用于多个Excel文件，可以为此编写宏：

  

做一些快速研究，遇到了以下VBA代码---我不赞成这一点。但我更改了DoWork方法以添加：.Worksheets(1).Range("A1").NumberFormat = "Number"

Sub ProcessFiles()
    Dim Filename, Pathname As String
    Dim wb As Workbook

    Pathname = ActiveWorkbook.Path & "\Files\"
    Filename = Dir(Pathname & "*.xls")
    Do While Filename <> ""
        Set wb = Workbooks.Open(Pathname & Filename)
        DoWork wb
        wb.Close SaveChanges:=True
        Filename = Dir()
    Loop
End Sub

Sub DoWork(wb As Workbook)
    With wb
        'Do your work here
        .Worksheets(1).Range("A1").NumberFormat = "Number"
    End With
End Sub

Answer 4

写了一个小宏

    Sub PERS_FormatSelectionToNumberNoDecimals()
        Selection.NumberFormat = "0"
    End Sub

...在我的PERSONAL.XLSB中。

在数据工作簿的 ThisWorkbook 模块（VBA编辑器）中，放置了一个函数

    Private Sub Workbook_Activate()
    ' Purpose   :   assign key shortcuts when workbook is activated
        Application.OnKey "^+o", "PERSONAL.XLSB!PERS_FormatSelectionToNumberNoDecimals"
    End Sub

...为宏分配快捷键CTRL-SHIFT-O（与其他键一样为O；您可以选择其他键）。

=>每当您需要将范围重新格式化为带有0个小数的数字时，请选择范围并按快捷键。

为了在切换到另一个工作簿时摆脱键分配，您可以放置​​

    Private Sub Workbook_Deactivate()
    ' Purpose   :   removes key short cut assignments if workbook is deactivated
        Application.OnKey "^+o"
    End Sub

...在我的数据工作簿的 ThisWorkbook 模块（VBA编辑器）

中

Answer 5

我以为数字格式固定在日期上，正在阅读这篇文章以解决此问题，当我意识到以下内容时。

在我的情况下，将Home Ribbon中的数字格式更改为General，下次我打开Excel（Office 365订阅版本）时，General格式保持不变！问题解决了。

http.py

Answer 6

如果您只想在选择这些样式时才使它们生效（即，不作为创建新文件时的默认格式），那么您可以这样做的一种方法是在该模板中创建新样式（例如，Book.xltx）。例如，您可以创建一个名为“Currency (0)”的新样式，它相当于正数的样式 $#,##0。因此，要使用所需的格式，您需要更改单元格的样式，而不是使用格式控件。

是的，这并不理想（最好能够直接更改 Excel 的默认功能），但确实有效。