我想将下面的代码设为通用,以便申请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}}