作业帮 > 综合 > 作业

vba编一段函数判断一个单元格内有几个奇数,要判断的单元格是D列,每行都是一个三位数

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/05/05 21:13:28
vba编一段函数判断一个单元格内有几个奇数,要判断的单元格是D列,每行都是一个三位数
vba编一段函数判断一个单元格内有几个奇数,要判断的单元格是D列,每行都是一个三位数
在用vba在模块里建立一个函数如下:
Function jishu(arr As Range) As Integer
Dim i As Integer
For i = 1 To arr.Rows.Count
If Val(Cells(i,arr.Column)) Mod 2 0 Then
jishu = jishu + 1
End If
Next i
End Function
然后在单元格里引用,如d列里,d1=3,d2=4,d3=5,d4=jishu(d1:d3),于是d4=2