Tag: checkbox

VB.Net：在Excel单元格中插入checkbox: 我试图从一堆不同的数据源中制作一个阅读器友好的Excel电子表格。其中的一部分就是将checkbox添加到特定列中的每一行。我相信这不能通过“单元格”来完成，而是通过电子表格上的位置来完成。我试过… Dim cb As ICheckBox = protoWorksheet.CheckBoxes.AddCheckBox(4, 2, 15, 100) cb.CheckState = CheckState.Checked cb.Text = "Test" 但收到以下错误： Microsoft.VisualBasic.dll中发生了typesSystem.MissingMemberException的未处理的exception“附加信息：未findtypes为”CheckBoxes“的公共成员”AddCheckBox“。任何帮助深表感谢！

用vba excel打开一个表单checkbox: 如何检查checkbox是否被选中？ select一个checkbox例如“a” （在我的例子中），我想打开一个Excel工作表。我怎么解决这个问题？谢谢你们。

VBA从userform获取checkbox值: 我无法从用户窗体的checkbox中获取值。我遇到的问题是，用户窗体基于表单中的值创build可变数量的checkbox。代码为： Private Sub UserForm_Initialize() Dim LastRow As Long Dim i As Long Dim Teller As Long Dim chkBox As MSForms.CheckBox Teller = 1 LastRow = Worksheets("Sheet").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LastRow If Worksheets("Sheet").Cells(i, 1).Value = Worksheets("Sheet").Range("S1").Value Then Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & Teller) chkBox.Caption = Worksheets("Sheet").Cells(i, 9).Value chkBox.Left = 5 […]

在vba中打开表单时禁用checkbox: 我有3个checkbox。当用户打开我的表单时，他/她不能选中checkbox。我希望他们被禁用。我怎样才能做到这一点？

当任何一个checkbox被选中时，使用MACROS突出显示一个单元格（多个checkbox，一个单元格）: 我是一个真正的新手与Excel（和编码）。我已经find了，使用条件格式，突出显示一个单元格，如果另一个单元格的值更改（基于checkbox更改）。我所拥有的是带有checkbox的多个单元格（不能是ActiveX checboxes，因为MAC用户需要能够运行它），如果选中任何一个checkbox，则必须突出显示另一个单元格。例如，单元格A1，B1，C1，D1，E1都有checkbox。如果其中任何一个被选中，则单元F1需要被突出显示。我能够设置它，所以如果A1被选中，那么单元格G1表示“真”，那么单元格F1突出显示。当我把所有的checkbox链接到单元格G1并且只selectB1时 – 所有的单元格（A1，C1，D1，E1）被选中并且单元格F1被高亮显示。如果选中（或全部）A1，B1，C1，D1和/或E1中的任何一个，我需要能够突出显示一个单元格。

如何在VBA中定义checkbox的数组: 我知道类似的问题已经问过像这样和这个，但我有初始化checkbox数组对象（我的VBA是相当生锈）的问题。我有以下代码： Dim chkAdQ(4) As Checkbox Set chkAdQ(0) = chkAdQ1 Set chkAdQ(1) = chkAdQ2 Set chkAdQ(2) = chkAdQ3 Set chkAdQ(3) = chkAdQ4 其中chkAdQ1，chkAdQ2等是窗体上的ActiveXcheckbox。在debugging中，我可以看到chkAdQ（4）在声明本身上提示'nothing'，因此赋值给出了一个Type不匹配的exception。我也尝试通过声明chkAdQ（4）作为一个对象，但无济于事。有什么想法吗？

Excel – 如果所有checkbox（ActiveX）未选中，则发送msgbox: 我试图让macros发送一个msgbox万一activesheet（ActiveX）的任何checkbox被选中。我不知道为什么，但是当我运行macros，即使我有一个checkbox检查跳转线“x = x + 1”… 有人能帮我吗？ Private Sub adecoagrobox1_Click() If adecoagrobox1.Value = True Then On Error Resume Next ThisWorkbook.Sheets("Comps_pivot").PivotTables("compspivot1").AddDataField Sheets("Comps_pivot").PivotTables( _ "compspivot1").PivotFields("Adecoagro"), "Adecoagro ", xlSum Else On Error Resume Next ThisWorkbook.Sheets("Comps_pivot").PivotTables("compspivot1").PivotFields("Adecoagro "). _ Orientation = xlHidden End If Dim control as OLEObject Dim x as integer x = x + 1 For Each control […]

Excel用户名表单呼叫checkbox的名称: 我有一个表单，它在初始化时设置了一个包含内容和附带checkbox的标签列表。我想检查单击button时的checkbox的值。我如何参考checkbox – 我已经创build了一个数字（我的值）的checkbox。添加checkbox的代码： Sub addLabel() Dim theCheck As Object Dim theLabel As Object Dim i As Long Dim LastRow As Integer LastRow = Worksheets("Assumptions").Cells(Rows.Count, "B").End(xlUp).Row For i = 1 To LastRow Set theLabel = UserForm1.Controls.Add("Forms.Label.1", "Assumption" & i, True) With theLabel .Name = "Assumption" & i .Caption = Worksheets("Assumptions").Range("B" & i).Value ' […]

checkbox在所选单元格行上运行macros; 需要他们在链接的单元格行上运行: 我有一个工作簿，在这个工作簿中，一个工作人员将完成特定的项目，一旦完成，他们将被完成检查。这会触发checkbox左侧的行/范围被选中，复制并粘贴到第一个可用行的下一个工作表中。当前行将从第一个工作表中清除。每个工作表都有预先填入并预先链接到单元格的checkbox。我遇到的问题是，当选中checkbox时，runallmacros将在当前选中的行上激活，而不是checkbox所在的行，并链接到单元格中。例如，如果checkbox是M2行，但是当前select的单元格是B8，macros将尝试复制和粘贴第8行，而不是预期的第2行。由于macros没有撤消，这导致很大的头痛。任何帮助将不胜感激！ Sub RUNALLOPEN() Dim response As VbMsgBoxResult response = MsgBox("Are you sure you wish to clear this row and send to the Lab?", vbYesNo + vbExclamation, "Confirm Error Resolution") If response = vbNo Then Dim cbx As CheckBox Set cbx = ActiveSheet.CheckBoxes(Application.Caller) With cbx.TopLeftCell.Offset(0, -1) cbx.Value = xlOff End With […]

Excel VBA：如何清除CheckBox: Private Sub CheckBox9_Click() If CheckBox9.Value = True Then CheckBox9.Caption = "Done" ActiveWorkbook.Sheets("Well Planning Checklist").Tab.ColorIndex = 4 'ActiveSheet.Tab.ColorIndex = 22 Range("Q17").Value = CheckBox9.Caption Else If LCase(Range("Q17").Value) = CheckBox9.Caption Then CheckBox9.Value = Not (CheckBox9.Value) Else CheckBox9.Value = Not (CheckBox9.Value) End If End If End Sub 我用上面的方法确保一旦用户点击checkbox，他不能取消选中它。但是，我希望能够有一个button，我的用户可以用户重置。一切，而不仅仅是checkbox。我有下面，但它不工作。有人可以帮我把它工作吗？ Private Sub CommandButton1_Click() CheckBox9 ActiveWorkbook.Sheets("Well Design Section").CheckBox9.Caption […]