excel - 在命名范围excel 2010 vba中查找斜体，然后将值添加到变量并输出以形成控件

Question

我正在尝试在命名范围内单独搜索每个单元格，并找到每个具有斜体字体的单元格。如果字体是斜体，那么我想将该单元格的编号添加到变量中，以便获得总数。

任何帮助深表感谢。

贾斯汀

Answer 1

您正在寻找该.Font.Italic物业。测试以下内容。相应地修改。

Sub AddItalicizedNums()
    Dim TargetRng As Range, Cell As Range
    Dim SumOfItalics
    Set TargetRng = Range("OneToTwenty")
    SumOfItalics = 0
    For Each Cell In TargetRng
        If Cell.Font.Italic = True Then
            SumOfItalics = SumOfItalics + Cell.Value
        End If
    Next Cell
    MsgBox SumOfItalics
End Sub

截屏：

我的命名范围是OneToTwenty，我将其中的所有偶数都斜体（和粗体）。总和显示正确，如消息框中所示。

让我们知道这是否有帮助。