EXCEL自定义函数求1000以内的质数
2013-11-15 16:37
791 查看
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
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
自定义函数
=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
相关文章推荐
- VBA LISTBOX初始化代码
- EXCEL 自定义函数提取字符串中的数…
- 函数公式中9E+307的用法
- 单元格区域引用方式的小结
- 队列的实现与应用
- VBA数组入门
- Excel 三级动态下拉菜单
- 提取字符串中数字、中文、英文字符…
- How do you find length of a Singly Linked list
- 与字符串数组有关的三个函数
- Like 作用于汉字查找的表示方法
- VBA 处理字符串
- 字体实时变化代码
- 大战电脑病毒
- VBA计算某个集合中哪6个数字的和为…
- 浅谈DICTIONARY(字典)对象
- ADO连接数据库字符串大全
- Excel lookup应用-从字符串取数
- linux定时任务的设置
- VBA窗体模拟显示进度条