Tag: checkbox

在Excel VBA中自动selectcheckbox: 我保留了一个Excel表格，其中列A中列出了特定产品的所有参数，而在列D中，还有几个参数，我需要从列A中所有参数的集合中进行select。是否有可能在VBA触发一个点击事件，它应该比较列A和列D，并selectcheckbox，如果它自动find参数。任何帮助表示赞赏！

调用子checkboxexcel vba: 我正在尝试使用此代码调用子 If CheckBox2 = True Then Call Qorep inheritance人： Public Sub Qorep() For i = 0 To cap Hoja9.Cells(i + 2, 3).Value = Empty array_Qorep(i, 0) = Hoja1.Range("B" & i + 2) Select Case Hoja9.Cells(3, 5) Case Is > 0 If array_Qorep(i, 0) < Hoja9.Cells(3, 5) Then Hoja9.Cells(i + 2, 3) = array_Qorep(i, 0) End […]

activexcheckbox循环select链接的单元格偏移量，然后复制行: 我有大约50个checkbox全部链接到它们所在的单元格（例如A2中的checkbox链接到单元格A2）。我有循环在一定程度上工作。我遇到的问题是使链接的单元格被选中，偏移量为1的单元格，然后复制该行从链接的单元格中删除。然后粘贴到不同的工作表到下一个空白行。 Sub CheckboxLoop() Dim objx As OLEObject Dim lastrow As Range Application.ScreenUpdating = False 'Loop through Checkboxes With ActiveSheet For Each objx In .OLEObjects If TypeName(objx.Object) = "CheckBox" Then If objx.Object.Value = True Then If objx.Object.LinkedCell = True Then 'runtime error 438 object doesn't support this property or method objx.Object.LinkedCell.Offset(0, 1).Select Range(Cells(Selection.Row, […]

在excel中的userformcheckbox添加运行时事件: 我已经尝试@DaveShaw 代码，对于checkbox的运行时事件，点击不是一个有效的方法checkbox？它从来没有进入方法checkBoxEvent_click Dim CheckBoxArray() As New ClassEvents for i=0 to 10 Set cTemp = MOM.Frame_MOM_MOM.Controls.Add("Forms.CheckBox.1") With cTemp .Top = HeaderOffset + RowOffset + i * 25 'your top pos .Visible = True .Left = 30 'your left pos .Width = widthOfLabel 'your width .Name = Replace(keyArrays(i, 1), " ", "_") .Caption = keyArrays(i, […]

Excel VBA：如何通过基于名称的checkbox循环: 我想用excel和vba来build立一个调查。我有一个问题和答案表。调查开始后，我的代码将通过覆盖表单上checkbox的标签来列出答案。我将获取他们的答案，并通过使用checkbox的True或False值将它们写入列中。 variables“aRow”是每个问题的答案数。 “lastAns”是最后一个答案的行号。根据答案的数量，一些checkbox将被隐藏，显示。 “CheckBox1”到“CheckBox4”是checkbox的名称。下面的代码工作，但它太长，我想有一个更好的方法循环通过checkbox，并每次更改他们的标签。请告诉我如何做到这一点！非常感谢！ `lastAns = Cells(qRow, 5).End(xlDown).Row + 1 aRow = lastAns – qRow If aRow >= 1 Then Me.CheckBox1.Visible = True Me.CheckBox1.Caption = Cells(qRow, 5) Else: Me.CheckBox1.Visible = False End If If aRow >= 2 Then Me.CheckBox2.Visible = True Me.CheckBox2.Caption = Cells(qRow + 1, 5) Else: […]

CheckBox来限制数据validation列表: 前进，慢慢地……. 我添加了一个列，与我的checkbox的组合，给出了活跃的雇员的名字。活跃的员工列表屏幕截图如果我使用$ T $ 6：$ T $ 16作为validation列表，我仍然可以在下拉列表中select11个选项。我希望下拉列表只显示列表中的5个名字。

我有一个Excel工作表，使用许多表单checkbox。有没有办法一次取消所有checkbox？: 我有一张62页的Excel文档。每张纸都有许多表格控制checkbox。有没有办法一次清除这些checkbox？

Excel VBA Userformcheckbox访问: 我正在编程创build一个基于工作表范围内的行数（当前设置为一个固定的数字进行testing）的用户窗体。然后用户检查他们想要检查的框，然后点击命令button。用下面的代码运行的用户表单有一个命令button和一个手动添加的checkbox。其他checkbox以编程方式添加。我无法弄清楚如何从创build的checkbox有问题的价值。我只是得到一个错误，“testing箱”没有定义。我知道我错过了一些简单的… 有什么想法吗？谢谢！ Option Explicit Private Sub updateTablesBtn_Click() If CheckBox1.Value = True Then MsgBox "true" End If If testBox.Value = True Then MsgBox "true" End If End Sub Private Sub UserForm_Initialize() Dim chkBox As MSForms.CheckBox With formTableUpdate .Width = 150 .Height = 200 '15 + 20 * (noOfVariants + […]

解决：与VBAcheckbox的麻烦: 我正在尝试创build一个将从工作簿中打印所选工作表的macros。第一个工作表有一组checkbox，都遵循命名约定“CheckBoxX”，其中X是该checkbox的编号。我想要的代码是通过每个checkbox运行，看看是否被选中，然后select相应的工作表，如果它被选中。但是，我收到一个错误“对象不支持此属性或方法”。这是我的代码：代码： Option Explicit Sub Button14_Click() Dim count As Integer Dim checkNumber As String For count = 1 To ThisWorkbook.Worksheets.count checkNumber = "CheckBox" & count If Sheets("Print").Shapes(checkNumber).OLEFormat.Object.Value = True Then Worksheets(count + 1).Select (False) End If Next count ActiveWindow.SelectedSheets.PrintOut End Sub debugging总是用if语句标记行。我也试过这个作为我的if语句： If Sheets("Print").Shapes(checkNumber).ControlFormat.Value = 1 Then 解决方法：我所要做的就是改变这一行： If Sheets("Print").Shapes(checkNumber).OLEFormat.Object.Value = […]

dynamiccheckbox全选: 我使用下面的代码创build了一个dynamiccheckbox的用户窗体。由于列表是dynamic的，因此我正在努力弄清楚如何在底部（或任何地方）添加全选/全选全选checkbox。任何援助将不胜感激。 Private Sub UserForm_Initialize() 'Create Checkboxes form with director names Dim lRow As Long Dim i As Long Dim chkBox As MSForms.CheckBox lRow = Cells(Rows.Count, 2).End(xlUp).Row Sheets("Directors_Database").Activate For i = 4 To lRow Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i) chkBox.Caption = Worksheets("Directors_Database").Cells(i, 2).Value chkBox.Left = 5 chkBox.Top = 5 + ((i – […]