GBKEE

¦^´_ 1# t8899


   

1. ½Ð°Ý¦¹µ{§Ç«Å§i¥Î¨º­Ó(©Î¦p¦ó­×§ï)¸û¬Ù¸ê·½??
2. ¥Î Private Sub Worksheet_Change() ¬°¦ó¥X²{ ¨Æ¥óµ{§Çªº«Å§i»P¦P¦W¨Æ¥óªº´y­z¤£¬Û²Å

¨Ì¾Ú§Aªº»Ý¨D«Å§iÅܼƪº«¬ºA »P ­þ¤@­Ó¸û¬Ù¸ê·½µLÃö?
½Ð¸Ô¬ÝVBAªº»¡©ú

1. Dim A As Integer, B As Long, C As Single, D As Double

½Æ»s¥N½X

Private Sub Worksheet_Change(ByVal Target As Range)¬O¤u§@ªí¼Ò²Õªº¹w³]¨Æ¥óµ{§Ç
§A¤£¥i¥H¦b¤u§@ªí¼Ò²Õ¤¤¥t¨Ï¥Î©Ò¦³ªº¹w³]¨Æ¥óµ{§Çªº¦WºÙ,°µ¬°µ{§Çªº¦WºÙ

¤u§@ªí¼Ò²Õªº¹w³]¨Æ¥óµ{§Ç ¦p¹Ï

¤U¸ü (108.99 KB)

2014-10-13 05:45

GBKEE

¦^´_ 3# t8899
¥i¦b¤u§@ªí¤W ¿ï¨ú¦h­«½d³òµM«á«ö¤U§R°£Áä
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     MsgBox Target.Count
   
4.     'Dim e As Range
   
5.     ' For Each e In Target
   
6.     '   MsgBox e.Address
   
7.     ' Next
   
8. End Sub

½Æ»s¥N½X

Private Sub Worksheet_Change()
¨S¦³¹w³]¨Æ¥ó©Ò³]¥ßªº°Ñ¼Æ,µø¬°¤@¯ëµ{§Ç,©Ò¥HVBAµo¥X½sĶ¿ù»~ªº«H®§
** µ{¦¡¦WºÙ ,Åܼƪº«Å§i ¬Ò¶·ÁקK¨Ï¥Î»PVBA¤WªºÃöÁä¦r(ª«¥ó,¨ç¼Æ,ÄÝ©Ê,¤èªk)¬Û¦Pªº¤å¦r **

GBKEE

¦^´_ 5# t8899

¤U¸ü (17.6 KB)

2014-10-13 07:55

1. Option Explicit
   
2. Private Sub Ex()
   
3.     My_Worksheet_Change Selection   'µ{¦¡ (¶Ç»¼°Ñ¼Æ)
   
4. End Sub
   
5. Private Sub My_Worksheet_Change(ByVal T As Range)
   
6.     Dim Rg As Range, e As Range
   
7.     'Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò¡C
   
8.     MsgBox T.Address
   
9.     Set Rg = Intersect(T, Range("AL5:AL15"))
   
10.     If Rg Is Nothing Then Exit Sub
    
11.     MsgBox Rg.Address
    
12.     'For Each...Next ³¯­z¦¡ °w¹ï¤@­Ó°}¦C©Î¶°¦X¤¤ªº©Ò¦³¤¸¯À¡A­«½Æ°õ¦æ¤@¬q³¯­z¦¡¡C
    
13.     For Each e In Rg
    
14.         MsgBox e.Address
    
15.     Next
    
16.     For Each e In Range("AL5:AL15")
    
17.         MsgBox e.Address
    
18.     Next
    
19. End Sub
    
20. Private Sub Worksheet_Change(ByVal T As Range) 'Target ÅܼƦWºÙ ¥i­×§ï
    
21.     Dim Rg As Range, e As Range
    
22.     MsgBox T.Address
    
23.     Set Rg = Intersect(T, Range("AL5:AL15"))
    
24.     If Rg Is Nothing Then Exit Sub
    
25.     MsgBox Rg.Address
    
26.     For Each e In Rg
    
27.         MsgBox e.Address
    
28.     Next
    
29.     For Each e In Range("AL5:AL15")
    
30.         MsgBox e.Address
    
31.     Next
    
32. End Sub

½Æ»s¥N½X