1. Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
   
2.              AW.WorkbookSet.GetLock()
   
3.                     Dim Range As IRange = AW.ActiveWorksheet.Range
   
4.                     Dim RngA  As IRange = e.RangeSelection.Intersect(Range("$A$1:$K$20"))
   
5.                                 
   
6.             If Not RngA Is Nothing Then
   
7.                  For Each Target As IRange  In RngA
   
8.                                        Dim r AS Integer = Target.row + 1
   
9.                     Range("$A$1:$K$20").Interior.ColorIndex = -1
   
10.                     Range("$A$" & r & ":$K$" & r ).Interior.ColorIndex = 20
    
11.                  Next
    
12.             End If
    
13.             
    
14.                 AW.WorkbookSet.ReleaseLock()           
    
15.                      
    
16.         End Sub

复制代码

怎么使用呢？免费版的支持吗？

Option Strict On 不允许从“Integer”到“SpreadsheetGear.Themes.ColorSchemeIndex”的隐式转换。

代码增加后，编译并运行显示以上问题

最顶部加  Option Strict OFF

        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
         Option Strict OFF  
             AW.WorkbookSet.GetLock()
                    Dim Range As IRange = AW.ActiveWorksheet.Range
                    Dim RngA  As IRange = e.RangeSelection.Intersect(Range("$A$1K$20"))
                        
            If Not RngA Is Nothing Then
                 For Each Target As IRange  In RngA
                                        Dim r AS Integer = Target.row + 1
                                        Range("RngA").Interior.ThemeColor = 1
                                        Range("$A$" & r & "K$" & r ).Interior.ThemeColor = 6
                 Next
            End If
            
                AW.WorkbookSet.ReleaseLock()           
                     


                     
        End Sub'单元格选择后执行的事件

这样写，显示语句在方法内部无效。

高亮显示选中行.zip (1004 Bytes, 下载次数: 15)

2016-5-16 12:04 上传

点击文件名下载附件

直接导入VBA编辑器使用

1.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
   
2.                
   
3.             AW.WorkbookSet.GetLock()
   
4.                Dim Range As IRange = AW.ActiveWorksheet.Range
   
5.                Dim RngA  As IRange = e.RangeSelection.Intersect(Range("T_502"))
   
6.                If Not RngA Is Nothing Then
   
7.                  For Each Target As IRange  In RngA
   
8.                     Dim r AS Integer = Target.row + 1
   
9.                     Range("T_502").Interior.ColorIndex = -1
   
10.                     Range("$D$" & r & ":$N$" & r ).Interior.ColorIndex = 20
    
11.                  Next
    
12.             End If
    
13.             AW.WorkbookSet.ReleaseLock()   
    
14.                      
    
15.         End Sub'单元格选择后执行的事件

复制代码

T_502.xls (13 KB, 下载次数: 11)

2017-5-24 16:40 上传

点击文件名下载附件

怎么使用呢？免费版的支持吗？

Option Strict On 不允许从“Integer”到“SpreadsheetGear.Themes.ColorSchemeIndex”的隐式转换。

代码增加后，编译并运行显示以上问题

最顶部加  Option Strict OFF

        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
         Option Strict OFF  
             AW.WorkbookSet.GetLock()
                    Dim Range As IRange = AW.ActiveWorksheet.Range
                    Dim RngA  As IRange = e.RangeSelection.Intersect(Range("$A$1K$20"))
                        
            If Not RngA Is Nothing Then
                 For Each Target As IRange  In RngA
                                        Dim r AS Integer = Target.row + 1
                                        Range("RngA").Interior.ThemeColor = 1
                                        Range("$A$" & r & "K$" & r ).Interior.ThemeColor = 6
                 Next
            End If
            
                AW.WorkbookSet.ReleaseLock()           
                     


                     
        End Sub'单元格选择后执行的事件

这样写，显示语句在方法内部无效。

高亮显示选中行.zip (1004 Bytes, 下载次数: 15)

2016-5-16 12:04 上传

点击文件名下载附件

直接导入VBA编辑器使用

1.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
   
2.                
   
3.             AW.WorkbookSet.GetLock()
   
4.                Dim Range As IRange = AW.ActiveWorksheet.Range
   
5.                Dim RngA  As IRange = e.RangeSelection.Intersect(Range("T_502"))
   
6.                If Not RngA Is Nothing Then
   
7.                  For Each Target As IRange  In RngA
   
8.                     Dim r AS Integer = Target.row + 1
   
9.                     Range("T_502").Interior.ColorIndex = -1
   
10.                     Range("$D$" & r & ":$N$" & r ).Interior.ColorIndex = 20
    
11.                  Next
    
12.             End If
    
13.             AW.WorkbookSet.ReleaseLock()   
    
14.                      
    
15.         End Sub'单元格选择后执行的事件

复制代码

T_502.xls (13 KB, 下载次数: 11)

2017-5-24 16:40 上传

点击文件名下载附件