stillfish00

¦^´_ 1# dnadark

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error GoTo ERR_HANDLE
   
3.     If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 1) > Cells(Target.Row, 2) * 2 Or Cells(Target.Row, 1) <> "" And Cells(Target.Row, 1) < Cells(Target.Row, 2) * 0.5 Then
   
4.         ActiveSheet.Unprotect
   
5.         Application.EnableEvents = False
   
6.         Cells(Target.Row, 3) = Cells(Target.Row, 1)
   
7.         Cells(Target.Row, 1).Locked = True
   
8.         ActiveSheet.Protect
   
9.     End If
   
10.    
    
11. BEFORE_EXIT:
    
12.     Application.EnableEvents = True
    
13.     Exit Sub
    
14. 
    
15. ERR_HANDLE:
    
16.     MsgBox Err.Description, vbCritical, "ERROR:" & Err.Number
    
17.     Resume BEFORE_EXIT
    
18. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 3# dnadark
´¡¤J¦b2# µ{¦¡½Xªº²Ä10¦æ¬Ý¬Ý
¤£µM´N¤W¶ÇÀÉ®×