copy dữ nguyên định dạng

[Minh Đức 1309]

newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
Câu lệnh này là paste value nhưng mất định dạng.Con muốn paste value mà giữ định dạng thì sửa câu lệnh ntn ạ.Các thầy giúp con với,con cảm ơn!!

 

[snow25]

newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
Câu lệnh này là paste value nhưng mất định dạng.Con muốn paste value mà giữ định dạng thì sửa câu lệnh ntn ạ.Các thầy giúp con với,con cảm ơn!!

Bạn copy định dạng trước rồi past value sau là được mà.

 

[leonguyenz]

newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
Câu lệnh này là paste value nhưng mất định dạng.Con muốn paste value mà giữ định dạng thì sửa câu lệnh ntn ạ.Các thầy giúp con với,con cảm ơn!!

Bạn dùng 2 lệnh PasteSpecial, ví dụ:
newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteFormats

 

[Minh Đức 1309]

Bạn dùng 2 lệnh PasteSpecial, ví dụ:
newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteFormats

Vâng e cảm ơn ạ

 

[Minh Đức 1309]

Bạn dùng 2 lệnh PasteSpecial, ví dụ:
newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
newWB.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteFormats

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Static xRow
Static xColumn

If xRow <> "" Then

With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Rows(pRow).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End Sub

Thầy ơi, em có đoạn code sau mà nó in đậm cả 1 row và cả trang tính luôn,em chỉ muốn n in đậm khi minh chọn vào bảng và n chỉ in đậm dòng trong bảng thì làm ntn ạ