[µo°Ý] ¦P¨B2­Ó¤u§@ªí

vinejason

¥­¦w
¦³2±i¤u§@ªí¤À§O¬Osheet4 »PSheet12
Sheet4 Äæ¦ì
«È¤á½s¸¹ «È¤á¦WºÙ ¶l»¼°Ï¸¹ ¦a§} ¹q¸Ü ...
Sheet12 Äæ¦ì
«È¤á½s¸¹ ¶}©l µ²§ô ¥Í¤é ©Ê¸¹ ¥I´Ú¤è¦¡ µn¤J¤é´Á ©m¦W  ....
½Ð±Ð
·íSheet4 ·s¼W¤@¦C
«È¤á½s¸¹¶}ÀY¬°F®É(Ex:F1181)
«È¤á¦WºÙ ¤ý¤p©ú
¦P¨B¦bSheet12 ·s¼W¤@¦C¨Ã¶ñ¤J
F1181 .....................................¤ý¤j©ú
¥H¤W

vinejason

²´«e¥u°µ¨ì¦P¨B«È¤á½s¸¹
Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Column = 1 And Target.Count = 1 Then
        If Left(Target.Value, 1) = "F" Then
            intRow = Me.Range("A65536").End(xlUp).Row
            rng = Me.Range("A1:A" & intRow)
            For i = 1 To intRow
                If Left(rng(i, 1), 1) = "F" Then
                    intRow1 = Target.Row - i + 1
                    If intRow1 < 1 Then
                        intRow1 = 1
                    End If
                    Application.EnableEvents = False     'Ãö±¼Ä²µo¨Æ¥ó
                    Sheet12.Rows(intRow1 + 2).Insert Shift:=xlDown
                    Sheet12.Range("A" & CStr(intRow1 + 1)).Value = Target.Value
                    
                    Application.EnableEvents = True     '«ì´_IJµo¨Æ¥ó
                    Exit Sub
                End If
            Next i
        End If
    End If

End Sub