如何用VBA实现输入单价跳总价 ,输总价时又会对应跳出单价?

105214121

请教大神,已有数量,想输入单价会自动跳出总价,输入总价又会跳单价 请问用VBA怎么实现?  要指定用我表格里的格式位置


开始没有说清楚 现在重新上传附件 麻烦大神们了

chxw68

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   If Target.Column = 4 Then
   
3.     Application.EnableEvents = False
   
4.     If Target.Offset(0, -1) = "单价" Then
   
5.       Target.Offset(1, 0) = Target.Offset(0, -2).Value * Target.Value
   
6.     ElseIf Target.Offset(0, -1) = "总价" Then
   
7.       Target.Offset(-1, 0) = Target.Value / Target.Offset(-1, -2).Value
   
8.     End If
   
9.     Application.EnableEvents = True
   
10.   End If
    
11. End Sub
    

复制代码

看见星光

工作簿1.rar (13.23 KB, 下载次数: 22)

2018-7-17 16:47 上传

点击文件名下载附件

chxw68

详见附件。

105214121

chxw68 发表于 2018-7-17 16:47

非常感谢  我忘了说清楚了  如果我表格上面 没有数量  单价 总价 这些字呢?删了这些字 不起作用了   

chxw68

105214121 发表于 2018-7-17 17:17
非常感谢  我忘了说清楚了  如果我表格上面 没有数量  单价 总价 这些字呢?删了这些字 不起作用了

你现在不是有吗！代码仅供参考，建议你根据自己需要修改吧。

chxw68

105214121 发表于 2018-7-17 17:17
非常感谢  我忘了说清楚了  如果我表格上面 没有数量  单价 总价 这些字呢?删了这些字 不起作用了

没有单价和总价，代码怎么知道哪个是单价哪个是总价？

105214121

chxw68 发表于 2018-7-17 17:20
没有单价和总价，代码怎么知道哪个是单价哪个是总价？

用单元格D1表示单格价  D2 表示总价的位置 能实现吗?

chxw68

105214121 发表于 2018-7-17 17:28
用单元格D1表示单格价  D2 表示总价的位置 能实现吗?

那你下面输入的值还转换吗？

105214121

chxw68 发表于 2018-7-17 18:05
那你下面输入的值还转换吗？

嗯  就是没有单价 和总价字样在表格里  其他要求一样