[µo°Ý] ½Ð°Ý¤j¤j们§Ú¥Î±ø½X±½ºË¨ìB5ªºÄæ¦ì¥i¥HÅý¥¦¦Û¤v¸õ¦^B2ªºÄæ¦ì¶Ü

hu0318s

¦]¬°¤½¥qªº±M®×­n¼g±ø½X§P©w,§Ú¥Î±ø½X±½ºË¨ìB5ªºÀx¦s®æ,¤@ª½µLªk¦Û¤v¸õ¦^B2ªºÀx¦s®æ,½Ð°Ý¤j¤j们§Ú­n¦p¦ó­×§ïVBA¤~¥i¥H¸õ¦^B2Àx¦s®æ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. 
   
4. If Target.Address = "$b$5" Then
   
5. MsgBox "¸õ¦^B2Àx¦s®æ" & Range("B2").Value
   
6. End If
   
7. 
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# hu0318s
¦r¥À­n¤j¼g

1. If Target.Address = "$B$5" Then

½Æ»s¥N½X

hu0318s

¦^´_ 2# GBKEE
³øºp¤j¤j§Ú¬O§Æ±æ§Ú¸ê®Æ¨ìb4ªºÀx¦s®æ«á, ¦b°õ¦æ¤@¦¸±ø½X´N«e´N¸õ¨ìb2ªºÀx¦s®æ,¤£ª¾¨ìvba­n¦p¦ó¼g

¤U¸ü (142.03 KB)

2014-4-12 23:01

¤U¸ü (135.1 KB)

2014-4-12 23:04

­è­è­×§ïªºvba

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. 
   
4. If Target.Address = "$B$5" Then
   
5.     Range("B2").Select
   
6.    
   
7. End If
   
8. 
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# hu0318s

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     'ÅܼÆTarget ¶Ç¦^¦³­×§ïªºÀx¦s®æªº½d³ò,Target.Cells(1) ¦¹½d³òªº²Ä¤@­ÓCells
   
4.     If Not Application.Intersect([B2:B4], Target.Cells(1)) Is Nothing Then 'TargetÅܼƪº¦ì¸m¦b[B2:B4]¤¤
   
5.         'Intersect ¡A¦¹ª«¥ó¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò¡C
   
6.         If Application.CountA([B2:B4]) = 0 Or Target.Cells(1).Address(0, 0) = "B4" Then 'Address(0, 0) ¶Ç¦^¬Û¹ï°Ñ·Ó¦ì¸m
   
7.             [B2].Select
   
8.         End If
   
9.     End If
   
10. End Sub

½Æ»s¥N½X

hu0318s

¦^´_ 4# GBKEE [/b
ÁÂÁ¤j¤jªº±Ð¾É,§Ú·|¦A§V¤O¾Ç²ßªº ÁÂÁ¤j¤jªºÀ°¦£

howie

¯uªº¨ü¥ÎµL½aªº¤@½g¤å