ªð¦^¦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)

¥»©«³Ì«á¥Ñ 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

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

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD