ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ hu0318s ©ó 2014-4-12 15:59 ½s¿è

¦]¬°¤½¥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. If Target.Address = "$b$5" Then
  3. MsgBox "¸õ¦^B2Àx¦s®æ" & Range("B2").Value
  4. End If

  5. End Sub
½Æ»s¥N½X

B CO.JPG (112.93 KB)

B CO.JPG

b co.rar (7.63 KB)

¦^´_ 1# hu0318s
¦r¥À­n¤j¼g
  1. If Target.Address = "$B$5" Then
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ hu0318s ©ó 2014-4-12 23:10 ½s¿è

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


­è­è­×§ïªºvba
  1. Private Sub Worksheet_Change(ByVal Target As Range)


  2. If Target.Address = "$B$5" Then
  3.     Range("B2").Select
  4.    
  5. End If

  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD