以通用方式处理复选框 - Excel VBA

时间:2017-04-21 11:58:49

标签: excel vba excel-vba

我想将下面的代码设为通用,以便申请n个复选框。显然,在n = 100时,您无法为每个复选框写下100个相同的Subs Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("B7:H7").Font.Strikethrough = True Else Range("B7:H7").Font.Strikethrough = False Range("B7:H7").ClearContents End If End Sub

感谢任何评论或回答!

{{1}}

0 个答案:

没有答案