求助excel vba 问题

EXChEnL

之前做了一个表格，为了方便数据录入，也运行一两个月，没太大问题，但突然间最近老是出问题，（就是正常录入时突然间单元格格式变乱）求救各位老师，看如何优化代码Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, [B4:B500]) Is Nothing Then
Application.EnableEvents = False
Dim i%
i = Target.Row
Cells(2, 4).Copy Destination:=Cells(i, 4)
Cells(i, 4) = Cells(i, 4).Value
Cells(i, 4).Offset(0, 2).Select
Cells(i, 11) = Format(Now(), "yyyy-mm-dd")
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i%
i = Target.Row
With Target
.Parent.Cells.Interior.ColorIndex = xlNone
End With
Range(Cells(i, "A"), Cells(i, "Aj")).Interior.ColorIndex = 34
End Sub

EXChEnL

GIF 动画是录到14行时开始出现问题，前面的没问题

EXChEnL

有可能是电脑的问题，我在另一台电脑上操作，就不会出现这种格式变乱的情况

EXChEnL

个人觉得没事少用offset

weisilisid

个人感觉，是安装excle 版本的问题吧，
就像同是07版本，有的版本可以直接筛选复制，有的不能直接筛选复制一样

EXChEnL

weisilisid 发表于 2018-8-23 21:46
个人感觉，是安装excle 版本的问题吧，
就像同是07版本，有的版本可以直接筛选复制，有的不能直接筛选复制 ...

有可能吧，经常用办公软件的，有时候WORD做得好端端的，第二天打开就变乱，或者发给别人，再返回来就变乱了