Tag: checkbox

如何将Excel上的checkbox链接到VBA代码: 我在Excel工作表上创build了一个checkbox，使用devise模式我已经将它命名为ChkV，并且我写了一个VBA代码，但是当我运行它时，我收到一条消息，告诉我这个variables没有被定义。 If ChkV.Value = True Then ' my code End If 我没有正确的标记checkbox，我做错了什么？我该如何解决这个错误？

从checkbox更改单元格中的值: 我在一个表中有一个值，在另一个表中有一个checkbox。我希望在检查这个盒子的时候，这个值会增加1。我想要做这样的事情： =IF(C23,B4=B4+1) 但Excel会引发错误。 C23是checkbox，B4是数字。

根据checkboxselect隐藏/取消隐藏整行: 我想根据是否勾选checkbox来隐藏特定的行。我有这个代码，但似乎没有工作。我右键单击checkbox，并分配此macros： Private Sub CheckBox68_Click() If CheckBox68 = True Then [24:26].EntireRow.Hidden = False End If End Sub 我不知道为什么它不起作用。任何人都可以看到有问题吗？非常感谢提前Ab

数百个checkbox从True / False更改为Yes / No: 我有一个不断更新的电子表格来跟踪对病人的访问。我有2列，我已经使用下面的VBA代码进入多个checkbox分配到它们所在的单元格。但是，我想添加一些东西，使我的点击时checkbox的值是或否。电子表格中有600多个，所以我需要一个能够一次性覆盖所有这些的东西，而不必单独更改每一个。我会张贴电子表格的照片，但我还不能，因为我是一个新用户，没有声望点。谁能帮忙？ Sub AddCheckBoxes() Dim cb As CheckBox Dim myRange As Range, cel As Range Dim wks As Worksheet Set wks = Sheets("Sheet1") Set myRange = wks.Range("K2:K300, L2:L300") For Each cel In myRange Set cb = wks.CheckBoxes.Add(cel.Left, cel.Top, 30, 6) With cb .Caption = "" .LinkedCell = cel.Address End With Next […]

返回CheckBoxes.LinkedCell地址的VBA: 我使用下面的代码自动生成一个新的checkbox，并将一个单元格链接到它： ActiveSheet.CheckBoxes.Add().LinkedCell = Selection.Address 我想创build另一个应该改变checkbox的.LinkedCell单元格的背景颜色，当checkbox被选中（蓝色）或未选中（红色）。工作表中将有大约200个checkbox。有没有办法获取/返回当前选中/未选中checkbox的.LinkedCell地址，以便该sub可以更改该单元格的背景颜色？例如，让我们假定.LinkedCell是最初放置checkbox的单元格。这将是每个checkbox的初始状态：这将是用户检查/取消选中checbox后的结果：直到现在我用这个代码来改变checkbox本身的背景颜色。但是我不想那个，我想改变.LinkedCell的颜色。 Sub SetMacro() Dim cb For Each cb In ActiveSheet.CheckBoxes If cb.OnAction = "" Then cb.OnAction = "CheckedUnchecked" Next cb End Sub 和 Sub CheckedUnchecked() With ActiveSheet.Shapes(Application.Caller).DrawingObject If .Value = 1 Then .Interior.ColorIndex = 5 Else .Interior.ColorIndex = 3 End If End With End […]

select/取消select范围为EXCEL VBAmacros中的所有checkbox: 我创build一个VBAmacros来select工作表中的所有checkbox，它工作正常，但现在我想调整我的代码来select和取消select只在特定范围内的checkbox。这是我的代码。 Sub Select_all() Dim Cbox As CheckBox Dim Rng As Range Set Rng = ActiveWorkbook.Sheets("Sheet4").Range("B7, B104") For Each Cbox In ActiveSheet.CheckBoxes If Not Intersect(Cbox.TopLeftCell, Rng) Is Nothing Then If Cbox.name <> ActiveSheet.CheckBoxes("Check Box 104").name Then Cbox.Value = ActiveSheet.CheckBoxes("Check Box 104").Value End If End If Next Cbox End Sub 我补充说如果不相交（Cbox.TopLeftCell，Rng）是没有的但它不会改变任何东西，当我删除这个部分，然后select工作表中的所有checkbox，我只需要范围（“B7：B104”）有什么build议吗？非常感谢你。

从Excel电子表格中的所有checkbox取消分配macros: 我有一个超过700checkbox的excel电子表格。所有checkbox已被分配给一个特定的macros。我已经删除了这个macros。现在，我想从所有checkbox中取消分配这个macros。我可以手动执行一个checkbox，方法是在点击assign Macro时删除文本。但是，我怎样才能做到这一点大量的checkbox？任何帮助不胜感激。谢谢！

在checkboxselect上显示string的macros: 我在sheet1上有一个checkbox（总共大约有7张）。如果checkbox被选中（true），我希望它在单元格M9中说“已批准”。如果checkbox没有被选中（false），我想让它在文本框中说“Denied”。我需要为此创build一个macros吗？如果我希望它在sheet2的单元格M5中显示相同的文本，我将如何把它放在一起？

启用其他checkbox的主checkbox: 你好，我不知道如何做一个checkbox ，激活 excel 2010中的其他checkbox。我的意思是如果我检查第一个checkbox使其他checkbox。

运行macros离开页面: 我有一个checkbox，将检查时运行此macros。 checkbox位于sheet1中，它将隐藏sheet2中的第11行。我怎么写这个代码，所以我不必在表单之间来回跳动？ Sub Hide_HeaterTreater_Rows() Sheets("NSR Report").Select Range("11:11").Select If Selection.EntireRow.Hidden = False Then Selection.EntireRow.Hidden = True Else Selection.EntireRow.Hidden = False End If Sheets("NSR FORM").Select End Sub