作者:乔山办公网日期:
返回目录:excel表格制作
单选框:分组框不会找吧?先加入"分组框",再将“选项按钮”加在分组框里。
复选框:右键点击工具栏---自定义----窗体......然后你就看到了
在视图-工具-下选择窗体。单选钮是小圆圈,如果有多组,只要将窗体中的一个方框先画出来,再将单选钮放入框中即可。这样各框之内的单选互不干涉。
1:在第一个单元格插入复选框后e69da5e887aae79fa5e98193334拖动复制。
2:如果单元格区域不规则可以用下面代码:
Private Sub AddCheckBoxesInRange()
On Error Resume Next
Dim cell As Range
Dim CurrentRange As Range
Set CurrentRange = Selection
CurrentRange.NumberFormatLocal = ";;;"
Application.ScreenUpdating = False
For Each cell In CurrentRange
ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Height, cell.Height).Select
With Selection
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Characters.Text = ""
End With
Next
CurrentRange.Select
Application.ScreenUpdating = True
Set cell = Nothing
End Sub
单选框:分组框不会找吧?先加入分组框,再将“选项按钮”加在分组框里。复选框:右键点击工具栏---自定义----窗体......然后你就看到了