Tag: checkbox

在Java中读取xlsxcheckbox值: 我正在阅读Java中的xlsx文件，我需要检查一些checkbox。现在我正在使用Apache POI，但是我看不到如何访问这些checkbox（它们使用“开发”选项卡 – >插入 – >窗体控件插入到Excel中）。对于xls文件，我设法通过以下提示访问它们：读取Java Apache POI中的Excelcheckbox值在poi how-to页面（ https://poi.apache.org/spreadsheet/how-to.html ）的“XSSF和SAX（Event API）”部分中，我可以看到如何使用SAXParser来通过文件。这样我也可以看到checkbox在工作表上，但我无法得到它们的价值。我有什么是这样的： public XMLReader fetchSheetParser(SharedStringsTable sst) throws SAXException { XMLReader parser = XMLReaderFactory.createXMLReader("org.apache.xerces.parsers.SAXParser"); ContentHandler handler = new SheetHandler(); parser.setContentHandler(handler); return parser; } private static class SheetHandler extends DefaultHandler { private boolean inControl; public void startElement(String uri, String localName, String […]

Excel – 根据单元格内容设置Userformcheckbox的值: 我正在开发一个用户表单，其中的一个部分包含三个指向世界不同地方的checkbox。根据这些组合，在文本C9中input一个文本值。我想要checkbox反映当用户返回到用户窗体时已经在单元格中的内容。我已经能够为用户窗体（选项button，文本框，combobox）中的每个其他项目执行此操作，但是我的checkbox根本没有响应，只要在用户窗体出现时就取消选中，而不考虑C9的值。以下代码位于userform_intialize模块中。有任何想法吗？ If wsM.Range("C9").Value = "EU-5" Then NABox.Value = False And EUBox.Value = True And RoWBox.Value = False ElseIf wsM.Range("C9").Value = "EU-5 & RoW" Then NABox.Value = False And EUBox.Value = True And RoWBox.Value = True ElseIf Sheets("Menu").Range("C9").Value = "NA & EU-5" Then NABox.Value = True And EUBox.Value = True And […]

Excel VBAmacros使用checkbox来隐藏行 – 如果其他语句: 一个工作表上有60个checkbox。他们是表格控制checkbox。他们都做类似的function，这是隐藏行。当您单击checkbox时，它显示行未选中时，行被隐藏。是否有一个容易的，如果否则或案例声明，我可以写这个： Sub CheckBox1_Click() If Range("B4").Value = True Then Rows("5:62").EntireRow.Hidden = False Else Rows("5:62").EntireRow.Hidden = True End If End Sub Sub CheckBox2_Click() If Range("B63").Value = True Then Rows("64:102").EntireRow.Hidden = False Else Rows("64:102").EntireRow.Hidden = True End If End Sub Sub CheckBox3_Click() If Range("B103").Value = True Then Rows("104:129").EntireRow.Hidden = False Else Rows("104:129").EntireRow.Hidden = True […]

创build一个通用的Checkbox_Click VBA代码: 我正在创build一个excel文件，这是一个清单，目前我在D列中有73个checkbox，在E列中它将根据用户名在选项字段中填充用户的名字。目前我有代码如： Sub CheckBox1_Click() If ActiveSheet.CheckBoxes("Check Box 1").Value = 1 Then Range("E3").Value = Application.UserName Else: Range("E3").Value = "" End If End Sub Sub CheckBox2_Click() If ActiveSheet.CheckBoxes("Check Box 2").Value = 1 Then Range("E4").Value = Application.UserName Else: Range("E4").Value = "" End If End Sub 对于列D中的每个checkbox。它确实工作，但我现在需要现在将列D复制到列F，H，J，L在一周的其他几天，我很好奇，如果有一个更快的方法来做到这一点，一个更清洁的方式这样做，而不是有一个长长的名单。

VBAdynamiccheckbox定位: 我有一个Excel VBA用户表单，我试图根据给定字典中的项目数来添加一些checkbox。这个工作，但我的每个checkbox被添加到左上angular，在彼此的顶部。我怎样才能把它们放在最前面？这是我的相关代码： With CreateObject("Scripting.Dictionary") 'Variable Checkboxes Dim i As Long Dim chkBox As MSForms.CheckBox For i = 1 To .count – 1 Set chkBox = Me.Controls.Add("Forms.Checkbox.1", "Checkbox" & i) chkBox.Caption = .Keys()(i) chkBox.VALUE = False Next i

如何使checkbox在Excel中对相邻的checkbox做出反应: 我在Excel（2010）中有两列checkbox（来自“表单控件”），它们将指示是否完成两个任务之一。第二个任务在第一个任务完成之前是不能完成的，但是可能会出现给定行中的任务都在同一天完成的情况。为了避免任何额外的点击，我想这样做，如果第二个任务完成（和检查），然后第一个任务成为自动检查。我该怎么做呢？例如：我希望能够手动检查单元格B5 ，但是如果单元格C5被选中，我希望单元格B5被自动检查。但是，我不想要：取消C5来影响B5 检查/取消选中B5以影响C5 我知道我可以“单元格链接”第二个checkbox列到第三列创build一个输出，但我不知道如何使第一列checkbox被动反应… … 不过，理想情况下，如果可能的话，我想放弃更多的列。最终解决scheme：我用@ GaryStudent的答案来告诉我最后的一般化解决scheme： select所需的checkbox的所有列/行运行WhatIsNamemacros将每个checkbox的名称更改为它所在的基础单元格：注意：确保每个给定单元格中的checkbox是全部的，否则它将不能正常工作！ Sub WhatsInaName() Dim bx As CheckBox For Each bx In ActiveSheet.CheckBoxes bx.Name = bx.BottomRightCell.Address(0, 0) Next bx End Sub 接下来，选中右侧checkbox列的最后一行，右键单击，分配macros“CheckBoxSimplifier” Sub CheckBoxSimplifier() it. Applies to all rows above it for some reason Dim MySelf As CheckBox, […]

如何从VBA Access勾选Excelcheckbox: 我已经通过VBA Access打开了一个Excel文件，并且可以在Excel单元格中读写。我怎样才能勾选一个Excel Ckeck Box？我的代码： Dim Excel_App As Object Dim strExcel As String Set Excel_App = CreateObject("Excel.Application") Excel_App.Visible = True Excel_App.Workbooks.Open fready With Excel_App .CheckBox3.Value = True 'This line is used in VBA Excel and I need in Access End With

Excel VBA – 将多个用户表单checkbox值写入单个单元格: 我正在尝试从具有4个checkbox选项的用户窗体传递的值，并将它们写入单个连接的单元格。当我像这样select我的用户表单：我想将它保存到一个单元格中，如下所示：我试着用下面的代码来完成这个（见下面的代码），但是如果没有第一，第二，第三或者第四个选项的话，它就不适用于逗号。我相信有一个更好的方法，但我无法弄清楚或在网上find答案。 Private Sub cmdSave_Click() Dim colors As String If chkRed = True Then colors = "Red" Else colors = colors End If If chkBlue = True Then colors = colors & ", Blue" Else colors = colors End If If chkGreen = True Then colors = colors & ", Green" Else […]

删除单元格中string的重复项: 所以，我一直在解决这个问题。任何时候CheckBox3和CheckBox6都被检查，它复制“ – ”，当我只需要一个。我试过使用Len和一个数组来通过string来删除重复项，但是对我来说也没有什么技巧。我可能只是做错了，因为我还是VBA的初学者。无论如何，这是我的代码： Private Sub btnOK_Click() Dim strText As String, strDelimiter As String strDelimiter = " " If cbxDD.Value = "DD" Or cbxMM.Value = "MM" Then MsgBox "Please enter both a month and date.", , "Invalid Entry" Exit Sub End If If CheckBox4.Value = True Then strText = strText & "DR" […]

如何处理100多个IF语句: 我正在使用MS Excel 2007中的checkbox数组创build一个清单。根据checkbox的数量，有2 ^ 7（= 128）个可能的组合，其中可以selectcheckbox。每个checkbox组合都会给出一个独特的结果。什么是最有效的方法来成功testing每个条件，并在工作表中的单元格中给出结果？示例代码： =if(and(chkbox1=true,chkbox2=true,chkbox3=false,chkbox4=false,chkbox5=true,chkbox6=false,chkbox7=true),"Unique outcome",if(and(chkbox8=true,chkbox9………….))))))))) 我有（尝试失败）的方法是使用IF语句。我试图绕过嵌套的IF限制，通过创build14个具有约9个嵌套IF的命名范围，并在电子表格中的有效嵌套IF中编译14个命名范围。不幸的是，处理器正在努力计算这个结果（即电脑是“冻结”）。减less指定范围内嵌套IF的数量（但增加电子表格中嵌套IF的数量）会对效率产生影响吗？在单元格中使用嵌套的IF而不是命名范围会更好吗？ VLOOKUP会工作吗？目前，我正在考虑使用VBA代码，因为人们曾经说过这将是处理多种条件的最有效方法。有没有人有任何build议或build议？