我一直有这列“通用”类型的字符串整数。每次打开此电子表格时，我都必须将其转换为“数字”类型。但是当我这样做时，它会自动创建两个小数点。例如，它将“12345”更改为“12345.00”。每次都使用“减少小数”有点烦人。有没有办法对默认模式进行两次更改？ 1) 始终假设该列具有“数字”类型，而不是“通用”类型 2) 不能有小数点。
【问题讨论】：
标签： excel
Excel Tips, Learn Excel \ Raghu R
为工作簿设置格式选项
Excel 没有提供很多允许您设置格式的选项 工作簿的默认值。但是，您可以通过以下方式解决此问题 修改空白工作簿中的格式，然后将其另存为 默认模板。
- 打开 Excel 到空白工作簿。
- 使用所需的所有选项格式化空白文件。例如，设置边距、单元格颜色格式或设置页眉或页脚。确保 删除您在单元格中输入的任何值以测试格式，除非 您希望它们出现在每个空白工作簿中。
- 完成更改后，单击“文件”选项卡并选择“另存为”。
从“文件类型”下拉列表中，选择“Excel 模板 (*.xltx)”并将文件名更改为“Book”。
将“保存在”位置设置为 XLSTART 文件夹。此文件夹通常位于类似于
C:Program Files/Microsoft Office/Office14/XLSTART的路径中。
- 找到其位置的最快方法是使用 Visual Basic 编辑器 (VBE) 中的立即窗口，如下所示：
- 按 Alt+F11 启动 VBE。
- 如果“立即”窗口不可见，请按 Ctrl+G。
- 在“立即”窗口中，输入
? application.StartupPath并按 Enter。- VBA 将显示 XLStart 的路径。
- 点击保存。
- 退出并重新打开 Excel。空白工作簿应包含您之前设置的格式。
【讨论】：
尝试以下方法：
右键单击列并单击Format Cells...，然后从Category: 列表中选择Number 并为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
【讨论】：
Column G）在 Excel 工作簿中的所有工作表中具有 相同 格式？如果是这样，除非有数十张 100 张纸，否则我仍然会采用建议的解决方案
写了一个小宏
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 编辑器）中
【讨论】：
当我意识到以下情况时，我认为数字格式卡在日期上并且正在阅读这篇文章以解决问题。
在我的情况下，将主功能区中的数字格式更改为 General，即下次我打开 Excel（Office 365 订阅版）时，General 格式保持不变！问题解决了。
【讨论】：
如果您想让这些样式仅在您选择它们时生效（即，不作为创建新文件时的默认格式），那么您可以这样做的一种方法是在该模板中创建新样式（例如，Book.xltx）。例如，您可以创建一个名为“Currency (0)”的新样式，它等效于正数的样式 $#,##0。因此，要使用所需的格式，您需要更改单元格的 样式，而不是使用 格式控件。
是的，这并不理想（最好能够直接更改 Excel 的默认功能），但它确实有效。
【讨论】：