自定义函数与ChatGPT - EXCEL VBA（2）
EXCEL函数众多，通常已经可以满足需求。但是有时对一些特殊任务则很难办到，这时需要自己编制自定义函数来满足需求。当然，对于初学者来说编写一些特定要求的自定义函数是有困难的。在上一讲中介绍了EXCEL宏的基本用法，有了这个基础，借助ChatGPT写代码，你就可以自己开发出非常棒的管理系统了。
下面通过几个设定任务，借助ChatGPT编写这几个任务的自定义函数。
【任务-I】写一段EXCEL VBA代码，用getPrime(n,m)的形式返回整数n内第m个质数（m
从这是一个典型的编程入门事发，涉及条件循环、逻辑判断和函数等基本技巧，在不同编程语言中，能独立完成【任务-I】就可以说是入门了。下面是ChatGPT按【任务-I】要求返回的代码：
Function getPrime(n As Long, m As Long) As Long
Dim count As Long
Dim i As Long
Dim j As Long
Dim isPrime As Boolean
For i = 2 To n
isPrime = True
For j = 2 To i - 1
If i Mod j = 0 Then
isPrime = False
Exit For
End If
Next j
If isPrime Then
count = count + 1
If count = m Then
getPrime = i
Exit Function
End If
End If
Next i
End Function
ChatGPT写的这段代码干净利索！
下面将这段代码放入模块中（和宏代码在一起），如图：
表1-1：在EXCEL工作表中执行【开发工具】 → 【宏】
表1-2：第一个宏“myHCode1”已经在列表中。按【编辑】按钮
表1-3：将ChatGPT按【任务-I】写的代码复制到上图编辑框后面
表1-4：函数getPrime已经在模块编辑框中
回到EXCEL工作表，可以使用自定义函数getPrime，如图：
表1-5：在单元格A1中输入字符"get"可以自定义函数已经在下拉信息框中了
表1-6：在单元格A1中输入getPrime(100,5)，即返回100以内的第5个质数
表1-7：getPrime(100,5)函数返回值为11
下面这段短视频演示了自定义函数的应用，其中ROW()函数返回当前单元格行数。
视频加载中...
以上是EXCEL VBA+ChatGPT定义自定义函数的基本过程。了解EXCEL宏编程基本过程对于利用EXCEL进行数据自动化分析非常有帮助。如果你还不太熟悉EXCEL VBA编程，在用EXCEL从事数据分析工作过程中遇到自动化问题，解决步骤为：根据平时使用EXCEL函数的经验，清楚描述任务，然后交给ChatGPT去编程！
上一篇：
EXCEL宏编程与ChatGPT - EXCEL VBA（1）
下一篇：自定义功能更强大的MATCH函数- EXCEL VBA（3）