点击明细表任意一列标题对明细表排序的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 System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Co**ols.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.            Dim ad As Integer = 0, ac As Integer = 0
    
14.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Co**ols.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.Co**ols.RangeSelectionChangedEventArgs)
    
23.             ActiveWorkbook.WorkbookSet.GetLock()
    
24.             If e.RangeSelection.Intersect(Range("BTH")) IsNot Nothing Then
    
25.                 Dim cc As Integer = e.RangeSelection.Column - 1
    
26.                 Dim K1 As SpreadsheetGear.SortKey
    
27.                 If ac = cc Then
    
28.                     If ad = 0 Then
    
29.                         K1 = New SpreadsheetGear.SortKey(cc, SpreadsheetGear.SortOrder.Ascending, SpreadsheetGear.SortDataOption.Normal)
    
30.                         ad = 1
    
31.                     Else
    
32.                         K1 = New SpreadsheetGear.SortKey(cc, SpreadsheetGear.SortOrder.Descending, SpreadsheetGear.SortDataOption.Normal)
    
33.                         ad = 0
    
34.                     End If
    
35.                 Else
    
36.                     K1 = New SpreadsheetGear.SortKey(cc, SpreadsheetGear.SortOrder.Ascending, SpreadsheetGear.SortDataOption.Normal)
    
37.                     ad = 1
    
38.                     ac = cc
    
39.                 End If
    
40.                 Range("T_73").Sort(SpreadsheetGear.SortOrientation.Rows, True, K1)
    
41.             End If
    
42.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
43.        End Sub'单元格选择后执行的事件
    
44. 
    
45.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs)
    
46. 
    
47.        End Sub'单元格编辑完成后执行事件
    
48. 
    
49.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)
    
50. 
    
51.        End Sub'按钮/标签点击事件
    
52. 
    
53.        Public Sub FollowHyperlink(sender As Object)
    
54. 
    
55.        End Sub '暂不支持
    
56. 
    
57.    End Class
    
58. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
59. End Namespace
    

复制代码

复制上面代码整体替换模板中的命令代码即可。若还有其他的事件代码，可以选择RangeSelection事件复制，并复制声明语句Dim ad As Integer = 0, ac As Integer = 0
模板中将明细表的标题区域选中添加别名为BTH,并将代码的中的明细表区域别名T_73替换为自己的明细表别名




有同学说比较复杂
其实不复杂
超级简单
这个是通用的代码
适用于任意模板的排序


您只要如下三步：
1、复制
2、将其中的T_73替换为自己的明细表
3、模板中将明细表标题添加个别名  BTH

点击明细表任意一列标题对明细表排序的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 System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Co**ols.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.            Dim ad As Integer = 0, ac As Integer = 0
    
14.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Co**ols.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.Co**ols.RangeSelectionChangedEventArgs)
    
23.             ActiveWorkbook.WorkbookSet.GetLock()
    
24.             If e.RangeSelection.Intersect(Range("BTH")) IsNot Nothing Then
    
25.                 Dim cc As Integer = e.RangeSelection.Column - 1
    
26.                 Dim K1 As SpreadsheetGear.SortKey
    
27.                 If ac = cc Then
    
28.                     If ad = 0 Then
    
29.                         K1 = New SpreadsheetGear.SortKey(cc, SpreadsheetGear.SortOrder.Ascending, SpreadsheetGear.SortDataOption.Normal)
    
30.                         ad = 1
    
31.                     Else
    
32.                         K1 = New SpreadsheetGear.SortKey(cc, SpreadsheetGear.SortOrder.Descending, SpreadsheetGear.SortDataOption.Normal)
    
33.                         ad = 0
    
34.                     End If
    
35.                 Else
    
36.                     K1 = New SpreadsheetGear.SortKey(cc, SpreadsheetGear.SortOrder.Ascending, SpreadsheetGear.SortDataOption.Normal)
    
37.                     ad = 1
    
38.                     ac = cc
    
39.                 End If
    
40.                 Range("T_73").Sort(SpreadsheetGear.SortOrientation.Rows, True, K1)
    
41.             End If
    
42.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
43.        End Sub'单元格选择后执行的事件
    
44. 
    
45.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs)
    
46. 
    
47.        End Sub'单元格编辑完成后执行事件
    
48. 
    
49.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)
    
50. 
    
51.        End Sub'按钮/标签点击事件
    
52. 
    
53.        Public Sub FollowHyperlink(sender As Object)
    
54. 
    
55.        End Sub '暂不支持
    
56. 
    
57.    End Class
    
58. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
59. End Namespace
    

复制代码

复制上面代码整体替换模板中的命令代码即可。若还有其他的事件代码，可以选择RangeSelection事件复制，并复制声明语句Dim ad As Integer = 0, ac As Integer = 0
模板中将明细表的标题区域选中添加别名为BTH,并将代码的中的明细表区域别名T_73替换为自己的明细表别名




有同学说比较复杂
其实不复杂
超级简单
这个是通用的代码
适用于任意模板的排序


您只要如下三步：
1、复制
2、将其中的T_73替换为自己的明细表
3、模板中将明细表标题添加个别名  BTH