VBA 程序错误： 急！！下面的程序总报 type mismatch !的错误 是怎么回事啊？？？？

Sub test()
Dim sum As Integer
sum = 0
Dim r As range
sum = checkdata(r)
MsgBox sum
End Sub
Function checkdata(r) As Integer
Dim sum As Integer
For Each r In Selection
If r.Font.Color = vbRed Then
sum = sum + 1
End If
Next
checkdata = sum
End Function

不太清楚提问者的目的，如果是想求选取单元格中红色字体的个数的话，可以这样写。
Sub test()
Dim sum As Integer
sum = 0
Dim r As Range
Set r = Selection
sum = checkdata(r)
MsgBox sum
End Sub
Function checkdata(r) As Integer
Dim sum As Integer
Dim r1 As Range
For Each r1 In r
If r1.Font.Color = vbRed Then
sum = sum + 1
End If
Next
checkdata = sum
End Function

Sub test() Dim sum As Integer sum = 0 Dim r As Range Set r = Selection '要付值给变量r sum = checkdata(r) MsgBox sum End Sub Function checkdata(ByVal r As Range) As Integer '定义参数引用类型 Dim r2 As Range '定义中间变量r2 Dim sum As Integer For Each r2 In r '使用中间变量r2 If r2.Font.Color = vbRed Then '使用中间变量r2 sum = sum + 1 End If Next checkdata = sum End Function

，孔子

把 checkdata(r)里面的r去掉，注意两个地方都去掉。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息