HỎI VỀ THỰC HIỆN Borders? (1 người xem)

[nad582]

Chào các a trong GPE, e có dữ liệu ở sheet "solieu" khi copy qua sheet "ketqua" thi:
có bao nhiêu dữ liệu ở sheet "solieu" khi coppy dữ liệu qua sheet "ketqua" thì borders bấy nhiêu dữ liệu đó...xin cam ơn..

 

[hungdiep85]

Không biết Phải vậy không bạn.

 

[nad582]

Không biết Phải vậy không bạn.

Ý em là nhờ các anh viết code, khi copy dữ liệu sang thì có bao nhiêu dữ liệu thì nó border bấy nhiều dữ liệu (không phải làm bằng thủ công)....

 

[hungdiep85]

mình chỉ mò mò thôi nha bạn. vui vui

 

[thanhsangnguyen1982]

Copy đoạn code này thaycho code copy cũ của bạn
Sub COPPY()
Dim M As Integer
M = 6
Do While Cells(M, "B") <> ""
M = M + 1
Loop
M = M - 1
Sheets("SOLIEU").Select
Range(Cells(6, 1), Cells(M, 4)).Select
Selection.Copy
Sheets("ketqua").Select
Range("A6").Select
ActiveSheet.Paste
Range("A6:A" & Range("A65000").End(xlUp).Row).Resize(, 4).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
Range("A6").Select
End Sub

 

[hungdiep85]

Giúp em bài này luôn đi Anh ,


http://www.giaiphapexcel.com/forum/showthread.php?87919-Tổng-hợp-dữ-liệu-từ-nhiều-file

 

[phanminhphuong]

Chào các a trong GPE, e có dữ liệu ở sheet "solieu" khi copy qua sheet "ketqua" thi:
có bao nhiêu dữ liệu ở sheet "solieu" khi coppy dữ liệu qua sheet "ketqua" thì borders bấy nhiêu dữ liệu đó...xin cam ơn..

[GPECODE=vb]Sub Copy_Border()
With Sheet2
.UsedRange.Clear ' or .Cells.Clear
Sheet1.UsedRange.Copy .[A4] 'Sửa [A4] cho phù hợp nếu cần
.UsedRange.Borders.LineStyle = xlContinuous 'or =1
End With
End Sub[/GPECODE]