免费版双无限，按钮保存并新增

一、演示效果

二、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 As TextBox
   
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.                    CF = OldRoot.Children(1)
    
13.            Range = AW.ActiveWorksheet.Range
    
14.            Excel.ReleaseLock()
    
15.            
    
16.         End Sub'打开时执行事件
    
17. 
    
18.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
    
19. '            MessageBox.show("测试")
    
20.                      
    
21.         End Sub'单元格选择后执行的事件
    
22. 
    
23.         Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
    
24.            
    
25.         End Sub'单元格编辑完成后执行事件
    
26. 
    
27.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
    
28.            ActiveWorkbook.WorkbookSet.GetLock()
    
29.                 Dim Bt As SpreadsheetGear.Shapes.IShape = sender
    
30. '                Dim rng As IRange = ActiveWorkbook.ActiveWorksheet.Range
    
31. '                If ActiveWorkbook.Names("BBZT") IsNot Nothing And rng("BBZT").Value = "查阅" Then
    
32. '                        MessageBox.Show("很抱歉！查阅状态下不能使用！")
    
33. '                Else:
    
34.                 If  Bt.Name = "保存并新增" Then
    
35.                         CF.Text = "#保存并新增"
    
36.                     End If
    
37.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
38. 
    
39.         End Sub'按钮/标签点击事件
    
40. 
    
41.         Public Sub FollowHyperlink(sender As Object)
    
42.            
    
43.         End Sub '暂不支持
    
44. 
    
45.     End Class
    
46.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
47. 
    
48. End Namespace
    

复制代码

三、代码文件压缩


VBA按钮保存并新增.rar (912 Bytes, 下载次数: 10)

2018-5-5 07:59 上传

点击文件名下载附件

标间公司设置 按钮 不行吗？？

可以用VBA来实现，免费版的允许用1次的机会哦

yxw2111 发表于 2018-5-4 16:59
可以用VBA来实现，免费版的允许用1次的机会哦

你会弄吗？

hessen 发表于 2018-5-5 07:59
一、演示效果

二、VBA代码，请用VBA编辑器打开

现在就是要点按钮打印，然后记录打印次数并更新，我要弄第X次打印，再自动保存

bszadmin 发表于 2018-5-5 08:25
现在就是要点按钮打印，然后记录打印次数并更新，我要弄第X次打印，再自动保存

那是你需求描述不清楚，一开始你只描述了要免费版按钮实现保存并新增。新的问题请发新帖

hessen 发表于 2018-5-5 12:23
那是你需求描述不清楚，一开始你只描述了要免费版按钮实现保存并新增。新的问题请发新帖

能远程不，你上面的都没弄好

bszadmin 发表于 2018-5-5 12:51
能远程不，你上面的都没弄好

可以远程配置免费版VBA按钮调用保存并新增

下面附上 打印并保存新增

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
   
2.         AW.WorkbookSet.GetLock()
   
3.             if e.shape.name="Button 1" then
   
4.             CF.Text = "#打印"
   
5.             Dim XHTimer As DispatcherTimer = New DispatcherTimer
   
6.             XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0)
   
7.             AddHandler XHTimer.Tick, Sub(s1, e1)
   
8.               ActiveWorkbook.WorkbookSet.GetLock()
   
9.                 CF.Text = "#保存并新增"
   
10.               ActiveWorkbook.WorkbookSet.ReleaseLock()
    
11.             XHTimer.Stop()
    
12.             End Sub
    
13.           XHTimer.Start()
    
14. 
    
15.           End if
    
16.         AW.WorkbookSet.ReleaseLock()
    
17.         End Sub'按钮/标签点击事件

复制代码

hessen 发表于 2018-5-6 17:02
可以远程配置免费版VBA按钮调用保存并新增

下面附上 打印并保存新增

我QQ648925888   1行 语句在命名空间中无效。不知道怎么我编辑器不能用

一、演示效果

二、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 As TextBox
   
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.                    CF = OldRoot.Children(1)
    
13.            Range = AW.ActiveWorksheet.Range
    
14.            Excel.ReleaseLock()
    
15.            
    
16.         End Sub'打开时执行事件
    
17. 
    
18.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
    
19. '            MessageBox.show("测试")
    
20.                      
    
21.         End Sub'单元格选择后执行的事件
    
22. 
    
23.         Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
    
24.            
    
25.         End Sub'单元格编辑完成后执行事件
    
26. 
    
27.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
    
28.            ActiveWorkbook.WorkbookSet.GetLock()
    
29.                 Dim Bt As SpreadsheetGear.Shapes.IShape = sender
    
30. '                Dim rng As IRange = ActiveWorkbook.ActiveWorksheet.Range
    
31. '                If ActiveWorkbook.Names("BBZT") IsNot Nothing And rng("BBZT").Value = "查阅" Then
    
32. '                        MessageBox.Show("很抱歉！查阅状态下不能使用！")
    
33. '                Else:
    
34.                 If  Bt.Name = "保存并新增" Then
    
35.                         CF.Text = "#保存并新增"
    
36.                     End If
    
37.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
38. 
    
39.         End Sub'按钮/标签点击事件
    
40. 
    
41.         Public Sub FollowHyperlink(sender As Object)
    
42.            
    
43.         End Sub '暂不支持
    
44. 
    
45.     End Class
    
46.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
47. 
    
48. End Namespace
    

复制代码

三、代码文件压缩


VBA按钮保存并新增.rar (912 Bytes, 下载次数: 10)

2018-5-5 07:59 上传

点击文件名下载附件

标间公司设置 按钮 不行吗？？

可以用VBA来实现，免费版的允许用1次的机会哦

yxw2111 发表于 2018-5-4 16:59
可以用VBA来实现，免费版的允许用1次的机会哦

你会弄吗？

hessen 发表于 2018-5-5 07:59
一、演示效果

二、VBA代码，请用VBA编辑器打开

现在就是要点按钮打印，然后记录打印次数并更新，我要弄第X次打印，再自动保存

bszadmin 发表于 2018-5-5 08:25
现在就是要点按钮打印，然后记录打印次数并更新，我要弄第X次打印，再自动保存

那是你需求描述不清楚，一开始你只描述了要免费版按钮实现保存并新增。新的问题请发新帖

hessen 发表于 2018-5-5 12:23
那是你需求描述不清楚，一开始你只描述了要免费版按钮实现保存并新增。新的问题请发新帖

能远程不，你上面的都没弄好

bszadmin 发表于 2018-5-5 12:51
能远程不，你上面的都没弄好

可以远程配置免费版VBA按钮调用保存并新增

下面附上 打印并保存新增

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
   
2.         AW.WorkbookSet.GetLock()
   
3.             if e.shape.name="Button 1" then
   
4.             CF.Text = "#打印"
   
5.             Dim XHTimer As DispatcherTimer = New DispatcherTimer
   
6.             XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0)
   
7.             AddHandler XHTimer.Tick, Sub(s1, e1)
   
8.               ActiveWorkbook.WorkbookSet.GetLock()
   
9.                 CF.Text = "#保存并新增"
   
10.               ActiveWorkbook.WorkbookSet.ReleaseLock()
    
11.             XHTimer.Stop()
    
12.             End Sub
    
13.           XHTimer.Start()
    
14. 
    
15.           End if
    
16.         AW.WorkbookSet.ReleaseLock()
    
17.         End Sub'按钮/标签点击事件

复制代码

hessen 发表于 2018-5-6 17:02
可以远程配置免费版VBA按钮调用保存并新增

下面附上 打印并保存新增

我QQ648925888   1行 语句在命名空间中无效。不知道怎么我编辑器不能用