WPS中无法使用Excel vba 的代码

Sub testAutoFilter5()

Dim lngColNum As Long

'计算当前单元格在区域中的列号

lngColNum = ActiveCell.Column -(ActiveCell.CurrentRegion.Column - 1)

'筛选

Selection.AutoFilter Field:=lngColNum,Criteria1:=ActiveCell

End Sub

举报该问题

其他回答

第1个回答 2018-12-02

没问题啊，跑起来一切正常。

追问

有没有办法把这个EXCEL的代码改写成WPS的代码

追答Sub testAutoFilter5()
Dim lngColNum As Long
'计算当前单元格在区域中的列号
lngColNum = ActiveCell.Column - (ActiveCell.CurrentRegion.Column - 1)
'筛选
Selection.AutoFilter Field:=lngColNum, Criteria1:=ActiveCell.Text
End Sub

改一句：代码第六行，加个 .text

第2个回答 2018-12-02

WPS本身一般不带有Vba模块，所以需要加装后才能使用。本回答被网友采纳

相似回答

如何解决WPS2013无法运行VBA的问题答：一、首先，打开WPS层序，在程序主界面上“开发工具”中可以看到“宏功能”已经被禁用。二、然后，在电脑上找到下载好的“vba6chs”文件，双击加打开。三、然后，在穿啊港口中弹出以下对话框说明“vba6chs”安装完成。四、最后，回到WPS程序中即可看到宏功能可以使用，问题解决。