Tag: checkbox

VBA – 循环中的每个checkbox会在出现变化时作出反应，如何停止？

我是VBA新手。 我search了很长时间，以find一个方法有无限期（不同）的ActiveXcheckbox，但没有相应数量的_click潜艇，但我不能使它的工作。 我以为我用Form Controlsfind了一个方法，但它似乎并不完美。 这是我的代码点击cbxReady（一个项目准备好时，checkbox，只能勾选cbxStart被打勾）： LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row For s = 1 To LastRow – 2 If ActiveSheet.CheckBoxes("cbxReady" & s).Value = 1 Then ActiveSheet.Cells(s + 2, "A").Interior.Color = RGB(255, 255, 0) ElseIf ActiveSheet.CheckBoxes("cbxReady" & s).Value = -4146 Then ActiveSheet.Cells(s + 2, "A").Interior.Color = RGB(218, 238, 243) End If Next 这是cbxStart： LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row […]

在SQL“IN”操作符中使用checkbox值

我有一个表单中有几个checkbox。 在包括Excelmacros的SQL查询中使用勾选checkbox的值。 我在SQL“IN”-operator中使用这些值。 所以，everythig工作。 但是我不喜欢我的macros的代码。 对于勾选checkbox，我使用这样的代码（如果有更多的价值，列表将是非常巨大的）： Public Location1 As String Public Location2 As String Public Location3 As String Public Location4 As String Private Sub OKCommandButton2_Click() If CheckBox1.Value = True Then Location1 = "LocationValue1" If CheckBox2.Value = True Then Location2 = "LocationValue2" If CheckBox3.Value = True Then Location3 = "LocationValue3" If CheckBox4.Value = True Then Location4 […]

如何使用checkbox来更改公式

我试图切换公式中包含的数据。 如果选中该框，我想在公式中包含一系列单元格。 如果该框没有被选中，我不想在公式中包含数据。 我正在尝试使用VBA来做到这一点，但我不确定从哪里开始。 提前感谢您的帮助！

VBA – 编程类操作用户窗体上的所有checkbox时出错

这里是我想要做的一些背景：我创build一个用户窗体跟踪库存项目和价格，使用多页对象中的checkbox。 店员检查一切顺序，并使用提交button，这将采取一些行动。 为了让项目在库存项目每次更改时都不需要编码人员，当激活用户窗体时，checkbox将从库存工作表上的单元格值dynamic生成。 店员只是调整库存表，表单会自动调整。 这是我的代码来dynamic创build所有的checkbox（目前这种forms可以容纳多达160个可能的checkbox），以防万一这是我的问题（注意，多页上的每个选项卡上有一个框架，所有checkbox都在框架，所以我可以改变背景颜色，这个例子中的框架被命名为“frmreg”）： Sub StoreFrmRegCheckboxGenerator() 'Works with the store userform Dim curColumn As Long Dim LastRow As Long Dim i As Long Dim chkBox As msforms.CheckBox 'This sub dynamically creates checkboxes on the Regular Items tab based 'on values in Column A of the Inventory sheet curColumn = 1 'Set your column index […]

Excel VBA用户窗体设置单元格内部不会到下一行

我想做一个用户表单，我想它改变下一个单元格的颜色。 它每次只使用string，但每次我尝试更改单元格内部时，它都停留在同一行，而不是像它应该一样向下行。 当我运行它没有颜色部分，一切正常，每当我想要他们的string去下一行。 但是，当我插入单元格颜色的内部部分它不会下降1。 我想这样做，如果checkbox被选中，该行的第一列是绿色，如果没有选中，它是红色的。 代码如下： Private Sub btnEnter_Click() Dim ssheet As Worksheet If Me.tbTitle.Value = "" Or Me.tbDate.Value = "" Or Me.cmbGenre = "" Or Me.tbKeywords = "" Or Me.tbDirector = "" Or Me.tbCast = "" Then If MsgBox("Not all forms are completed. Do you want to continue?", vbQuestion + vbYesNo) <> vbYes Then […]

Excel，为下一个循环收集的checkbox值

我正在做一个excel文件，到那时候，将有90多个checkbox。 用户将能够select90个中的任何一个或全部，其将依次使用简单的If … then函数中的那些值来在输出文档中打印查找结果。 原来我的代码用于我= 1至8，然后我手动编码checkbox现在将保留的值。 即 Dim Sec(1 to 8) as string For i = 1 to 8 Sec(1) = "5001" Sec(2) = "5002" 等到我需要的值被添加。 这不是太困难，我只是根据需要调整文档。 然而，就像所有事情从小事情开始一样，我的任务是创build一个文档站点，包含所有可以select的值。 在这里，我发现自己迷路了。 我目前正在使用 For Each ctl in Sheets("Sheet1").Controls If Typename(ctl) = "Checkbox" then If ctl.value = True then 要遍历所有的checkbox，并find那些被检查的，但我怎么会把checkbox1的值（可以说是5001），并使该秒（＃）符合我的代码的其余部分？ 这是一个dynamic数组的情况下，或者我会更好的简单发送值的工作表上的某个列，然后创build一个数组的单元格不是空白的数组？ 代码的一个更大的部分，所以你可以得到所有东西落在这里的jist。 请忽略Attachmate的东西，如果符合某些条件，我会用Getstring将信息放入单独的文档中。 Dim Sec(1 To 8) As String […]

VBA代码链接checkbox到某些列

我有三列E（数量不足）F（太慢）和G（未列出）他们都有checkbox。 我需要链接E到H F到I G到J 下面的代码很好地工作，如果只有1列的checkbox，但我不知道如何改善代码运行在某一列的checkbox。 现在它只是search整个工作表的checkbox，并将其链接到所需的列。 Sub LinkChecks() 'Update 20150310 i = 2 For Each cb In ActiveSheet.CheckBoxes cb.LinkedCell = Cells(i, "I").Address i = i + 1 Next cb End Sub

大checkbox检查最小的一个

我正在寻找解决我的问题。 我有这个巨大的excel表（这里最重要的是它由700多行组成），我想使我所谓的“大checkbox”来检查“小checkbox” 点击这里看到一个图片，解释它更好 。 事实是，我有大量的数据，我不知道有多less个checkbox将链接到一个大的checkbox，所以我必须做一个macros来做每个checkbox的链接。 我已经写了一个macros自动创build大和小checkbox，所以现在我只是创build链接。 我创build了“链接”macros，它在一个小电子表格上工作。 但在我的700行电子表格中，当我检查一个大的checkbox来检查链接到它的小checkbox时，程序需要20到30秒。 我认为我没有正确的做法：例如，为了区分大checkbox和小checkbox，我将它们命名为CBX_“checkbox所在的单元格的范围”而不是“checkbox所在的单元格的范围”。 请你能帮我做一个更快的程序，真的不应该是复杂的，只是我不太喜欢使用checkbox。 Sub HideLinkedChkV3() Application.ScreenUpdating = False Dim bigchk As CheckBox Dim chk As CheckBox Dim lenrange As Integer Dim diff As Long Dim diff1 As Integer Dim diff2 As Integer Dim rgr_start As Integer Dim rgr_end As Integer 'rgr start and end are the rows where […]

Excelmacroscheckbox

我有这张桌子 如果可能的话使用macros，我想： 当检查具有30％的值的框时，它将复制到“总计select的”30％ 用户只能选中一个框 我只想当用户选中方框来评估point1时，他会select其中一个评级（0％-30％-60％-100％），而他select的任何内容都将复制到总权值中。 我不知道如何为每个框定义一个值？

Excel VBA代码，当单元格不为空时设置checkbox

我是新来的（在VBA初学者）。 我试图修改这个代码来设置checkbox只在Range（“B21：B40”）中的单元格不为空。 代码没有准备好。 我不知道如何build立两个工作循环每个工作将检查内容范围（“B21：B25”）和下一个范围（“A21：A25”）将设置checkbox Sub ActiveCheckBox() Dim setRange As Range, cel As Range Dim checkRange As Range, cel1 As Range Dim wks As Worksheet Dim cb As Checkbox Set wks = Sheets("InterFace") Set setRange = wks.Range("A21:A25") Set checkRange = wks.Range("B21:B25") For Each cel1 In checkRange If cel1 <> "" Then For Each setRange In checkRange […]