返回首页
当前位置: 主页 > Excel教程 > Excel函数教程 >

EXCEL自定义函数求1000以内的质数

时间:2012-06-17 02:29来源:Office教程学习网 www.office68.com编辑:麦田守望者

自定义函数

=ZS(ROW(A1))

下拉

 

自定义函数代码

Function ZS(s%)
Dim f As Boolean, arr(), a%, i%
ReDim Preserve arr(1)
arr(0) = 2
For i = 3 To 999 Step 2
For j = 2 To i - 1
If i Mod j = 0 Then f = True: Exit For
Next
If Not f Then
a = a + 1
ReDim Preserve arr(a)
arr(a) = i
End If
f = False
Next
ZS = arr(s - 1)
End Function


宏代码

Sub getZS()
Dim arr(), f As Boolean
ReDim Preserve arr(1)
arr(0) = 2
For i = 3 To 999 Step 2
For j = 2 To i - 1
If i Mod j = 0 Then f = True: Exit For
Next
If Not f Then
a = a + 1
ReDim Preserve arr(a)
arr(a) = i
End If
f = False
Next
[c2].Resize(a, 1) = Application.Transpose(arr)
End Sub

 

顶一下
(0)
0%
踩一下
(0)
0%
标签(Tag):excel excel2010 excel2007 excel2003 excel技巧 excel教程 excel实例教程 excel2010技巧
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣