表格宏编辑器里的这个AI它在秀什么啊?

#WPS表格 #表格宏编辑 #WPS AI代码助手

麦宇哲

WPS产品体验官

前因

在论坛里看到有人提问:

如题“怎么在wps 的表格里面加入动态的时钟自动跳秒数的”
原贴

于是我问了下Copilot,它回答如下:

💡

要在表格中加入动态的时钟并让秒数自动更新，您可以使用Excel的VBA编程来实现这个功能。以下是一个简单的步骤，您可以尝试：

打开Excel，然后按 Alt + F11 打开VBA编辑器。

在VBA编辑器中，选择“插入” -> “模块”来添加一个新的模块。

在新模块中，复制并粘贴以下VBA代码：

```js

Public Sub UpdateTime()

Sheet1.Range("A1").Value = Now

Application.OnTime Now + TimeValue("00:00:01"), "UpdateTime"

End Sub

```

确保您的工作表名是Sheet1，并且您想要显示时间的单元格是A1。如果不是，请相应地修改代码中的工作表名和单元格引用。

运行这个宏，它会在指定的单元格中显示当前时间，并且每秒更新一次。

请注意，为了让VBA代码正常运行，您需要确保宏功能在Excel中是启用的。此外，当您关闭Excel时，动态时钟将停止更新，下次打开时需要重新运行宏。

重要提示：在使用VBA时，请确保您理解代码的功能，因为宏可以执行强大的操作，包括修改文件和设置。如果您不熟悉VBA，请在执行前进行充分的测试。如果您需要更详细的步骤或遇到问题，我可以提供进一步的帮助。

WPS表格里实操

点击"运行"按钮后,弹出宏窗口,里面没有任何可执行的内容:

问下WPS AI

然后AI直接给我秀了段代码:

💡

代码1:

function Macro(){

let targetWorksheet = ActiveSheet

let targetWorkbook = ActiveWorkbook

let currentRange = ActiveSheet.UsedRange.CurrentRegion

let targetRange = Range("A1:Y7688")

let operator = xlAnd

let criteria1 = =101

if (targetWorksheet.AutoFilter) {

let oldRange = targetWorksheet.AutoFilter.Range

if (targetRange.Row!= oldRange.Row || targetRange.Column!= oldRange.Column || targetRange.Rows.Count!= oldRange.Rows.Count || targetRange.Columns.Count!= oldRange.Columns.Count) {

targetWorksheet.AutoFilter.Range.AutoFilter()

}

targetRange.AutoFilter(14, criteria1, operator, undefined)

}

🔔

代码2:

function Macro(){

let targetWorksheet = ActiveSheet

let targetWorkbook = ActiveWorkbook

let currentRange = ActiveSheet.UsedRange.CurrentRegion

let targetRange = Range("A1:Y6147")

let operator = xlAnd

let criteria1 = =1

if (targetWorksheet.AutoFilter) {

let oldRange = targetWorksheet.AutoFilter.Range

if (targetRange.Row!= oldRange.Row || targetRange.Column!= oldRange.Column || targetRange.Rows.Count!= oldRange.Rows.Count || targetRange.Columns.Count!= oldRange.Columns.Count) {

targetWorksheet.AutoFilter.Range.AutoFilter()

}

targetRange.AutoFilter(15, criteria1, operator, undefined)

}

代码1与代码2比较

执行下试试

把代码1插进去,结果您猜怎么着儿?它执行失败了!

提示的第一行,那好,我把原来copilot里粘进来的代码删除了试试:

再执行下代码2试试,

提示的第一行,那好,我把原来copilot里粘进来的代码删除了试试:

这段代码在做什么?

好奇这段代码究竟在做什么,于是粘到了copilot中去看了看:

📌	Sub AutoFilterMacro() Dim targetRange As Range Set targetRange = ActiveSheet.Range("A1:Y6147") ' 检查是否已经存在自动筛选，如果是，则先移除 If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End If ' 应用自动筛选条件 targetRange.AutoFilter Field:=15, Criteria1:="=1" End Sub