需求：明细表字段所在单元格中录入一个值后将这个字段中所有的值按预设的规则进行替换。

方法：

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.            Dim ifLoop As Integer = 0
    
14.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
15.            EV = Excel
    
16.            Excel.GetLock()
    
17.            AW = Excel.ActiveWorkbook
    
18.            Range = AW.ActiveWorksheet.Range
    
19.            Excel.ReleaseLock()
    
20.        End Sub'打开时执行事件
    
21. 
    
22.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
23. 
    
24.        End Sub'单元格选择后执行的事件
    
25. 
    
26.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
27.             If e.Range.Intersect(Range("F_65443")) IsNot Nothing And ifLoop = 0 Then
    
28.                 Dim Cell As IRange
    
29.                 Dim ReplaceText As String
    
30.                 For Each Cell In Range("F_65443")
    
31.                     ReplaceText = Cell.Text
    
32.                     ReplaceText = Replace(ReplaceText, "＋", "+")
    
33.                     ReplaceText = Replace(ReplaceText, "－", "-")
    
34.                     ReplaceText = Replace(ReplaceText, "×", "*")
    
35.                     ReplaceText = Replace(ReplaceText, "÷", "/")
    
36.                     ReplaceText = Replace(ReplaceText, "（", "(")
    
37.                     ReplaceText = Replace(ReplaceText, "）", ")")
    
38.                     ReplaceText = Replace(ReplaceText, ".", ".")
    
39.                     ifLoop = 1
    
40.                     Cell.Value = ReplaceText
    
41.                     ifLoop = 0
    
42.                 Next
    
43.             End If
    
44.        End Sub'单元格编辑完成后执行事件
    
45. 
    
46.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
47. 
    
48.        End Sub'按钮/标签点击事件
    
49. 
    
50.        Public Sub FollowHyperlink(sender As Object)
    
51. 
    
52.        End Sub '暂不支持
    
53. 
    
54.    End Class
    
55. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
56. End Namespace
    

复制代码

说明：Public Sub Workbook_Open前的声明Dim ifLoop As Integer = 0用于后续RangeChanged事件中进行判断,复制前改变ifLoop的值，这样当被循环触发时则条件不满足，从而避免被重复触发。赋值之后再改回来以便后续操作继续可以起作用。

很不错，点个赞，但针对整个明细表如何编写呢，求解

可以循环遍历明细表所有单元格

很不错，点个赞，但针对整个明细表如何编写呢，求解

可以循环遍历明细表所有单元格