此前发布过一个数量单价金额互算的VBA写法，之前的是按用户的需求来写的。最近有其他用户应用此VBA提出了一些问题，所以重新更新了下，希望对有大家有所参考。

单价金额数量互算

1. Imports SpreadsheetGear
   
2. Imports System.Windows.forms
   
3. Namespace ExcelViewVBDotnet
   
4.     Public Class StandardInterface '自定义名称
   
5.         '预留位置1
   
6.         '预留位置2
   
7.         Dim AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
   
8.         Dim CF,TS,VW As Object,YN As String
   
9.         Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Forms.WorkbookView)
   
10.            Excel.GetLock()
    
11.            AW = Excel.ActiveWorkbook
    
12.            Range = AW.ActiveWorksheet.Range
    
13.            Excel.ReleaseLock()
    
14.            '位置：2保存3新增4提交5退回6打印7预览8导出9捕获10上传图片11上传附件12插入行13插多行14删除行15查找16最后
    
15.         End Sub'打开时执行事件
    
16. 
    
17.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
    
18. 
    
19.         End Sub'单元格选择后执行的事件
    
20. 
    
21.         Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
    
22.                    On error resume next
    
23.                    if e.Range.Address <> YN Then'避免重复触发
    
24.                           if e.Range.Intersect(Range("F_30")) IsNot Nothing then
    
25.                              if e.Range.Offset(0,1).Value IsNot Nothing And e.Range.Value IsNot NotHing then'已知单价输入数量触发金额
    
26.                                 e.Range.Offset(0,2).Value = CType(e.Range.Offset(0,1).Value,Double) * CType(e.Range.Value,Double)       
    
27.                              'end if
    
28.                              elseif e.Range.Offset(0,2).Value IsNot Nothing And e.Range.Value IsNot NotHing then'已知金额输入数量触发单价
    
29.                                     if CType(e.Range.Value,Double) <> 0 then
    
30.                                             YN = E.Range.Offset(0,1).Address
    
31.                                              e.Range.Offset(0,1).Value = CType(e.Range.Offset(0,2).Value,Double) / CType(e.Range.Value,Double)
    
32.                                         end if
    
33.                              end if
    
34.                       Elseif e.Range.Intersect(Range("F_31")) IsNot Nothing then
    
35.                          if e.Range.Offset(0,-1).Value IsNot Nothing And e.Range.Value IsNot NotHing then'已知数量输入单价触发金额
    
36.                                     YN = E.Range.Offset(0,1).Address
    
37.                                 e.Range.Offset(0,1).Value = CType(e.Range.Offset(0,-1).Value,Double) * CType(e.Range.Value,Double)
    
38.                              'end if
    
39.                              elseif e.Range.Offset(0,1).Value IsNot Nothing And e.Range.Value IsNot NotHing then'已知金额输入单价触发数量
    
40.                                     if CType(e.Range.Value,Double) <> 0 then
    
41.                                             YN = E.Range.Offset(0,-1).Address
    
42.                                         e.Range.Offset(0,-1).Value = CType(e.Range.Offset(0,1).Value,Double) / CType(e.Range.Value,Double)
    
43.                                         end if
    
44.                              end if  
    
45.                       Elseif e.Range.Intersect(Range("F_32")) IsNot Nothing then
    
46.                          if e.Range.Offset(0,-2).Value IsNot Nothing And e.Range.Value IsNot NotHing then'已知数量输入金额触发单价
    
47.                                     if CType(e.Range.Offset(0,-2).Value,Double) <> 0 then
    
48.                                            YN = E.Range.Offset(0,-1).Address
    
49.                                    e.Range.Offset(0,-1).Value = CType(e.Range.Value,Double) / CType(e.Range.Offset(0,-2).Value,Double)
    
50.                                 end if
    
51.                              'end if
    
52.                              elseif e.Range.Offset(0,-1).Value IsNot Nothing And e.Range.Value IsNot NotHing then'已知单价输入金额触发数量
    
53.                                     if CType(e.Range.Offset(0,-1).Value,Double) <> 0 then
    
54.                                            YN = E.Range.Offset(0,-2).Address
    
55.                                    e.Range.Offset(0,-2).Value = CType(e.Range.Value,Double) / CType(e.Range.Offset(0,-1).Value,Double)
    
56.                                 end if
    
57.                              end if
    
58.                           end if   
    
59.                    Else
    
60.                       YN = ""'还原触发判断
    
61.                    End if
    
62.         End Sub'单元格编辑完成后执行事件
    
63. 
    
64.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
    
65.    
    
66.         End Sub'按钮/标签点击事件
    
67. 
    
68.         Public Sub FollowHyperlink(sender As Object)
    
69.            
    
70.         End Sub '暂不支持
    
71. 
    
72.     End Class
    
73.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
74. 
    
75. End Namespace
    
76. 
    

复制代码

游客，如果您要查看本帖隐藏内容请回复

感谢分享！！！学习下

看看学习学习，正好使用

还有隐藏的代码

感谢，学习学习

学习一下，正好需要

你会后悔或或或或或或或或或或

真心不错啊，?

查看一下，有助学习

学习观摩一下！！

感谢分享！！！学习下

看看学习学习，正好使用

还有隐藏的代码

感谢，学习学习

学习一下，正好需要

你会后悔或或或或或或或或或或

真心不错啊，?

查看一下，有助学习

学习观摩一下！！