通过快表VBA功能，对明细表单元格的字体颜色进行标记红。

图示效果

红色=Button 1  ,全部取消=Button 2  ,选中取消=Button 3  ,保存=Button 4  ，F_9269为存储标记为红色字体的单元格地址

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 Microsoft.VisualBasic
   
8. Imports System.IO
   
9. Imports System.Text
   
10. Imports System.Net
    
11. Imports System.Windows.forms
    
12. Namespace ExcelViewVBDotnet
    
13.         Public Class StandardInterface
    
14.                 '预留位置1
    
15.                 '预留位置2
    
16.                 Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView, AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
17.                 Dim CF As TextBox
    
18.                 Public Sub Workbook_Open(OldRoot As Object, NewRoot As Object, Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
19.                         EV = Excel
    
20.                         Excel.GetLock()
    
21.                         AW = Excel.ActiveWorkbook
    
22.                         Range = AW.ActiveWorksheet.Range
    
23.                         Excel.ReleaseLock()
    
24.                         CF = CType(OldRoot.Children(1), TextBox)
    
25.                         EV.getlock()
    
26.                         ActiveWorkBook.Worksheets("sheet1").ProtectContents = False '查阅时解锁
    
27.                        
    
28.                         If App.Type= 3 Then
    
29.                                 '填写符合条件后执行的代码
    
30.                                 AW.ActiveWorksheet.Shapes("Button 4").Visible = False
    
31.                                 Else
    
32.                                         AW.ActiveWorksheet.Shapes("Button 4").Visible = True
    
33.                         End If
    
34.            
    
35.                         If Range("F_9269").Value <> "" Then '打开时遍历指定地址
    
36.                                 Dim bb As String = Range("F_9269").Value.ToString()
    
37.                                 Dim cc() As String = bb.split(",")
    
38.                                 Dim cell As String
    
39. 
    
40.                                 For Each cell In cc
    
41.                                         If cell <> "" Then
    
42.                                                 AW.ActiveWorksheet.Range(cell).Font.ColorIndex = 2
    
43.                                         End If
    
44.                                 Next cell
    
45.                         End If
    
46.              ActiveWorkBook.Worksheets("sheet1").ProtectContents = True '查阅时执行完成后锁定
    
47.                         EV.ReleaseLock()
    
48.             
    
49.                 End Sub'打开时执行事件
    
50. 
    
51.                 Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
52. 
    
53.                 End Sub'单元格选择后执行的事件
    
54. 
    
55.                 Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
56. 
    
57.                 End Sub'单元格编辑完成后执行事件
    
58. 
    
59.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
60.                         EV.GetLock()
    
61.             
    
62.                         If e.Shape.Name = "Button 1" Then '对选择单元格标记颜色
    
63.                                 Dim addr As String = EV.RangeSelection.Address
    
64.                                 Dim address As String
    
65.                                 Dim aa As String = Range("F_9269").Text
    
66.                                 AW.ActiveWorksheet.Range(addr).Font.ColorIndex = 2
    
67.                                 ' address =aa + addr +","
    
68.                                 ' Range("F_9269").Value = address
    
69.                         End If
    
70. 
    
71. 
    
72.                         If e.Shape.Name = "Button 2" Then '全部取消颜色
    
73. 
    
74.                                 range("T_855").Font.ColorIndex = 0
    
75.                         End If
    
76. 
    
77.                         If e.Shape.Name = "Button 3" Then '单个取消颜色
    
78.                                 Dim addr As String = EV.RangeSelection.Address
    
79.                                 Dim address As String
    
80.                                 Dim aa As String = Range("F_9269").Text
    
81.                                 AW.ActiveWorksheet.Range(addr).Font.ColorIndex = 0
    
82.                                 'address = addr -aa +","
    
83.                                 'Range("F_9269").Value = address
    
84.                         End If
    
85. 
    
86.                         ' ActiveWorkbook.WorkbookSet.GetLock()
    
87.                         If e.Shape.Name = "Button 4" Then
    
88.                                 CF.Text = "#保存"
    
89.                                 '填写符合条件后执行的代码
    
90.                                 Dim address As String
    
91.                                 Dim cell As IRange
    
92. 
    
93.                                 For Each cell In AW.ActiveWorksheet.UsedRange
    
94.                                         If cell.Font.ColorIndex = 2 Then
    
95. 
    
96.                                                 address = cell.Address + "," + address
    
97.                                                 Range("F_9269").Value = address
    
98.                                         End If
    
99.                                 Next cell
    
100. 
     
101. 
     
102.                         End If
     
103.             
     
104.                         EV.ReleaseLock()
     
105.                        
     
106.                 End Sub'按钮/标签点击事件
     
107. 
     
108.                 Public Sub FollowHyperlink(sender As Object)
     
109. 
     
110.                 End Sub '暂不支持
     
111. 
     
112.         End Class
     
113.         '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
     
114. End Namespace
     

复制代码

通过快表VBA功能，对明细表单元格的字体颜色进行标记红。

图示效果

红色=Button 1  ,全部取消=Button 2  ,选中取消=Button 3  ,保存=Button 4  ，F_9269为存储标记为红色字体的单元格地址

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 Microsoft.VisualBasic
   
8. Imports System.IO
   
9. Imports System.Text
   
10. Imports System.Net
    
11. Imports System.Windows.forms
    
12. Namespace ExcelViewVBDotnet
    
13.         Public Class StandardInterface
    
14.                 '预留位置1
    
15.                 '预留位置2
    
16.                 Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView, AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
17.                 Dim CF As TextBox
    
18.                 Public Sub Workbook_Open(OldRoot As Object, NewRoot As Object, Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
19.                         EV = Excel
    
20.                         Excel.GetLock()
    
21.                         AW = Excel.ActiveWorkbook
    
22.                         Range = AW.ActiveWorksheet.Range
    
23.                         Excel.ReleaseLock()
    
24.                         CF = CType(OldRoot.Children(1), TextBox)
    
25.                         EV.getlock()
    
26.                         ActiveWorkBook.Worksheets("sheet1").ProtectContents = False '查阅时解锁
    
27.                        
    
28.                         If App.Type= 3 Then
    
29.                                 '填写符合条件后执行的代码
    
30.                                 AW.ActiveWorksheet.Shapes("Button 4").Visible = False
    
31.                                 Else
    
32.                                         AW.ActiveWorksheet.Shapes("Button 4").Visible = True
    
33.                         End If
    
34.            
    
35.                         If Range("F_9269").Value <> "" Then '打开时遍历指定地址
    
36.                                 Dim bb As String = Range("F_9269").Value.ToString()
    
37.                                 Dim cc() As String = bb.split(",")
    
38.                                 Dim cell As String
    
39. 
    
40.                                 For Each cell In cc
    
41.                                         If cell <> "" Then
    
42.                                                 AW.ActiveWorksheet.Range(cell).Font.ColorIndex = 2
    
43.                                         End If
    
44.                                 Next cell
    
45.                         End If
    
46.              ActiveWorkBook.Worksheets("sheet1").ProtectContents = True '查阅时执行完成后锁定
    
47.                         EV.ReleaseLock()
    
48.             
    
49.                 End Sub'打开时执行事件
    
50. 
    
51.                 Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
52. 
    
53.                 End Sub'单元格选择后执行的事件
    
54. 
    
55.                 Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
56. 
    
57.                 End Sub'单元格编辑完成后执行事件
    
58. 
    
59.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
60.                         EV.GetLock()
    
61.             
    
62.                         If e.Shape.Name = "Button 1" Then '对选择单元格标记颜色
    
63.                                 Dim addr As String = EV.RangeSelection.Address
    
64.                                 Dim address As String
    
65.                                 Dim aa As String = Range("F_9269").Text
    
66.                                 AW.ActiveWorksheet.Range(addr).Font.ColorIndex = 2
    
67.                                 ' address =aa + addr +","
    
68.                                 ' Range("F_9269").Value = address
    
69.                         End If
    
70. 
    
71. 
    
72.                         If e.Shape.Name = "Button 2" Then '全部取消颜色
    
73. 
    
74.                                 range("T_855").Font.ColorIndex = 0
    
75.                         End If
    
76. 
    
77.                         If e.Shape.Name = "Button 3" Then '单个取消颜色
    
78.                                 Dim addr As String = EV.RangeSelection.Address
    
79.                                 Dim address As String
    
80.                                 Dim aa As String = Range("F_9269").Text
    
81.                                 AW.ActiveWorksheet.Range(addr).Font.ColorIndex = 0
    
82.                                 'address = addr -aa +","
    
83.                                 'Range("F_9269").Value = address
    
84.                         End If
    
85. 
    
86.                         ' ActiveWorkbook.WorkbookSet.GetLock()
    
87.                         If e.Shape.Name = "Button 4" Then
    
88.                                 CF.Text = "#保存"
    
89.                                 '填写符合条件后执行的代码
    
90.                                 Dim address As String
    
91.                                 Dim cell As IRange
    
92. 
    
93.                                 For Each cell In AW.ActiveWorksheet.UsedRange
    
94.                                         If cell.Font.ColorIndex = 2 Then
    
95. 
    
96.                                                 address = cell.Address + "," + address
    
97.                                                 Range("F_9269").Value = address
    
98.                                         End If
    
99.                                 Next cell
    
100. 
     
101. 
     
102.                         End If
     
103.             
     
104.                         EV.ReleaseLock()
     
105.                        
     
106.                 End Sub'按钮/标签点击事件
     
107. 
     
108.                 Public Sub FollowHyperlink(sender As Object)
     
109. 
     
110.                 End Sub '暂不支持
     
111. 
     
112.         End Class
     
113.         '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
     
114. End Namespace
     

复制代码