Nhờ giúp kẻ viền nổi bật giữa các mã khác nhau

[nncb2008]

Em có file đính kèm, mỗi mã có số dòng khác nhau, em muốn dùng VBA để kẻ khung, phân cách giữa các mã là hàng nét rõ, phân cách giữa các hàng trong cùng mã là hàng nét đứt.
Các bác giúp em nhé.

 

[SA_DQ]

Bạn thử xài cặp macro sau

Option Explicit
Sub FormatAll()
 Dim eRw As Long, jJ As Long, Style As Integer
 
 eRw = [A65500].End(xlUp).Row
 For jJ = 3 To eRw
   With Cells(jJ, "A")
      If .Value = .Offset(-1).Value Then Style = xlDot Else Style = 1
      FormatLines .Offset(-1).Resize(, 3), Style
   End With
 Next jJ
 FormatLines Cells(eRw, "A").Resize(, 3), xlContinuous
End Sub

[B]Sub FormatLines(Rng As Range, Optional Style As Integer = xlDot)[/B]
    With Rng.Borders(xlEdgeBottom)
        .LineStyle = Style       'xlContinuous - Nét lièn '
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
[B]End Sub[/B]

 

[khoavu87]

đẻe tạo đường viền bạn có thể áp dụng cái này.

Sub đuongvien()
worksheets("sheet1").range("a1:d4").borderaroud _
lineStyle:=xldasdot,colorindex:=3,weight:=xlthick
end sub

 

[huuthang_bd]

Em có file đính kèm, mỗi mã có số dòng khác nhau, em muốn dùng VBA để kẻ khung, phân cách giữa các mã là hàng nét rõ, phân cách giữa các hàng trong cùng mã là hàng nét đứt.
Các bác giúp em nhé.

Sao không dùng Conditional mà phải VBA nhỉ. Xem thử nhé.

 

[khoavu87]

anh thắng ơi có thấy gì đâu?sao em mở file ko thấy gì hết

 

[ndu96081631]

anh thắng ơi có thấy gì đâu?sao em mở file ko thấy gì hết

Thấy gì là thấy gì chứ?
Cái này dùng Conditional Formating theo cột A, đương nhiên khi bạn thay đổi dử liệu tại cột A thì nó mới tự động kẻ khung!

 

[TrungChinhs]

Em có file đính kèm, mỗi mã có số dòng khác nhau, em muốn dùng VBA để kẻ khung, phân cách giữa các mã là hàng nét rõ, phân cách giữa các hàng trong cùng mã là hàng nét đứt.
Các bác giúp em nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
  [b3:b100].SpecialCells(2).Resize(, 3).Borders.LineStyle = 1
  For Each cll In [b3:b100].SpecialCells(2)
    If cll = cll.Offset(1) Then
      cll.Resize(2, 3).Borders(12).LineStyle = 0
      cll.Resize(, 3).Borders(4).Weight = 1
    End If
  Next
End Sub