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

·Q½Ð±Ð¦U¦ì¤j¤jÃö©óÀx¦s®æªº°ÝÃD

¦^´_ 1# tku0216
¤u§@ªíªºµ{¦¡½X
  1. Dim Rng  As Range
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3.     Set Rng = [B3:D3]
  4.     Application.EnableEvents = False
  5.     If Not Application.Intersect(Target(1), Rng) Is Nothing Then Rng.Select
  6.     Application.EnableEvents = True
  7. End Sub
  8. Sub §R°£()
  9.     Rng = ""   '²MªÅ¤º®e
  10.     '''''''''' ¤G¿ï¤@  ''''''''''''''''''''
  11.     If Not Rng Is Nothing Then Rng.Delete (xlToLeft)     '§R°£
  12.     '''' xlUp   ¤U¤èÀx¦s®æ¤W²¾
  13.     '''' xlToleft   ¥k¤èÀx¦s®æ¥ª²¾
  14. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD