[µo°Ý] ¦p¦óÁ׶}«öEnter«á¦Û°Ê²¾°Êªº³]©w

enoch

¥¨¶°·Q¦b«ü©wTargetRng½d³ò¿é¤J¸ê®Æ«á·|¦Û°Ê¥k²¾¨â®æ,
¦ý¦p¦óÁ׶}«öEnter Áä«á, Àx¦s®æ¥i¯à·|¦Û°Ê¦V¤W¤U¥ª¥k¤è¦V²¾°Êªº³]©w, ¦]¦U¹q¸£¥i¯à¦³¤£¦P³]©w
½Ð°Ý¥¨¶°À³¦p¦ó­×§ï©O?

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Target_Row As Integer
   
3. If Not Application.Intersect(Target, Range("TargetRng")) Is Nothing Then
   
4. ActiveCell.Offset(0, 2).Select
   
5. End If
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# enoch
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     With Target
   
4.         If Not Application.Intersect(.Cells(1), Range("TargetRng")) Is Nothing Then
   
5.             .Cells(1).Offset(0, 2).Select
   
6.         End If
   
7.     End With
   
8. End Sub

½Æ»s¥N½X

enoch

¬Oªº, ÁÂÁ§A

jsc0518

¦^´_ 2# GBKEE
ª©¥D¦­¦w
½Ð±Ð¤@¤U§Ú¨Ì·Ó±zªº»yªk§ï¤F¤@¤U¡A·Q½Ð±Ð¬O§_¥i¥H²¤Æ
B10~F10
.
.
.
B23~F23





Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
   
        If Not Application.Intersect(.Cells(1), Range("B10:D10")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B11:D11")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B12:D12")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B13:D13")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B14:D14")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B15:D15")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B16:D16")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B17:D17")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
               
        If Not Application.Intersect(.Cells(1), Range("B18:D18")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B19:D19")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B20:D20")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B21:D21")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        If Not Application.Intersect(.Cells(1), Range("B22:D22")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
               
        If Not Application.Intersect(.Cells(1), Range("B23:D23")) Is Nothing Then
            .Cells(1).Offset(0, 2).Select
        End If
        
        
        
        
    End With
End Sub