Em muốn thay đổi cách trình bày sao khi chèn

[hunglao]

Macro của em sẽ copy dòng lựa chọn và chèn thêm một hàng phía dưới sau đó tô màu vàng cho dòng phía trên ( dòng gốc), nhưng em muốn ngược lại là tô màu vàng cho dòng dưới ( dòng mới copy ra thì làm sao a, với lại em thấy cái này chạy có độ delay, a/c nào có cao kiến gì hay hơn không giúp em với

Trích:
Sub chen()
Selection.EntireRow.Copy
Selection.Insert Shift:=xlUp

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Application.CutCopyMode = False
End Sub

 

[huuthang_bd]

Bạn dùng Macro này:

Sub chen()
Application.ScreenUpdating = False
With Selection.EntireRow
.Copy
.Insert Shift:=xlUp
.Interior.Color = 65535
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[hunglao]

thank bro nhiều lắm đó