如何通过斜体格式识别单元格？答案

【问题标题】：How to Identify Cells by Italic Formatting?如何通过斜体格式识别单元格？
【发布时间】：2021-12-17 13:33:09
【问题描述】：

我正在整理这些年来的 F1 成绩单。

在维基百科上，最快圈数用斜体数字表示。

当我复制和粘贴时，我想计算斜体范围内的所有单元格，并且值介于 1 和 10 之间。

这是我目前正在尝试的。

Sub COUNIFItalics()
Public Function Count_Italic ("A3:Y3 as Range") As Long
Dim Cel As Range
Application.Volatile
For Each Cel In Rng
    If Cel.Font.Italic = True Then
         Count_Italic = Count_Italic + 1
    End If
Next Cel
End Sub

这是尝试用斜体计数，所以任何关于“1 小于或等于 x 小于或等于 10”部分的帮助都会令人惊叹。

【问题讨论】：

标签： excel vba excel-formula

【解决方案1】：

我假设您想要一个 UDF 并像使用公式一样使用它。

您缺少的是另外 2 个 Ifs 来检查值是否为 equal or more than 1 和 equal or less than 10（或者在这种情况下，我使用 Select 语句代替）：

Public Function Count_Italic(inputRng As Range) As Long
    Dim Cel As Range
    Application.Volatile
    For Each Cel In inputRng
        If Cel.Font.Italic = True Then
            Select Case Cel.Value
                Case 1 To 10: Count_Italic = Count_Italic + 1
            End Select
        End If
    Next Cel
End Function

【讨论】：