Excel - vba
_Abert
这个作者很懒,什么都没留下…
展开
-
vba - 控制excel图表 曲线的隐藏
Private Sub channel_1_click() Static nflag As Integer If (nflag = 0) Then nflag = 1 End If If (nflag = 1) Then ActiveSheet.ChartObjects("图表 1").Ac...原创 2018-10-22 10:18:44 · 2780 阅读 · 0 评论 -
vba - 循环 添加 复选框
Sub addCheckBox() For i = 1 To 8 'MsgBox (Str(i)) ActiveSheet.CheckBoxes.Add(Cells(1, i).Left, Cells(1, i).Top, 25, 16.5).Select '在cells(i,1)处添加复选框 Selection.Characters.Text = str(i) ...原创 2018-10-22 10:21:04 · 5061 阅读 · 0 评论