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

[µo°Ý] Worksheet_SelectionChangeªº°ÝÃD

¦^´_ 1# yen956
¥u­n¬O·í´å¼Ð±qB2²¾¨ì,¨ä¥L¥ô¤@Àx¦s®æ®É, ·|§e²{B2ªº°T®§,
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3.     Static t As Range
  4.     If Not t Is Nothing Then
  5.         If t.Address(0, 0) = "B2" Then MsgBox [B2]
  6.     End If
  7.     Set t = Target
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD