ý bạn là kẻ từ hàng 11 tới cuối dữ liệu (động) - cuối dữ liệu là hàng mà nơi đó cộ A không có và cột H;I có giá trị phải không????
Căn cứ theo sheet bảng mẫu thì:
Coi thử file nha bạn
Ý tưởng Quá hay luôn bạn ơi...
With Sheet8
lr1 = .Cells(.Rows.Count, "I").End(xlUp).Row
For i = 11 To lr1
If IsDate(.Cells(i, 3)) = True Then
With .Range("A" & i & ":I" & i)
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
End With
End If
Next i
MsgBox ("complete!!!")
End With
Sub Macro1()
'
' Macro1 Macro
'
Dim LastRow As Long, sRng As Range, I As Long
Application.ScreenUpdating = False
LastRow = Range("I" & Rows.Count).End(xlUp).Row
Set sRng = Range("A11:A" & LastRow)
With sRng.Resize(, 9)
.Borders.LineStyle = 1
.Borders(xlInsideHorizontal).Weight = xlHairline
End With
With sRng.SpecialCells(xlCellTypeConstants, 23)
For I = 0 To 8
With .Offset(, I).Borders(xlEdgeTop)
.LineStyle = 1
.Weight = xlThin
End With
Next I
End With
Application.ScreenUpdating = True
End SubBạn chu đáo ghê, Code nhìn gọn hơn hẳn cái nùi Macro nguyên bản của excel
Bác chỉ mình nhấn cái nút record nào mà dc vậy nha... mỗi hàng là 1 lon!!!!
Đã bất tiện mà sao hay được
Nó hay hơn mình phải tự làm tay, nó tốn rất nhiều thời gian. Lâu lắm bạn ạ. Cảm ơn bạn đã góp ý.
With Sheet8.Range("A10:A" & Sheet8.Range("I" & Rows.Count).End(xlUp).Row)
.Resize(, 9).Borders.LineStyle = 1
.Resize(, 9).Borders(12).Weight = 1
Intersect(.Resize(, 9), Union(.SpecialCells(2), .Cells(.Rows.Count, 1)).EntireRow).Borders(8).Weight = 2
End WithRút quá đi thôi
Sub TaoViengMot()
Application.ScreenUpdating = False
Dim CellCuoi, i As Long
CellCuoi = Cells(Rows.Count, 1).End(xlUp).Row
Sheet8.Range("A7").CurrentRegion.Offset(6).BorderAround xlContinuous, xlThick
With Sheet8.Range("A10:A" & CellCuoi).SpecialCells(xlCellTypeConstants, 23)
For i = 0 To 8
With .Offset(, i).Borders(xlEdgeTop)
.LineStyle = xlContinuous: .Weight = xlThick
End With
Next i
End With
Application.ScreenUpdating = True
End SubÝ bạn là sao? gởi file cho minh coi ah
File nè bạn
Không cần thêm ah...
1/ Code duyệt dữ liệu từ dưới lên và 1 là dựa vào cột A bạn sửa 9 là dựa vào cột I, 1 hay 9 nó đều như nhau. Vì cột I từ dưới lên đến Cell I2001 không có dữ liệu nên bạn thay 9 thì không thấy viền trên Cell I2000.
