请问是这样的吗？

一般Word和Excel里的宏命

1、让复杂的工作简单化 2、让重复的工作自动化 3、扩充Excel自带的功能（我认为它是可以无限扩充的，只有你想不到的，没有它做不到的，夸张了一点！） 事件、对象、语句、函数、方法、属性，把这些东西有机组合在一起，就能解决你的问题。 以下内容仅供参考~~~~~~~ 打开Excel中的VB编辑器，左边双击ThisWorkbook，在右边空白处粘贴以下代码： Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '捕获单元格被修改事件 'if 。 。。 then 。。。 判断语句 Is...全部

  1、让复杂的工作简单化 2、让重复的工作自动化 3、扩充Excel自带的功能（我认为它是可以无限扩充的，只有你想不到的，没有它做不到的，夸张了一点！） 事件、对象、语句、函数、方法、属性，把这些东西有机组合在一起，就能解决你的问题。
   以下内容仅供参考~~~~~~~ 打开Excel中的VB编辑器，左边双击ThisWorkbook，在右边空白处粘贴以下代码： Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '捕获单元格被修改事件 'if 。
  。。 then 。。。 判断语句 IsNumeric（）判断是否是数值的函数 'Target。Value Target为对象，指当前被改变的单元格，value是该对象的属性,表示该单元格的值 '=,等于号是赋值或比较符号,IsNumeric(Target。
  Value) = False,这里的=号是作比较,Target。Value = "",这里的=号是赋予该单元格新的值。 If IsNumeric(Target。Value) = False Then Target。
  Value = "" End Sub '结束语句 。收起