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

我试图在一个命名范围内逐个搜索每个单元格，并找到每个具有斜体字体的单元格。如果字体是斜体，那么我想将该单元格的数字添加到一个变量中，这样我就可以得到一个总数

非常感谢您的帮助

Justin

您正在查找.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

截图：

我命名的范围是1/20，其中所有偶数都用斜体和黑体表示。总和显示正确，如消息框中所示

---

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

我甚至没有尝试过你的代码，但只是看看它，这正是我要寻找的！！！！！！！非常感谢您的建议和可行的解决方案@ND20：不用担心。如果这对您有帮助，请将答案标记为已接受。这就是我们在SO中说谢谢的方式。祝你好运