wps给目录添加宏 | 在WPS中起用宏

1.如何在WPS中起用宏

使用WPS的用户会发现WPS中没有宏选项，那么如何在WPS中启用宏呢？工具/原料WPSVBA for WPS方法/步骤1下载VBA for WPS。

可以百度一下。也可以点击链接：参考网址。

2.wps的宏设置在哪里怎么设置

wps开启宏的步骤如下：

1、这里以WPS2019为例，首先打开浏览器，在搜索引擎中搜索“VBA for wps”，选择任意一个网站下载vba安装程序回来备用：

2、下载后VBA FOR WPS .exe开始安装点击下一步：

3、稍等一会安装完毕，点击完成就装好了：

4、最后打开wps2019，点击上面的选项开发根据，就看到有关宏的功能都可以用了：

3.WPS怎么加入宏

您好，很高兴为您解答！

WPS个人版中没有宏功能，可以【学习帖】VBA的使用及VBA下载/wpswfw

如有疑问，请点击我的头像提问。祝您生活愉快！

4.WPS用宏创建工作簿目录公式

'以下为代码，请复制到vba编辑器中，然后可以运行main宏来创建目录页。

Sub main()

'Dim Workbook As Workbook

'Dim cSheet, sht As Worksheet

'Dim et As Application

'Dim Rng As Range

'Dim i, j As Integer

'Dim k As String

Set et = ThisWorkbook.Application

'Set et = GetObject(, "et.application")

Set Workbook = et.ActiveWorkbook

Set cSheet = Workbook.ActiveSheet

If cSheet.Name "目录" Then

Set cSheet = Workbook.Sheets.Add(Workbook.Sheets(1))

cSheet.Name = "目录"

End If

cSheet.Activate

Set Rng = et.Selection

i = Rng.Row

j = Rng.Column

If MsgBox（"是否要在各Sheet（除目录页）的左上角（A1格）创建返回目录页的链接？"， vbYesNo + vbQuestion) = vbYes Then

MakeBacklink = true

End if

For Each sht In Workbook.Sheets

If sht.Name "目录" Then

cSheet.Hyperlinks.Add cSheet.Cells(i, j), "", "'" & sht.Name & "'!A1"， "跳转到工作表""" & sht.Name & """", sht.Name

i = i + 1

If MakeBacklink Then

If IsEmpty(sht.Cells(1, 1)) Then

k = "[返回目录]"

Else

k = CStr(sht.Cells(1, 1))

End If

sht.Hyperlinks.Add sht.Cells(1, 1)， ""， "目录！A1"， "返回目录"， k

End If

End If

Next

End Sub

5.在wps中怎样使用宏功能

wps使用宏功能的办法：

1、首先我们要明确，wps本身不能直接启用宏功能，要下载组件才可以。

2、接下来在网上搜索VBA软件（组件）安装版，找到对应的。

3、点进去后，进行下载，下载安装版。

4、下成功后解压压缩包，到某一文件夹，并打开，找到绿化&卸载。

5、双击打开，进入操作页面。

6、点击一或者二，选择不同的版本，最后点击回车进行调用。

7、成功无误后，接下来重启wps，找到开发工具，便可看到宏命令。

6.WPS用宏创建工作簿目录公式

'以下为代码，请复制到vba编辑器中，然后可以运行main宏来创建目录页。

Sub main()

'Dim Workbook As Workbook

'Dim cSheet, sht As Worksheet

'Dim et As Application

'Dim Rng As Range

'Dim i, j As Integer

'Dim k As String

Set et = ThisWorkbook.Application

'Set et = GetObject(, "et.application")

Set Workbook = et.ActiveWorkbook

Set cSheet = Workbook.ActiveSheet

If cSheet.Name "目录" Then

Set cSheet = Workbook.Sheets.Add(Workbook.Sheets(1))

cSheet.Name = "目录"

End If

cSheet.Activate

Set Rng = et.Selection

i = Rng.Row

j = Rng.Column

If MsgBox（"是否要在各Sheet（除目录页）的左上角（A1格）创建返回目录页的链接？"， vbYesNo + vbQuestion) = vbYes Then

MakeBacklink = true

End if

For Each sht In Workbook.Sheets

If sht.Name "目录" Then

cSheet.Hyperlinks.Add cSheet.Cells(i, j), "", "'" & sht.Name & "'!A1"， "跳转到工作表""" & sht.Name & """", sht.Name

i = i + 1

If MakeBacklink Then

If IsEmpty(sht.Cells(1, 1)) Then

k = "[返回目录]"

Else

k = CStr(sht.Cells(1, 1))

End If

sht.Hyperlinks.Add sht.Cells(1, 1)， ""， "目录！A1"， "返回目录"， k

End If

End If

Next

End Sub

用宏工作簿公式功能搜索

免责声明：本网信息来自于互联网，目的在于传递更多信息，并不代表本网赞同其观点。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，并请自行核实相关内容。本站不承担此类作品侵权行为的直接责任及连带责任。如若本网有任何内容侵犯您的权益，请及时联系我们，本站将会在24小时内处理完毕。