求助贴，关于VBA代码用VB6封装

xueyushenl

1. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   
2. On Error Resume Next
   
3. Cells.FormatConditions.Delete
   
4. With Target.EntireRow.FormatConditions
   
5. .Delete
   
6. .Add xlExpression, , Target.Value <> ""
   
7. .Item(0).Interior.ColorIndex = 20
   
8. End With
   
9. With Target.EntireColumn.FormatConditions
   
10. .Delete
    
11. .Add xlExpression, , Target.Value <> ""
    
12. .Item(1).Interior.ColorIndex = 20
    
13. End With
    
14. End Sub

复制代码

上面是我在VBA已经测试通过的代码，是实现非空单元格单击之后行列变色。最近在网上搜到能用VB来封装VBA代码，所以非常感兴趣就拿上面代码做实验。照着网上的好多教程例子做都没有成功实现功能，所以来请教论坛的大神门。
以下是我再VB6中的代码：

1. Public Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   
2. Dim xlapp As Object
   
3. Set xlapp = GetObject(, "Excel.Application")
   
4. On Error Resume Next
   
5. xlapp.Cells.FormatConditions.Delete
   
6. With xlapp
   
7.     With Target.EntireRow.FormatConditions
   
8.     .Delete
   
9.     .Add xlExpression, , Target.Value <> ""
   
10.     .Item(1).Interior.ColorIndex = 20
    
11.     End With
    
12.     With Target.EntireColumn.FormatConditions
    
13.     .Delete
    
14.     .Add xlExpression, , Target.Value <> ""
    
15.     .Item(1).Interior.ColorIndex = 20
    
16.     End With
    
17. End With
    
18. End Sub

复制代码

1. Public Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   
2. Dim xlapp As Object
   
3. Set xlapp = GetObject(, "Excel.Application")
   
4. On Error Resume Next
   
5. xlapp.Cells.FormatConditions.Delete
   
6. With xlapp.Target.EntireRow.FormatConditions
   
7. .Delete
   
8. .Add xlExpression, , Target.Value <> ""
   
9. .Item(1).Interior.ColorIndex = 20
   
10. End With
    
11. With xlapp.Target.EntireColumn.FormatConditions
    
12. .Delete
    
13. .Add xlExpression, , Target.Value <> ""
    
14. .Item(1).Interior.ColorIndex = 20
    
15. End With
    
16. End Sub

复制代码

电脑上所用的excel版本是2013，VB6。并且也在VB6中引用了Microsoft Excel 15.0 Object Library，在VB6工程中按F2也有Excel的库。生成.DLL文件后也在VBA中引用并且勾选了，但是就是没有效果。可能是我封装的不对，也还请大神门指教，本人也比较小白，没有太多接触过这方面知识。

xueyushenl

人工置顶。