下面的VBA判断了单元格字符串中是包含中文、英文以及数字的数量。供参考使用

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.                 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.                 End Sub'打开时执行事件
    
24. 
    
25.                 Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
26.                         Dim chineseCount, englishCount, numberCount As Integer
    
27.                         Dim mtext As String = e.RangeSelection.Text
    
28.                         GetCharacterStats(mtext, chineseCount, englishCount, numberCount)
    
29.                         messagebox.show("C:" + chineseCount.ToString + " " + "E:" + englishCount.ToString + "N:" + numberCount.ToString)
    
30.                 End Sub'单元格选择后执行的事件
    
31. 
    
32.                 Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
33. 
    
34.                 End Sub'单元格编辑完成后执行事件
    
35. 
    
36.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
37. 
    
38.                 End Sub'按钮/标签点击事件
    
39. 
    
40.                 Public Sub FollowHyperlink(sender As Object)
    
41. 
    
42.                 End Sub '暂不支持
    
43. 
    
44.                 Public Sub GetCharacterStats(inputStr As String, ByRef chineseCount As Integer, ByRef englishCount As Integer, ByRef numberCount As Integer)
    
45.                         chineseCount = 0
    
46.                         englishCount = 0
    
47.                         numberCount = 0
    
48. 
    
49.                         For Each ch As Char In inputStr
    
50.                                 Dim code As Integer = AscW(ch)
    
51. 
    
52.                                 ' 判断中文字符（常用中文范围）
    
53.                                 If code >= &H4E00 AndAlso code <= &H9FFF Then
    
54.                                         chineseCount += 1
    
55.                                 ' 判断英文字母
    
56.                                 ElseIf (code >= &H41 AndAlso code <= &H5A) OrElse 'a-z
    
57.                                         (code >= &H61 AndAlso code <= &H7A) Then
    
58.                                         englishCount += 1
    
59.                                 ' 判断数字 0-9
    
60.                                 ElseIf code >= &H30 AndAlso code <= &H39 Then      ' 0-9
    
61.                                         numberCount += 1
    
62.                                 End If
    
63.                         Next
    
64.                 End Sub
    
65. 
    
66.         End Class
    
67.         '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
68. End Namespace
    

复制代码

下面的VBA判断了单元格字符串中是包含中文、英文以及数字的数量。供参考使用

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.                 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.                 End Sub'打开时执行事件
    
24. 
    
25.                 Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
26.                         Dim chineseCount, englishCount, numberCount As Integer
    
27.                         Dim mtext As String = e.RangeSelection.Text
    
28.                         GetCharacterStats(mtext, chineseCount, englishCount, numberCount)
    
29.                         messagebox.show("C:" + chineseCount.ToString + " " + "E:" + englishCount.ToString + "N:" + numberCount.ToString)
    
30.                 End Sub'单元格选择后执行的事件
    
31. 
    
32.                 Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
33. 
    
34.                 End Sub'单元格编辑完成后执行事件
    
35. 
    
36.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
37. 
    
38.                 End Sub'按钮/标签点击事件
    
39. 
    
40.                 Public Sub FollowHyperlink(sender As Object)
    
41. 
    
42.                 End Sub '暂不支持
    
43. 
    
44.                 Public Sub GetCharacterStats(inputStr As String, ByRef chineseCount As Integer, ByRef englishCount As Integer, ByRef numberCount As Integer)
    
45.                         chineseCount = 0
    
46.                         englishCount = 0
    
47.                         numberCount = 0
    
48. 
    
49.                         For Each ch As Char In inputStr
    
50.                                 Dim code As Integer = AscW(ch)
    
51. 
    
52.                                 ' 判断中文字符（常用中文范围）
    
53.                                 If code >= &H4E00 AndAlso code <= &H9FFF Then
    
54.                                         chineseCount += 1
    
55.                                 ' 判断英文字母
    
56.                                 ElseIf (code >= &H41 AndAlso code <= &H5A) OrElse 'a-z
    
57.                                         (code >= &H61 AndAlso code <= &H7A) Then
    
58.                                         englishCount += 1
    
59.                                 ' 判断数字 0-9
    
60.                                 ElseIf code >= &H30 AndAlso code <= &H39 Then      ' 0-9
    
61.                                         numberCount += 1
    
62.                                 End If
    
63.                         Next
    
64.                 End Sub
    
65. 
    
66.         End Class
    
67.         '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
68. End Namespace
    

复制代码