关于如何让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未知 若有问题欢迎反聩  本人会在有时间和有闲心(最好也有钱)的时候完善