Excel中的動態單元格格式

Question

我有一個 VBA，可以從另一個電子表格中提取行。 問題是我正在嘗試動態格式化填充有行信息的單元格。 目前我已經格式化了第 11 行，但是，如何設置它以便填充的任何行都將被格式化為白色邊框單元格。 當它們沒有填充時，它們只會變灰。

Sub Searchdata()
Dim Lastrow As Long
Dim count As Integer
Lastrow = Sheets("Data").Cells(Rows.count, 1).End(xlUp).Row
Y = 11
For X = 2 To Lastrow
If Sheets("Data").Cells(X, 1) = Sheet3.Range("B3") Then
   Sheet3.Cells(Y, "A") = Sheets("Data").Cells(X, 1)
   Sheet3.Cells(Y, "B") = Sheets("Data").Cells(X, 2)
   Sheet3.Cells(Y, "C") = Sheets("Data").Cells(X, 3) & " " & Sheets("data").Cells(X, 4) _
                            & " " & Sheets("data").Cells(X, 5) & " " & Sheets("Data").Cells(X, 6)
   Sheet3.Cells(Y, "D") = Sheets("Data").Cells(X, 7)
   Y = Y + 1
End If
Next X
End Sub

Answer 1

在 if 語句之后添加以下行：

    With range(Cells(Y, 1), Cells(Y, "D"))
        .Interior.ColorIndex = xlNone
        With .Borders
            .LineStyle = xlContinuous
            .Color = vbBlack
            .Weight = xlThin
        End With
    End With