EXCEL自定义函数求1000以内的质数
来源:互联网 发布:粒子滤波算法及其应用 编辑:程序博客网 时间:2024/06/09 23:39
EXCEL自定义函数求1000以内的质数
自定义函数
=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
If Not f Then
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
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
- EXCEL自定义函数求1000以内的质数
- 求一百以内的质数
- 求100以内的质数
- 求100以内的质数
- 求100以内的质数
- 1000以内的质数
- 编写Python程序求1000以内的质数
- C++求N以内所有的质数
- 求10000以内所有质数的和
- Java求n以内的所有质数
- 求N个数以内的质数
- 求N以内所有质数的和
- 求100以内的所有质数
- C#求100以内的质数
- java 求多少以内的质数
- 求101-200以内的质数
- Python求1000以内质数(素数)
- 求50以内质数
- 单元格区域引用方式的小结
- 函数公式中9E+307的用法
- EXCEL 自定义函数提取字符串中的数…
- VBA LISTBOX初始化代码
- hibernate下载地址,csdn
- EXCEL自定义函数求1000以内的质数
- VBScript基础:RegExp对象
- 获取LISTVIEW列表中的数据
- C#子线程更新UI控件的方法总结
- 禁用宏则关闭excel文件
- 用VBA宏自动改变Excel宏安全级别设…
- performSelector详解
- EXCEL VBA MD5 简单加密
- 解决win7 64位系统不能识别4G内存…