数量、单价、金额互算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.                    if e.Range.Address <> YN Then'避免重复触发
    
23.                           if e.Range.Intersect(Range("F_30")) IsNot Nothing then'数量触发金额
    
24.                              if e.Range.Offset(0,1).Value IsNot Nothing And e.Range.Value IsNot NotHing then
    
25.                                 e.Range.Offset(0,2).Value = CType(e.Range.Offset(0,1).Value,Double) * CType(e.Range.Value,Double)        
    
26.                              end if
    
27.                       Elseif e.Range.Intersect(Range("F_31")) IsNot Nothing then'单价触发金额
    
28.                          if e.Range.Offset(0,-1).Value IsNot Nothing And e.Range.Value IsNot NotHing then
    
29.                                     YN = E.Range.Offset(0,1).Address
    
30.                                 e.Range.Offset(0,1).Value = CType(e.Range.Offset(0,-1).Value,Double) * CType(e.Range.Value,Double)
    
31.                              end if  
    
32.                       Elseif e.Range.Intersect(Range("F_32")) IsNot Nothing then'金额触发单价
    
33.                          if e.Range.Offset(0,-2).Value IsNot Nothing And e.Range.Value IsNot NotHing then
    
34.                                     if CType(e.Range.Offset(0,-2).Value,Double) <> 0 then
    
35.                                            YN = E.Range.Offset(0,-1).Address
    
36.                                    e.Range.Offset(0,-1).Value = CType(e.Range.Value,Double) / CType(e.Range.Offset(0,-2).Value,Double)
    
37.                                 end if
    
38.                              end if
    
39.                       End if
    
40.                    Else
    
41.                       YN = ""'还原触发判断
    
42.                    End if
    
43.         End Sub'单元格编辑完成后执行事件
    
44. 
    
45.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
    
46.    
    
47.         End Sub'按钮/标签点击事件
    
48. 
    
49.         Public Sub FollowHyperlink(sender As Object)
    
50.            
    
51.         End Sub '暂不支持
    
52. 
    
53.     End Class
    
54.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
55. 
    
56. End Namespace
    
57. 
    

复制代码

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

看看怎么模板

这个功能估计很强大的

靠靠靠靠靠靠靠

厉害，我的歌，像你学习

看看，想学一点。

学习一下,学习一下学习一下

学习学习，研究一下

来学习一下

厉害啊！新手学习

看看怎么模板

这个功能估计很强大的

靠靠靠靠靠靠靠

厉害，我的歌，像你学习

看看，想学一点。

学习一下,学习一下学习一下

学习学习，研究一下

来学习一下

厉害啊！新手学习