用ChatGPT AI试着写了几段代码

wujunmin

发布于 2023-02-28 12:29:03

1.5K0

发布于 2023-02-28 12:29:03

文章被收录于专栏：wujunmin

ChatGPT最近全球爆火，我在几个领域进行了测试，使用体验超出了预期。我常用的工具是Excel和Power BI，因此测试了用AI写Excel公式、VBA和DAX，AI写出的内容大多可直接使用，无需修改。以VBA为例，我问AI的第一个问题是：

用VBA在Excel创建宏，功能是1到100求和。

以下是ChatGPT给出的解答：

Sub 求和()
    Dim Sum , i
    Sum = 0
    For i = 1 To 100
        Sum = Sum + i
    Next
    MsgBox "1到100的和是：" & Sum
End Sub

运行无误：

我接着问：用VBA在Excel创建宏，功能是将A1到A1000单元格的数据用逗号连接到一起，并将结果写入B1单元格。

ChatGPT的回答如下，它甚至加上了注释。

Sub Connect_A1toA1000()
'定义变量
Dim i As Long
Dim myStr As String
'循环
For i = 1 To 1000
    myStr = myStr & Cells(i, "A") & ","
Next i
'将连接后的字符串结果写入B1
Cells(1, "B") = Left(myStr, Len(myStr) - 1)

End Sub

运行结果如下：

我加大了难度，这个场景我在《Excel显示指定产品图片》分享过，很多零售业同仁有查看产品图片的需求。我的提问如下：

Excel VBA写一段宏，功能是针对任意选中的单元格插入jpg图片，图片的大小适应单元格大小，图片来自D盘的“图库”文件夹，每个单元格插入的图片的文件名和单元格的数值相同。

ChatGPT给出的答案是：

Sub InsertImage()
    Dim cell As Range
    For Each cell In Selection
        If Dir("D:\图库\" & cell.Value & ".jpg") <> "" Then
            With ActiveSheet.Pictures.Insert("D:\图库\" & cell.Value & ".jpg")
                .Left = cell.Left
                .Top = cell.Top
                .Width = cell.Width
                .Height = cell.Height
            End With
        Else
            '没有该图片
            MsgBox "没有找到" & cell.Value & ".jpg" & vbNewLine & "请检查是否存在，并重新运行该宏"
        End If
    Next
End Sub

代码再次直接可用。

可以看出ChatGPT是强大的助手，人机结合将会极大提升你的工作效率。针对AI写代码这个场景，提问时需注意一定要条理、清晰、详细。第一次提问结果如果不理想，可以修正问题，继续提问。

后续还会有更多AI辅助个人效率提升的介绍。ChatGPT账号相关的事宜大家可在网上搜寻，教程很多了。

上一个时代机器取代了部分体力劳动，这个时代AI要取代部分脑力劳动。当然，有取代，也会有创造。

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2023-02-08，如有侵权请联系 cloudcommunity@tencent.com 删除

vba