GBKEE

¦^´_ 1# y663258

1. Option Explicit
   
2. Public A As Integer
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     Dim AR(1 To 7) As Range, i As Integer, s As Integer
   
5.     Application.EnableEvents = False
   
6.     Set AR(1) = [A3:E12]
   
7.     Set AR(2) = [G3:K12]
   
8.     Set AR(3) = [M3:Q12]
   
9.     Set AR(4) = [A15:E24]
   
10.     Set AR(5) = [G15:K24]
    
11.     Set AR(6) = [M15:P24]
    
12.     Set AR(7) = [A27:D37]
    
13.     For i = 1 To 7
    
14.         If i = 1 Then s = 1 Else s = s * 2
    
15.         If Not Intersect(Target(1), AR(i)) Is Nothing Then            A = s + A
    
16.     Next
    
17.     Application.EnableEvents = True
    
18. End Sub
    
19. Sub Ex()   '´¡¤Jª«¥ó(¹Ï¤ù,¤å¦r®Øµ¥..«ö¶s) «ü©w¦¹¥¨¶°
    
20.     Dim Rng As Range
    
21.     Set Rng = Range("B39", Range("B39").End(xlDown))
    
22.     Rng(A).Select
    
23.     MsgBox Rng(A)
    
24.     A = 0
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# y663258
'Module ªºµ{¦¡½X

1. Option Explicit
   
2. Public A()     'Module ªºµ{¦¡½X
   
3. Sub Ex()   '´¡¤Jª«¥ó(¹Ï¤ù,¤å¦r®Øµ¥..«ö¶s) «ü©w¦¹¥¨¶°
   
4.     Dim Rng As Range, M As String, i
   
5.      Set Rng = Range("B39", Range("B39").End(xlDown))
   
6.     On Error GoTo Thend
   
7.     For i = 0 To UBound(A) - 1
   
8.         M = M & IIf(M <> "", " : ", "") & Rng(A(i))
   
9.     Next
   
10.     MsgBox M
    
11.     Erase A
    
12. Thend:
    
13. End Sub

½Æ»s¥N½X

Worksheet ªºµ{¦¡½X

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim AR(1 To 7) As Range, i As Integer, s As Integer
   
4.     Application.EnableEvents = False
   
5.     Set AR(1) = [A3:E12]
   
6.     Set AR(2) = [G3:K12]
   
7.     Set AR(3) = [M3:Q12]
   
8.     Set AR(4) = [A15:E24]
   
9.     Set AR(5) = [G15:K24]
   
10.     Set AR(6) = [M15:P24]
    
11.     Set AR(7) = [A27:D37]
    
12.     For i = 1 To 7
    
13.         If i = 1 Then s = 1 Else s = s * 2
    
14.         If Not Intersect(Target(1), AR(i)) Is Nothing Then
    
15.             On Error GoTo TEN:
    
16.             A(UBound(A)) = s
    
17.             ReDim Preserve A(UBound(A) + 1)
    
18.         End If
    
19.     Next
    
20.     Application.EnableEvents = True
    
21.     Exit Sub
    
22. TEN:
    
23. ReDim A(0)
    
24. Resume
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# y663258
½Ð¬Ý    3¼Ó¤w­×¥¿ªºµ{¦¡½X.

GBKEE

¦^´_ 10# y663258
¦p1¡A2¡A3¡A5¦³¥X²{´N¬O1+2+4+16=23¹ï·Ó©m¤óªí§º¡A³Q²qªÌ´N¬O©m§º
Hsieh¶Wª© ªºµ{¦¡½X,3¼Óªºµ{¦¡½X ,¤£´N¬O¦p¦¹¶Ü?
¯u¬O¬Ý¤£¥X§A­nªº¬O¤°»ò?

GBKEE

¦^´_ 13# y663258
Hsieh¶Wª© ªºµ{¦¡½Xµ²ªG¬O16Åã¥Ü³¢¡A¨S¦³²Ö¥[©Ò¿ï¹Lªº¼Æ­È1+2+4+16¥u¿ï³Ì«á¿ï¾Üªº16¡C
¦³ªº¬O 23 ¤£¬O 16  §A¦A ¸Õ¸Õ¬Ý

GBKEE

¦^´_ 15# y663258
§Ú3¼Ó ªºµ{¦¡½X §A¦b¤u§@¤W¤@¤@ªºÂI¿ï½d³ò¹L«á °õ¦æ Sub Ex()  ¥iÅã¥Üµª®×  ¶Ü?
Hsieh ª©¤j¥Ø«eµ{¦¡·|Åã¥Ü´¿¦]¬O¨ú³Ì«á¿ï¨úªº6=32¨S¦³²Ö¥k«e¤T­Ó¿ï¶µ1.2.3¤§¹ê»Ú¼Æ­È1¡A2¡A4¡C
¦³ªü §A¬O¦p¦ó°õ¦æªº
Hsieh¶Wª© ªºµ{¦¡½X For Each a In Selection  §A¥i¯à¤£¤F¸Ñ Selection³o·N«ä
½Ð§A¦b¤u§@¤W¥ý«ö¦í Ctrl  Áä µM«á ÂI¿ï 1,2,3 ªº½d³ò«á °õ¦æµ{¦¡½X ¬Ý¬Ý¬O§_¹ïªº