求加一句排除的VBA语言

lk710618

各位老师好，下面是我为考勤表拼凑的一段VBA，可以实现在表中快速的输入数字，自动转换为需要露出的图标，但是，当D列是加班的这一行时，就不需要自动转换为符号，而是就记录加班的小时数即可，我不知道怎么排除这个转换，麻烦路过的老师指导一下怎么加，感谢感谢




Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo js


If Target.Column > 4 Then                           'N列后
If Target.Column > 35 Then Exit Sub                 'N列前
If Target.Row < 11 Then Exit Sub                    'N行以上退出
If Target.Row > 34 Then Exit Sub                    'N行以下退出

If Target.Value = 1 Then Target.Value = "√"
If Target.Value = 2 Then Target.Value = "★"
If Target.Value = 3 Then Target.Value = "☆"
If Target.Value = 4 Then Target.Value = "○"
If Target.Value = 5 Then Target.Value = "□"
If Target.Value = 6 Then Target.Value = "■"
If Target.Value = 7 Then Target.Value = "△"
If Target.Value = 8 Then Target.Value = "▲"
If Target.Value = 9 Then Target.Value = "▽"
If Target.Value = 10 Then Target.Value = "▼"
If Target.Value = 11 Then Target.Value = "×"


End If
js:
End Sub

lk710618

今天是因为周日吗，审核时间也太久了

小花鹿

没有附件，猜一下：if cells(target.row,"d")="加班" then exit sub

ykcbf1100

二段代码的中间插入一行代码：
If Target.Column = 4  and Target.value <>“上班” Then