电脑教程
位置:首页>> 电脑教程>> office教程>> EXCEL自定义函数求1000以内的质数

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

  发布时间:2023-08-22 15:29:16 

标签:代码,函数,多个,自定义,Excel函数

自定义函数

=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
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com