补：如何让Excel单元格强制显示、输入整数

补：如何让Excel单元格强制显示、输入整数

想到一个办法，应该可以彻底解决这个问题，要分三步走： 一、定义相关名称，打开“工1”工作薄，按Ctrl点选全部绿色区域，然后在公式编辑栏前面的名称框中定义名称为“gong1”，然后回车 二、在公式编辑栏前面的名称框中输入“gong1”，选择所有的绿色区域，然后右击点选“单元格属性”，设置其保护属性里的锁定为非勾选状态，然后保护工作表，可以加密码 三、在“工1”工作薄的代码中添加如下代码： Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim myRange As Range, k As Ra...全部

  想到一个办法，应该可以彻底解决这个问题，要分三步走： 一、定义相关名称，打开“工1”工作薄，按Ctrl点选全部绿色区域，然后在公式编辑栏前面的名称框中定义名称为“gong1”，然后回车 二、在公式编辑栏前面的名称框中输入“gong1”，选择所有的绿色区域，然后右击点选“单元格属性”，设置其保护属性里的锁定为非勾选状态，然后保护工作表，可以加密码 三、在“工1”工作薄的代码中添加如下代码： Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim myRange As Range, k As Range Set myRange = Range("gong1") For Each k In myRange If IsNumeric(k) And k <> Fix(k) Then k。
  Value = Round(k。
  Value, 0) Next End Sub 这样，在“工1”工作薄中任一单元格发生变化时，都会自动检查所有绿色区域，如果为小数的话会自动更正，非数字的不会变动 每个工作薄都要按这个步骤操作，需要定义不同的名称，只要替换Set myRange = Range("gong1")中的“gong1”为你定义的名称即可。收起