关于如何让Excel表中输入的数值自动做乘法运算 | 您所在的位置:网站首页 › 表格中两个格子相乘 › 关于如何让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未知 若有问题欢迎反聩 本人会在有时间和有闲心(最好也有钱)的时候完善 |
CopyRight 2018-2019 实验室设备网 版权所有 |