1. Option Strict Off
   
2. Imports SpreadsheetGear
   
3. Imports System.Windows.forms
   
4. Namespace ExcelViewVBDotnet
   
5.     Public Class StandardInterface '自定义名称
   
6.         '预留位置1
   
7.         '预留位置2
   
8.         Dim AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
   
9.                 Dim CF As TextBox
   
10.         Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Forms.WorkbookView)
    
11.            Excel.GetLock()
    
12.            AW = Excel.ActiveWorkbook
    
13.            Range = AW.ActiveWorksheet.Range
    
14.                    CF = OldRoot.Children(1)
    
15.            Excel.ReleaseLock()
    
16.            
    
17.         End Sub'打开时执行事件
    
18. 
    
19.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
    
20.             'MessageBox.show("测试")
    
21.                      
    
22.         End Sub'单元格选择后执行的事件
    
23. 
    
24.         Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
    
25.            
    
26.         End Sub'单元格编辑完成后执行事件
    
27. 
    
28.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
    
29.                 AW.WorkbookSet.GetLock()
    
30.            if e.shape.name="Button 1" then
    
31.                     Range("F_2").value = Range("F_2").Value + 1  
    
32.                         CF.Text = "#保存并新增"
    
33.                End if
    
34.         AW.WorkbookSet.ReleaseLock()
    
35.         End Sub'按钮/标签点击事件
    
36. 
    
37.         Public Sub FollowHyperlink(sender As Object)
    
38.            
    
39.         End Sub '暂不支持
    
40. 
    
41.     End Class
    
42.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
43. 
    
44. End Namespace
    

复制代码

VBA点按钮计算后并保存新增测试模板.rar (2.52 KB, 下载次数: 26)

2017-4-27 08:39 上传

点击文件名下载附件

VBA计算后保存新增代码.rar (849 Bytes, 下载次数: 19)

2017-4-27 08:39 上传

点击文件名下载附件

能改成 打印并保存新增么？

谢谢回答。

谢谢回答。

提示：未设置对象变量或with块变量 错误，如何解决呢，我很想套用这段代码，呵呵。

vba的东西感觉很难啊

sy233 发表于 2018-1-30 14:35
vba的东西感觉很难啊

难者不会会者不难  由简单到复杂就都会了  另外如果不会也没有关系 快表从6.20版本开始，提供了命令树的功能，可以不用写代码就能使用VBA 你可以看看

能改成 打印并保存新增么？

谢谢回答。

谢谢回答。

提示：未设置对象变量或with块变量 错误，如何解决呢，我很想套用这段代码，呵呵。

vba的东西感觉很难啊

sy233 发表于 2018-1-30 14:35
vba的东西感觉很难啊

难者不会会者不难  由简单到复杂就都会了  另外如果不会也没有关系 快表从6.20版本开始，提供了命令树的功能，可以不用写代码就能使用VBA 你可以看看