在工资表中希望查询的用户能看到工资的计算方法，这样大家看到后就知道每一项是如何计算的。可以通过快表VBA实现，单击单元格时将单元格中的公式写入一个集中显示的区域。

1.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
   
2.                 ActiveWorkbook.WorkbookSet.GetLock()
   
3.                 On Error Resume Next
   
4.                     Dim Rng  As IRange = e.RangeSelection.Intersect(Range("T_1"))
   
5.              If  Rng IsNot Nothing Then
   
6.                                 'ActiveWorkbook.ActiveWorksheet.Range.Cells(0,e.RangeSelection.Column).value = e.RangeSelection.Formula
   
7.                                 ActiveWorkbook.ActiveWorksheet.Range("FormulaArea").Value =  "'" + e.RangeSelection.Formula
   
8.             End If
   
9.                 ActiveWorkbook.WorkbookSet.ReleaseLock()
   
10.        End Sub'单元格选择后执行的事件

复制代码

在工资表中希望查询的用户能看到工资的计算方法，这样大家看到后就知道每一项是如何计算的。可以通过快表VBA实现，单击单元格时将单元格中的公式写入一个集中显示的区域。

1.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
   
2.                 ActiveWorkbook.WorkbookSet.GetLock()
   
3.                 On Error Resume Next
   
4.                     Dim Rng  As IRange = e.RangeSelection.Intersect(Range("T_1"))
   
5.              If  Rng IsNot Nothing Then
   
6.                                 'ActiveWorkbook.ActiveWorksheet.Range.Cells(0,e.RangeSelection.Column).value = e.RangeSelection.Formula
   
7.                                 ActiveWorkbook.ActiveWorksheet.Range("FormulaArea").Value =  "'" + e.RangeSelection.Formula
   
8.             End If
   
9.                 ActiveWorkbook.WorkbookSet.ReleaseLock()
   
10.        End Sub'单元格选择后执行的事件

复制代码