关于如何让Excel表中输入的数值自动做乘法运算

 不需其他单元格参与 所有输入的数字自动乘以1.5

1 新建excel表格文件     2 右键表名称(sheet1)->查看代码     3 双击sheet1(sheet1) 粘贴以下代码

        ' 该代码是A列的所有输入的数字自动乘以1.5  注意当再次编辑时即使不改变值也会再次乘以1.5!!!!  应该和选择的事件有关  修改不知道会不会改善         Private Sub Worksheet_Change(ByVal Target As Range) ' 表格数据变动时触发该事件             Dim X, C ' 定义变量             C = 1.5 ' 赋值             If Target.Column = 1 Then ' 变动列为1时既A列                 For Each X In Target ' 循环检查该列的值                     If X.Offset(, 200) = "" Then ' 如果该行第200列值为空                         X.Offset(, 200) = X.Value ' 则将该行第一列的值赋值给这个空间(按这个说法 如果200列有填写东西 则这个就无效了  有空可以试试,  比较奇怪他为什么不再创建一个变量来存储)                     End If '结束判断                     If IsNumeric(X.Value) And X.Value > "" Then ' 如果这个值(第一列第x行)是数字,且大于空?(为啥不写成>0)                         X.Value = X.Offset(, 200) * C ' 赋值 把200列的值乘以C既1.5 拿回来放到这个格子里                     End If '结束判断                 Next X  '结束循环             Target.Offset(, 200).Clear  '清除200列那个值             End If  '结束判断         End Sub  '结束事件

    4 ctrl+s 或 点左上角保存  弹出 不是宏文件..->点击'否'->弹出的保存菜单中,文件格式选择 '宏文件'     5 测试效果 在A列中写入任意数字 查看是否自动变为1.5倍 若不能则再保存以下代码部分     6 其他bug未知 若有问题欢迎反聩  本人会在有时间和有闲心(最好也有钱)的时候完善