Rút gọn code kẻ khung

[iVBA]

Em có 1 đoạn code kẻ khung này:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([D5:I16], Target) Is Nothing Then
        Target.Borders(xlDiagonalDown).LineStyle = xlNone
        Target.Borders(xlDiagonalUp).LineStyle = xlNone
        With Target.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Target.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Target.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Target.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    End If
End Sub

AC xem có cách nào viết code này gọn hơn nữa?

 

[ptm0412]

Tự động đóng khung, bài 4 & 5

 

[ndu96081631]

Em có 1 đoạn code kẻ khung này:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([D5:I16], Target) Is Nothing Then
        Target.Borders(xlDiagonalDown).LineStyle = xlNone
        Target.Borders(xlDiagonalUp).LineStyle = xlNone
        With Target.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Target.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Target.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Target.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    End If
End Sub

AC xem có cách nào viết code này gọn hơn nữa?

Với code của bạn thì chỉ cần sửa đơn giản thế này thôi

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([D5:I16], Target) Is Nothing Then Target.Borders.LineStyle = 1
End Sub

Tuy nhiên vẫn phải bẫy lỗi trong trường hợp chèn, xóa dòng ---> Tự bạn suy nghĩ đi

 

[iVBA]

Với code của bạn thì chỉ cần sửa đơn giản thế này thôi

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([D5:I16], Target) Is Nothing Then Target.Borders.LineStyle = 1
End Sub

Tuy nhiên vẫn phải bẫy lỗi trong trường hợp chèn, xóa dòng ---> Tự bạn suy nghĩ đi

Anh ndu ơi, em đã thử nhiều nhưng em vẫn chưa bẫy lỗi chèn, xoá dòng được. Anh tư vấn thêm cho em nhé!

 

[ndu96081631]

Anh ndu ơi, em đã thử nhiều nhưng em vẫn chưa bẫy lỗi chèn, xoá dòng được. Anh tư vấn thêm cho em nhé!

Tạm thời có thể hạn chế lỗi thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range
  On Error GoTo ExitSub
  If Not Intersect([D5:I16], Target) Is Nothing Then
    Set Rng = Intersect([D5:I16], Target)
    If Not Rng Is Nothing Then Rng.Borders.LineStyle = 1
  End If
ExitSub:
End Sub

Còn như muốn khi Insert hoặc Delete Row mà không cho code hoạt động luôn thì tôi nghĩ sẽ khó đấy
(Đúng ra món này có thể thực thi bằng Conditional Formating khá dể dàng, tại sao bạn không dùng nhỉ?)