GBKEE

¦^´_ 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