修改了自定义函数,可以直接统计斜体字体的单元格数量。
注意,由于设置字体为斜体不会触发计算,因此这时统计的结果不会改变,需要点击单元格回车使到公式强制重新计算
Function CountFontItalic(R As Range) As Long
Dim C As Range
CountFontItalic = 0
For Each C In R.Cells
If C.Font.Italic Then CountFontItalic = CountFontItalic + 1
Next
End Function
增加自定义函数的方法说明:对准工作表标签击右键选取查看代码,弹出VBA窗口后,在左边窗口对准工作表名称,比如Sheet1 (Sheet1),击右键,选择插入>模块,在右边窗口贴入代码。关闭VBA窗口
这个问题得用VBA来处理