怎样用vba 在excel数据表的首列添加checkbox..?

Question

怎样用vba 在excel数据表的首列添加checkbox，选中checkbox后状态变为“✔”按按钮“锁定”不给编辑选中的整行数据，然后按另一个按钮“打印”进行选中的数据用打印机打印？

Answer 1

在Excel中使用VBA来添加checkbox，选中checkbox后状态变为“✔”，并锁定选中的数据行的步骤如下：

打开Excel工作簿，在数据表的首列添加一个checkbox。

在Excel的"开发人员"选项卡中打开"Visual Basic"编辑器。

在编辑器中，单击"插入"按钮，然后在"活动X表单控件"中选择"按钮"。

在工作簿中绘制一个按钮，并在编辑器中为该按钮添加代码。

为按钮添加以下代码，以锁定选中的数据行：

**Private Sub CommandButton1_Click()
Dim r As Range
For Each r In Selection
r.Locked = True
Next
End Sub**

在Excel中插入另一个按钮，并为该按钮添加以下代码，以打印选中的数据行：

Private Sub CommandButton2_Click()
Dim r As Range
For Each r In Selection
r.PrintOut
Next
End Sub

在Excel中测试按钮是否正常工作。
注意：在运行这些代码之前，请确保Excel工作簿中已选中checkbox。
如果对你有帮助，请点上已解决问题