修改了自定义函数,可以直接统计斜体字体的单元格数量。 注意,由于设置字体为斜体不会触发计算,因此这时统计的结果不会改变,需要点击单元格回车使到公式强制重新计算 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窗口
- 相关评论
- 我要评论
-