VBA类之一(初识类)

geohuskyer

哇，好复杂呀，看到类就头痛

pst168

板凳学习,谢谢LZ分享！

a8737461

谢谢楼主分享

蘿肥

谢谢楼主分享

瞞着世界獨舞

谢谢楼主 学习了

dustgz2011

Mark.学习了。

小口草

学习，谢谢楼主

wangjingsker

把代码写在thisworkbook中就可以,也不用复制200次啊,但是那个切换保留上一次的问题倒是解决的很好

wangjingsker

wangjingsker 发表于 2013-1-22 21:57
把代码写在thisworkbook中就可以,也不用复制200次啊,但是那个切换保留上一次的问题倒是解决的很好

1. Option Explicit
   
2. Private Type TypeRageLast
   
3.   Range       As Range
   
4.   ColorIndex  As Long
   
5. End Type
   
6. Private Const ColorIndex = 5&
   
7. Private RangeLast() As TypeRageLast
   
8. 
   
9. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
10. Call changecolor(Sh, Target)
    
11. End Sub
    
12. 
    
13. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
14. Call changecolor(Sh, Target)
    
15. End Sub
    
16. Sub changecolor(ByVal Sh As Object, ByVal Target As Range)
    
17.   Dim I As Long
    
18.   Dim Range1 As Range
    
19.   
    
20.   On Error Resume Next
    
21.   If UBound(RangeLast) = -1 Then
    
22.     ReDim RangeLast(0)
    
23.   ElseIf UBound(RangeLast) Then
    
24.     For I = 1 To UBound(RangeLast)
    
25.       If RangeLast(I).Range.Interior.ColorIndex = ColorIndex Then
    
26.         RangeLast(I).Range.Interior.ColorIndex = RangeLast(I).ColorIndex
    
27.       End If
    
28.     Next I
    
29.   End If
    
30.   
    
31.   I = 0
    
32.   ReDim RangeLast(0)
    
33.   
    
34.   For Each Range1 In Target
    
35.     I = I + 1: ReDim Preserve RangeLast(I)
    
36.     RangeLast(I).ColorIndex = Range1.Interior.ColorIndex
    
37.     Set RangeLast(I).Range = Range1
    
38.   Next Range1
    
39.   Target.Interior.ColorIndex = ColorIndex
    
40. End Sub
    

复制代码

直接写在thisworkbook中一样的效果,焦点颜色那个只要在selection_change下也执行代码就行了,现在学类最大的障碍就是不知道类的优越性

yqdaqinqin

谢谢LZ分享