テーブル内の単一セルの境界線の色を変更する

Question

範囲（リストオブジェクト）として名前付きテーブルがあり、1つのセルのエッジの上端の境界線の色を変更する必要がありますが、コードが機能しません。ここでは、コードの一部です：

このテストコード付き

With ws 
    .Unprotect Password:="pAtRiCiA" 

    For Each ctrl In Me.Controls 
     If Left(ctrl.Name, 5) = "texto" Then 
      If ultimafila - 1 <> 8 Then 
       If ctrl.Name = "textoCausas" Then 
        If Not IsError(Application.Match(Me.textoCausas.Value, ws.ListObjects(ActiveSheet.Name).ListColumns(1).DataBodyRange, 0)) Then 
         .Cells(ultimafila, ctrl.TabIndex) = "" 
         .ListObjects(ActiveSheet.Name).ListColumns(1).DataBodyRange(ultimafila, 1).Borders(xlEdgeTop).LineStyle = xlContinuous 
         .ListObjects(ActiveSheet.Name).ListColumns(1).DataBodyRange(ultimafila, 1).Borders(xlEdgeTop).ColorIndex = 3 
         .ListObjects(ActiveSheet.Name).ListColumns(1).DataBodyRange(ultimafila, 1).Borders(xlEdgeTop).Weight = xlThick 
        Else 
         .Cells(ultimafila, ctrl.TabIndex) = ctrl.Value 
        End If 
       Else 
        .Cells(ultimafila, ctrl.TabIndex) = ctrl.Value 
       End If 
      Else 
       .Cells(ultimafila, ctrl.TabIndex) = ctrl.Value 
      End If 
     End If 
    Next ctrl 
    .Cells(ultimafila, 2) = txtControles.Value 

    .Rows(ultimafila).AutoFit 
    .Rows(ultimafila).RowHeight = .Cells(ultimafila, 1).Height + 12 
    .Protect Password:="pAtRiCiA", DrawingObjects:=True, Contents:=True, Scenarios:=True 
End With 

Answer 1

：

Sub Test() 

    With ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange(6, 1).Borders(xlEdgeTop) 
     .LineStyle = xlContinuous 
     .ColorIndex = 3 
     .Weight = xlThick 
    End With 

End Sub 

私はこの結果を得る：

だから、あなたの書式設定コードが私のために正常に動作します。
条件付き書式設定やその他の書式設定がそのシートに適用されていますか？