请教一个WPS宏问题？

Question

在一个XLS表格中，我设置了多个单选按钮，按钮旁边分别填上了些数据。想通过点击按钮1、按钮2……让旁边单元格A1、A2的数据自动填入到B1、B2中去。
在EXCEL中我使用range实现了，Range("A1") = Range("B1")，
但在WPS中无法运行，提示什么default啥range失败。
在WPS中的宏可以正常运行如[A1]=“你好”，
是不是我的WPS不支持宏命令?还是我的宏命令在WPS中格式有错?
谢谢。

Answer 1

WPS和Excel的宏命令语法有些许不同，可能会导致无法在WPS中运行Excel的宏命令。建议您在WPS中使用WPS的宏命令来实现该功能。

可以使用WPS的“选项按钮”控件来替代Excel中的单选按钮控件。在WPS中添加选项按钮的方法如下：

打开WPS表格，点击“开发”选项卡中的“插入”按钮，选择“表单控件”中的“选项按钮”；

在表格中绘制选项按钮，每个选项按钮可以附带文本标签；

选中一个选项按钮，打开“属性检查器”窗口，设置“Value”属性为需要填写的数据，例如A1单元格的数据；

双击选项按钮，打开“宏编辑器”窗口；

在“宏编辑器”中编写代码，实现选项按钮被选中时，将对应的数据填入B1单元格中。例如：

Sub OptionButton1_Click()

If OptionButton1.Value = True Then

Range("B1").Value = Range("A1").Value

End If

End Sub

保存宏，关闭“宏编辑器”窗口，测试选项按钮功能是否正常。

如果您还是无法在WPS中成功运行宏命令，可以尝试重新安装WPS或联系WPS官方技术支持。

Answer 2

WPS中提示"default啥range失败"，可能是因为WPS中的宏语法与Excel有所不同，需要稍作修改。您可以尝试使用以下代码实现您的需求：
sqlCopy codeSub Button_Click()
If Range("Button1").Value = True Then
Range("B1").Value = Range("A1").Value
End If
If Range("Button2").Value = True Then
Range("B2").Value = Range("A2").Value
End IfEnd Sub

在这个代码中，我们通过判断单选按钮是否被选中来决定是否将单元格A1或A2的值赋值给B1或B2。您可以将Button1和Button2替换成您实际使用的单选按钮的名称。
另外，如果您的WPS版本较老或未安装VBA组件，可能会导致宏无法正常运行。您可以尝试更新WPS或安装VBA组件，以便更好地支持宏命令。

Answer 3

WPS Word没有使用JS宏打开和操作Excel的方法。要在WPS中启用VBA支持，用户必须下载VBA支持库并在再次打开WPS之前运行它。启用后，用户可以使用宏写入ini文件以进行软件本地化。杰弗里·迪恩·摩根是AMC《行尸走肉》的演员，与这个问题无关。

Answer 4

开始那一栏选择开发工具里面选择wps宏编辑器。
Sub gyz()
Dim i As Integer
For i = 1 To 100
Range("a" & i) = 1

Next
End Sub