ActiveX控件 实例006 Checkbox控件再使用

您好，这里是“E图表述”为您讲述的Excel各种知识。

【前言】

上期内容发布后，很多人都说“引出的数据都没有排序”，作者只能说“好吧，我再给你写一个可以排序的内容吧”。但是作者还要说一点：学以致用，用中求学。你是想做人上人，就要吃苦中苦，VBA不像函数，ActiveX控件更不是生拉硬套，当有需要去主动“设计”而不能套用的的时候，如果你不行，就看行的人去吃“蛋糕”吧，但是你没有权利抱怨。

【正文】

上次的动图效果，“还给”同学们一个可以排序的Checkbox控件，而且“加大难度”，我们不使用Commandbutton控件，只需要选择“复选框”，就可以出导出内容

上期效果：

上期内容

本期效果：

步骤1：

按窗体控件布局如下：

没有Commandbutton控件了，我们的数据怎么导出呢？这是个问题。我们可以利用CheckBox_Click事件。

步骤2：

对CheckBox1控件，这么多的Checkbox控件，你知道哪个是Checkbox1控件吗？如果你对E图表述的公众号，尤其是控件实例部分有关注的话，就应该有一个比较“好的使用习惯”，当你设置这4个复选框控件的时候，应该是顺序添加，而不应该“跳跃”，如果是顺序添加的，那么顺理成章的，这4个复选框的Checkbox（i）的i值，就也应该是顺序排列的。赶紧学起来吧，控件是一个很好玩的内容。

右键选择Checkbox1.Caption为“西游记”的控件，鼠标右键——“查看代码”，默认弹出控件的Click事件，输入下面的代码，

步骤3：

按照第1个控件的内容，将其他几个控件的Click事件也添加上代码，注意一点，Click的隶属控件名称，在工程名称中是不一样的，及此完成。

如下：

Private Sub CheckBox1_Click()

代码如上

End Sub

Private Sub CheckBox2_Click()

代码和上面一样

End Sub

Private Sub CheckBox3_Click()

代码依然和上面一样

End Sub

Private Sub CheckBox4_Click()

同样的操作过程，代码还是和上面一样

End Sub

【编后语】

你要的排序给你了，如果你不会太高级的方式，那么就用思路来弥补吧，记住“勤能补拙”。如果技术不过硬，又不想动脑子，那么就看着别人吃“蛋糕”吧。

如果上面的内容对您还有帮助，或者觉得作者比较用心。可以关注、在看、转发朋友圈，便于您继续观阅和浏览往期的“Excel干货分享”。微信公众号：“E图表述”或者“Excel_Easy”