Excel上的Countbold函数错误

Question

我绝对没有Microsoft Excel经验并借用了CountBold宏并将其作为模块粘贴到Excel中。功能奏效了。但是，当我关闭工作表并重新打开它时，#NAME？由于＆＃34;无法识别的文字＆＃34;而出现错误。我已粘贴下面的代码。请帮忙！

Function CountBold(WorkRng As Range)
'Update 20131202
Dim Rng As Range
Dim xCount As Long
For Each Rng In WorkRng
If Rng.Font.Bold Then
xCount = xCount + 1
End If
Next
CountBold = xCount
End Function

Answer 1

我猜你的电子表格是XLSX。您需要保存并选择启用宏的工作簿（XLSM），然后在关闭并保存宏时保留宏（函数）