[µo°Ý] ¤u§@ªíWorksheet_Change¦³¥¨¶°¡A¨Ï¥Î¥kÁä¶K¤W¸ê®Æexcel·|·í±¼

tw123456789

½Ð°Ý:
¤u§@ªíWorksheet_Change¼g¦³¥¨¶°¡A¨ä¥¨¶°¤º®e¥D­n¬OÀˬd­Èªº§ïÅÜ
ex:·íTarget(³Q§ïÅܪºÄæ¦ì)=²Ä6Äæ®É¡A«h·|§ïÅܨä¥LªºÄæ¦ì­È
If Target.column= 6 Then
    On Error Resume Next
          On Error Resume Next
    If value_1 = "ABC" Or value_1 = "" Then
        Target.Offset(0, 1).Interior.ColorIndex = xlNone
        Target.Offset(0, 1).Locked = False
    Else
         Target.Offset(0, 1) = ""      
        With Target.Offset(0, 1).Interior
                  .ColorIndex = 34
                   .Pattern = xlSolid
        End With
    End If
    Target.Offset(0, 1).Locked = True
    On Error GoTo 0
End If

³oÃþªº±±¨î¨Ã¤£¥u¦³²Ä¤»Äæ,  ÁÙ¦³«Ü¦hÄæ³Q±±¨î¡A¦ý¤j¦h³£¬O¶ñ­È©Î¬O¶ñÃC¦â¡B³]«OÅ@
·|¨Ï¥Îon error resume next ¬O§Æ±æ¤£­n¦]error¦Ó°±¤U¨Ó¡C
¦^¨ì¤u§@ªí­n°µ¥kÁä½Æ»s¶K¤W®É¡A«o·|¨Ï¾ã­Óexcel·í±¼
¦ý­Y§ï¥Îctrl+c¡Bctrl+v¡A«h·|¦w¥þ¹LÃö
½Ð°Ý¸Ó«ç¸Ñ¨M©O?