條件格式如果行中的任意單元格中包含文本

Question

我有這個公式，如果該行中某單元格中包含的任何文本增加了一個邊境行：

=$C5<>"" 

我想改變公式不只是看看列C，但是在表格的整行（即A：I）中，即如果該行中存在任何文本，則必須應用格式。

看起來似乎沒有正確。

Answer 1

只要使用這個公式

=COUNTA($A5:$I5)>0

COUNTA計數非空白單元格所以如果在這個範圍內COUNTA任何文本將是> 0且觸發條件格式

Answer 2

試試這個。我測試過它，它適用於我。您需要將表格名稱更改爲「Sheet1」名稱。目前，宏設定爲行100檢查值i = 1到100

Sub FormatCells() 
Dim Wks As Worksheet: Set Wks = Sheets("Sheet1") 
Dim i As Integer 
For i = 1 To 100 ' set the max no of Rows 
LookupRange = Wks.Rows(i) 
    If Application.WorksheetFunction.CountA(Wks.Rows(i)) <> 0 Then 
     With Wks.Rows(i).Borders(xlDiagonalDown).LineStyle = xlNone 
      Wks.Rows(i).Borders(xlDiagonalUp).LineStyle = xlNone 
     End With 
     With Wks.Rows(i).Borders(xlEdgeLeft) 
      .LineStyle = xlContinuous 
      .Weight = xlMedium 
     End With 
     With Wks.Rows(i).Borders(xlEdgeTop) 
      .LineStyle = xlContinuous 
      .Weight = xlMedium 
     End With 
     With Wks.Rows(i).Borders(xlEdgeBottom) 
      .LineStyle = xlContinuous 
      .Weight = xlMedium 
     End With 
     With Wks.Rows(i).Borders(xlEdgeRight) 
      .LineStyle = xlContinuous 
      .Weight = xlMedium 
     End With 
    End If 
Next i 
End Sub 

希望這有助於。乾杯!