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

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

在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。
如果对你有帮助,请点上已解决问题