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

¼È°±Worksheet_SelectionChange

¼È°±Worksheet_SelectionChange

­YªG¤u§@ªí¤¤¨Ï¥Î¤F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
¦p¦ó¥i¥H·í°õ¦æ¥t¤@­Ó¥¨¶°®É¥i¼È®É°±¤î¸Ó¥¨¶°ªº¹B§@

¤Î¦p¦óÅýµ{¦¡ª¾¹D²{®É¬O¨º­Ó¥¨¶°°õ¦æ¤¤

½Ð«ü±Ð

¦^´_ 1# enoch
Private Sub Worksheet_SelectionChange ³o¬O¤u§@ªíSelectionChange¨Æ¥ó
¨ä¥L¥¨¶°¤¤¥i¥Î Application.EnableEvents ¼È®É°±¤îIJµo©MÁÙ­ì
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.   MsgBox Target.Address
  3. End Sub

  4. Sub myTest()
  5.   Application.EnableEvents = False  '¼È°±Excel¨Æ¥ó
  6.   Range("E5").Select  '¤£·|¸õ¥X°T®§
  7.   Application.EnableEvents = True   'ÁÙ­ìExcel¨Æ¥ó
  8.   
  9.   Range("E6").Select  '·|¸õ¥X°T®§
  10. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD