1. 
   
2.        '预留位置2
   
3.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
   
4.            Dim EditStatus As String, BeforeChangeText As String
   
5.            Dim CF As TextBox
   
6.            Public OldRoot As Object
   
7.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
   
8.            EV = Excel
   
9.            Excel.GetLock()
   
10.            AW = Excel.ActiveWorkbook
    
11.            Range = AW.ActiveWorksheet.Range
    
12.            Excel.ReleaseLock()
    
13.                    CF = CType(OldRoot.Children(1), TextBox)
    
14.        End Sub'打开时执行事件
    
15. 
    
16.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
17.                         If  e.RangeSelection.Intersect(Range("表单导航")) IsNot Nothing Then  '识别表单导航区域
    
18.                 'EditStatus = "OK"
    
19.                 BeforeChangeText = e.RangeSelection.Cells(0, 0).Text
    
20.                                 Select Case BeforeChangeText
    
21.                             Case "基础信息"
    
22.                                 msgbox("基础信息")
    
23.                                                 CF.Tag = "2,新增订单"     '公式类型：1为提取，2为传递。逗号后加执行的公式名称，与表间公式中的显示的名称一致
    
24.                                  CF.Text = "#执行公式"   '执行提取公式写入"#执行公式",执行SQL语句写入"#执行SQL"
    
25.                             Case "采购信息"
    
26.                                 msgbox("采购信息")
    
27.                             Case "生产计划"
    
28.                                 msgbox("生产计划")
    
29.                                         Case Else
    
30. '                                        msgbox("开发中")
    
31.                                 End Select
    
32.             End If
    
33.        End Sub'单元格选择后执行的事件
    
34. 
    
35.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
36. 
    
37.        End Sub'单元格编辑完成后执行事件
    
38. 
    
39.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
40.                         AW.WorkbookSet.GetLock()
    
41. 
    
42.             AW.WorkbookSet.ReleaseLock()
    
43.        End Sub'按钮/标签点击事件
    
44. 
    
45.        Public Sub FollowHyperlink(sender As Object)
    
46. 
    
47.        End Sub '暂不支持
    
48. 
    
49.    End Class
    
50. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
51. End Namespace

复制代码

使用上述vba在单机版执行后提示

执行公式为高级功能需要对应的版本支持。

执行公式为高级功能需要对应的版本支持。