摘要： 自定义函数 =ZS(ROW(A1))
下拉
excel中用ROUND函数消除计算误差基础教程一、语法 ROUND函数可将某个数字四舍五入为指定的位数。其语法为： ROUND(number, num_digits) 参数：num...
自定义函数
=ZS(ROW(A1))
下拉
excel中用ROUND函数消除计算误差基础教程
一、语法 ROUND函数可将某个数字四舍五入为指定的位数。其语法为： ROUND(number, num_digits) 参数：number是需要四舍五入的数字；num_digits为指定的位数，number将按此位数进行四舍五入。 1.如果num_digits大于0，则四舍五入到指定的小数位。如A1单元格包含数值&l
自定义函数代码
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
Excel2007中的函数条目提示设置教程
当使用“插入函数”对话框输入函数时，下面是一些应该牢记的附加提示： ●可以使用“插入函数”对话框向现有公式中插入函数。只需编辑此公式，然后将插入点移动到要插入函数的地方，然后打开“插入函数”对话框(使用任何一种上述方法)并选择函数。 ●也可以使
