Sửa giúp file bị giựt.

[emgaingayngo]

Mình dùng chức năng Worksheet_Change() mà sao file bị giựt màn hình quá, các bạn chỉ giúp. Cảm ơn!

 

[Po_Pikachu]

Sữa thành code này là hết giựt đồ luôn.

Sub cNgay() Dim MyDate, MyString, c MyDate = Range("ChonNgay").Value MyString = Format(MyDate, "dd/mm/yy") With Range("ListNgay") .NumberFormat = "dd/mm/yy"      c = .Find(MyString, LookIn:=xlValues).Address End With Range(c).Offset(, 1).Resize(, 28).Copy Range("A3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _         False, Transpose:=True Application.CutCopyMode = False End Sub

Thân.

 

[tigertiger]

Và thêm cái này nữa, có màu đỏ đó

Sub cNgay()
Application.ScreenUdating=False
Dim MyDate, MyString, c
MyDate = Range("ChonNgay").Value
MyString = Format(MyDate, "dd/mm/yy")
With Range("ListNgay")
.NumberFormat = "dd/mm/yy"
c = .Find(MyString, LookIn:=xlValues).Address
End With
Range(c).Offset(, 1).Resize(, 28).Copy
Range("A3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Application.ScreenUdating=True
End Sub

.