我正在嘗試使用 VBA 來更改作業表的格式。我需要做兩件事：
- 當單元格有大量文本時更改字體
- 當單元格包含專案符號時更改字體：“ ? ”
我已經能夠完成下面的 1，但無法弄清楚 2：
Sub FormatText()
Dim xCell As Range
For Each xCell In Sheets("Output").Range("A16:A64")
With xCell
If Len(.Text) > 100 Then
.Font.Name = "Arial Medium"
Else
.Font.Name = "Calibri Bold"
End If
End With
Next
End Sub
uj5u.com熱心網友回復：
您可以將該條件添加到您的 If 陳述句中：
Sub FormatText()
Dim xCell As Range
For Each xCell In WorkSheets("Output").Range("A16:A64")
With xCell
If Len(.Text) > 100 Or Instr(.Text, Chr$(149)) > 0 Then
.Font.Name = "Arial Medium"
Else
.Font.Name = "Calibri Bold"
End If
End With
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/357728.html