校验身份证位数的VBA


如果身份证位数不是18，则字段区域变红。





在身份证字段的右侧添加一个判断字段，判断字段添加函数来判断身份证字段的值是否正确



VBA使用方法:直接复制下面的内容，把T_255替换成自己的表名，把F_51655替换成需要判断的字段别名

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.        
    
11. 
    
12. 
    
13.        '预留位置1
    
14.        '预留位置2
    
15.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
16.           
    
17.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.            EV = Excel
    
19.            Excel.GetLock()
    
20.            AW = Excel.ActiveWorkbook
    
21.            Range = AW.ActiveWorksheet.Range
    
22.            Excel.ReleaseLock()
    
23.                   
    
24. 
    
25.        End Sub'打开时执行事件
    
26. 
    
27.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)  
    
28. 
    
29.            ActiveWorkbook.WorkbookSet.GetLock()
    
30. '定义一个明细表的范围:T_155          
    
31.            Dim Rng As IRange = e.RangeSelection.Intersect(Range("T_255"))
    
32.            Dim MyRange As IRange
    
33. '如果选择区域不在设定的范围内，不执行下面的代码
    
34.                 If Rng IsNot Nothing Then
    
35.                        
    
36. '          ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
37. '                  C1MessageBox.Show("你好！", "提示", OK, Information)
    
38.                   '循环判断F_51527_,F_51533_,F_51534_三块区域
    
39.                   For Each MyRange In Range("F_51655")
    
40.                           '判断区域的值是否等于"TRUE"
    
41.             If MyRange.value = "1" Then
    
42.                                 '满足条件的单元格的值左侧一格单元格锁定
    
43. '                 MyRange.Cells(0,-9).Locked = True
    
44.                                  MyRange.Cells(0,-9).Interior.Color = Color.FromArgb(255,0,0)
    
45.                 Else
    
46.                                         '不满足条件的单元格的值左侧一格单元格解锁
    
47. '                 MyRange.Cells(0,-9).Locked = False
    
48.                                  MyRange.Cells(0,-9).Interior.Color = Color.FromArgb(255,255,255)
    
49.                 End If
    
50.             Next
    
51.                         End If               
    
52.            ActiveWorkbook.WorkbookSet.ReleaseLock()
    
53.           
    
54.        End Sub'单元格选择后执行的事件
    
55. 
    
56.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
57. 
    
58.        End Sub'单元格编辑完成后执行事件
    
59. 
    
60.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
61. 
    
62.        End Sub'按钮/标签点击事件
    
63. 
    
64.        Public Sub FollowHyperlink(sender As Object)
    
65. 
    
66.        End Sub '暂不支持
    
67. 
    
68.    End Class
    
69. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
70. End Namespace
    

复制代码

校验身份证位数的VBA


如果身份证位数不是18，则字段区域变红。





在身份证字段的右侧添加一个判断字段，判断字段添加函数来判断身份证字段的值是否正确



VBA使用方法:直接复制下面的内容，把T_255替换成自己的表名，把F_51655替换成需要判断的字段别名

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.        
    
11. 
    
12. 
    
13.        '预留位置1
    
14.        '预留位置2
    
15.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
16.           
    
17.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.            EV = Excel
    
19.            Excel.GetLock()
    
20.            AW = Excel.ActiveWorkbook
    
21.            Range = AW.ActiveWorksheet.Range
    
22.            Excel.ReleaseLock()
    
23.                   
    
24. 
    
25.        End Sub'打开时执行事件
    
26. 
    
27.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)  
    
28. 
    
29.            ActiveWorkbook.WorkbookSet.GetLock()
    
30. '定义一个明细表的范围:T_155          
    
31.            Dim Rng As IRange = e.RangeSelection.Intersect(Range("T_255"))
    
32.            Dim MyRange As IRange
    
33. '如果选择区域不在设定的范围内，不执行下面的代码
    
34.                 If Rng IsNot Nothing Then
    
35.                        
    
36. '          ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
37. '                  C1MessageBox.Show("你好！", "提示", OK, Information)
    
38.                   '循环判断F_51527_,F_51533_,F_51534_三块区域
    
39.                   For Each MyRange In Range("F_51655")
    
40.                           '判断区域的值是否等于"TRUE"
    
41.             If MyRange.value = "1" Then
    
42.                                 '满足条件的单元格的值左侧一格单元格锁定
    
43. '                 MyRange.Cells(0,-9).Locked = True
    
44.                                  MyRange.Cells(0,-9).Interior.Color = Color.FromArgb(255,0,0)
    
45.                 Else
    
46.                                         '不满足条件的单元格的值左侧一格单元格解锁
    
47. '                 MyRange.Cells(0,-9).Locked = False
    
48.                                  MyRange.Cells(0,-9).Interior.Color = Color.FromArgb(255,255,255)
    
49.                 End If
    
50.             Next
    
51.                         End If               
    
52.            ActiveWorkbook.WorkbookSet.ReleaseLock()
    
53.           
    
54.        End Sub'单元格选择后执行的事件
    
55. 
    
56.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
57. 
    
58.        End Sub'单元格编辑完成后执行事件
    
59. 
    
60.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
61. 
    
62.        End Sub'按钮/标签点击事件
    
63. 
    
64.        Public Sub FollowHyperlink(sender As Object)
    
65. 
    
66.        End Sub '暂不支持
    
67. 
    
68.    End Class
    
69. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
70. End Namespace
    

复制代码