Vba检查细胞内是否有部分螺栓-Vbacheckifpartialboldingincell

9  

Here is a way that you can use to check if the cell has

这里有一种方法可以用来检查单元格是否有

1. Mixed characters which are bold. In this case it will return NULL
2. 加粗的混合字符。在这种情况下，它将返回NULL
3. All characters are bold. In this case it will return TRUE
4. 所有的字符都大胆。在这种情况下，它将返回TRUE
5. None of the characters are bold. In this case it will return FALSE
6. 没有一个字符是粗体的。在这种情况下，它将返回FALSE

Example

例子

Sub Sample()
    Debug.Print Range("A1").Font.Bold
    Debug.Print Range("A2").Font.Bold
    Debug.Print Range("A3").Font.Bold
End Sub

To check if a cell has any bold character you can use this function as well (Either from VBA or Worksheet)

要检查一个单元格是否有任何粗体字符，您也可以使用这个函数(从VBA或工作表中)

'~~> This is an additional function which will return...
'~~> TRUE if Cell has mixed/all chars as bold
'~~> FALSE if cell doesn't have any character in bold.
'~~> This can also be used as a worksheet function.
Function FindBoldCharacters(ByVal aCell As Range) As Boolean
    FindBoldCharacters = IsNull(aCell.Font.Bold)
    If Not FindBoldCharacters Then FindBoldCharacters = aCell.Font.Bold
End Function

Screenshot

截图

And you can use .Characters().Font.FontStyle to check if each character is bold or not. Use the above Range A1 example.

可以使用。characters (). font。FontStyle检查每个字符是否粗体。使用上面的范围A1示例。

Sub Sample()
    For i = 1 To Len(Range("A1").Value)
        Debug.Print Range("A1").Characters(i, 1).Font.FontStyle
    Next i
End Sub

Screeenshot

Screeenshot

Modified Code

修改后的代码

Sub Sample()
    For i = 1 To Len(Range("A1").Value)
        If Range("A1").Characters(i, 1).Font.FOntStyle= "Bold" Then
            Debug.Print "The " & i & " character is in bold."
        End If
    Next i
End Sub

Screenshot

截图