excel的复选框在哪

Posted 2023-05-17

第一步：新建一个excel且设置数据有效性【选中X列--数据--有效性】
第二步：开发工具--查看代码--把代码复制进去保存就OK了
代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)

' Developed by Contextures Inc.

' www.contextures.com

Dim rngDV As Range

Dim oldVal As String

Dim newVal As String

If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next

Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)

On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then

'do nothing

Else

Application.EnableEvents = False

newVal = Target.Value

Application.Undo

oldVal = Target.Value

Target.Value = newVal

If Target.Column = 7 Then '这里规定好哪一列的数据有效性是多选的，A列是第1列，依次类推，如3就是C列，7就是G列

If oldVal = "" Then

'do nothing

Else

If newVal = "" Then

'do nothing

Else

If InStr(1, oldVal, newVal) <> 0 Then '重复选择视同删除

If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一个选项重复

Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)

Else

Target.Value = Replace(oldVal, newVal & ",", "") '不是最后一个选项重复的时候处理逗号

End If

Else '不是重复选项就视同增加选项

Target.Value = oldVal & "," & newVal

' NOTE: you can use a line break,

' instead of a comma

' Target.Value = oldVal _

' & Chr(10) & newVal

End If

End If

End If

End If

End If

exitHandler:

Application.EnableEvents = True

End Sub 参考技术A 打开excel，点击左上角的文件选项卡，在文件选项卡下选择“选项”。

2
选择“自定义功能区”，点击常用命令。

3
在下拉列表中选择“不在功能区中的命令”，选择复选框。

4
选择右下方的“新建组”后点击“添加”。

5
点击“确定”。

6
这时在开始菜单栏中可以看到复选框菜单，选择它。

7
将复选框放在需要摆放的地方，然后点击右键，选择“复选框对象”，点击“编辑”。

8
编辑好需要显示的文字后，复选框就做好了。

选中复选框，之前选中的复选框将在 excel 中取消选中

【中文标题】选中复选框，之前选中的复选框将在 excel 中取消选中

【英文标题】：select checkbox, previous selected check box will uncheck in excel

【发布时间】：2022-01-21 00:39:12

【问题描述】：

我有一个 excel 文件，我放置了一个复选框，因为我无法使用单选按钮，因为该复选框与 excel 上的公式链接，在选择中，即 1 2 3 4 如果我选择复选框 1，那么我选择复选框 3，复选框 1 的勾选应该自动取消勾选

【参考方案1】：

根据我对您的问题的理解，您希望在每一行中，当您标记一个复选框时，其他行会自动停用。

有两种选择：

选项 1

这个选项是最简单的，但是，不是使用复选框，而是使用选项按钮。

1.1 步骤 1

插入一个Groupbox，你可以去：Developer -> Insert -> Group Box（见图1）

Figure 1

1.2 步骤 2

插入一个选项按钮，您可以转到：开发人员 -> 插入 -> 选项按钮（参见图 2）

Figure 2

1.3 第三步

添加“选项按钮”后，右键单击其中一个并按“设置控件格式”，然后单击“控件”并分配目标单元格。您只需执行一次，因为其余的“选项按钮”是自动配置的（参见图 3）。

Figure 3

1.4 注意

执行此操作时，目标单元格会随着与所选按钮的编号相对应的数值而变化，这似乎更适合您尝试执行的操作（参见图 4）。

Figure 4

选项 2

在此选项中，使用简单的宏将复选框相互关联。

2.1 第一步

点击开发者 -> 录制宏

2.2 第二步

右键单击复选框 1，然后按格式控制。然后转到 Control 并选择 Checked for Checkbox 1

2.3 第三步

对于复选框 2、3 和 4，重复相同的过程，仅标记未选中选项

2.4 第四步

停止宏录制并将宏分配给复选框 1。然后您必须对复选框 2、3 和 4 重复上述所有操作

复选框 1 和 3 就是一个例子（参见图 5 和 6）

Figure 5

Figure 6

结果会是这样的（见图 7）

Figure 7

就是这样！但是，如果您使用选项 2，请记住将文件保存为启用宏的书

【讨论】：

感谢您的支持，在每个复选框中都有公式（TRUE，FALSE），每个复选框都有每个重量的乘数，这就是我不能使用单选按钮的原因，=SUM(Checkbox1*Weight *1,复选框2*重量*2,复选框3*重量*3,复选框4*重量*4) = 分数

我明白了，那么第二个选项是最适合的，因为它保持布尔值（TRUE，FALSE），因此您的公式不会改变

嗨...我尝试了选项 2，但出现此错误：“运行时错误 '438': 对象不支持此属性或方法” Sub Macro2() ' ' Macro2 Macro ' ' With Selection .Value = xlOff .LinkedCell = "$Z$6" .Display3DShading = False End With End Sub

您好，您在制作宏时遇到的错误可能是因为它没有正确录制。我在帖子中添加了一个 GIF，它更清楚地显示了执行选项 2 所要执行的过程。

非常感谢您的帮助和很大的帮助，它现在运行良好