|
各位老师,新年好!
下面代码中的蓝色字体部分是我后加的,为什么没有执行“”复制-选择性粘贴-数值“”。请指教,并更正。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Index > 217 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D6:D" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Offset(, -1).Value = "收款" Or Target.Offset(, -1).Value = "再收款" Then
If Target.Value < 10000 Then Target.Offset(, 2).Value = Date
End If
Dim skh As Integer
skh = Selection.Row。
If Target.Offset(, -1).Value = "收款" Then
Range("E" & skh - 1).Select
End If
If Target.Offset(, -1).Value = "再收款" Then
Range("E" & skh - 1).Select
End If
If Target.Offset(, -3).Value = "陈欠已收款" Then
If Target.Offset(, 2).Value - (Year(Date) & "-1-1") < 60 Then
Range("J" & skh - 1).Copy
Range("J" & skh - 1).PasteSpecial Paste:=xlPasteValues
End If
End If
End Sub
|
|