Tag: combobox

Excel窗体Combobox值到单元格

我有一个Excel VBA表单和combobox，有一年的12个月。 我想要做的是当我select一个月份时，它也应该在工作簿中的特定单元格中写入该月份值，因为该单元格值在整个工作簿中链接。 我的问题是，一旦加载打开工作簿，值不刷新，他们不复制从combobox到单元格。 我怎样才能做这个工作？ Private Sub Workbook_Open() With Form1 .Show vbModeless .ComboBox1.List = ThisWorkbook.Sheets("Liste").Range("D2:D13").Value 'month lists End With ThisWorkbook.Sheets("Sheet2").Range("B2").Value = Form1.ComboBox1.Value End Sub

Google表格中的Excel样式combobox

我有一个关于Google表格的问题。 我在Google文档中有一个电子表格，我从我创build的Excel电子表格中复制过来的。 我需要弄清楚如何做的是做一个combobox，当我在列表中select一个选项，它将另一个单元格的值从1更改为2或3或4等 我有这个工作在Excel中，但似乎无法弄清楚如何在表中做到这一点。 我的问题是，有没有人知道一个办法呢？ 这甚至有可能吗？

格式化以在combobox和链接的单元格输出中显示毫秒值的时间

我正在制作一个工作表，允许用户在预先logging的数据的两个时间值之间过滤数据。 该数据的时间格式下降到十分之一秒（HH：MM：SS.0），而combobox列表将显示所有这些值，当select一个时，它将被截断为第二个值。 我已经做了一些查找，并find了很多有关CURRENT时间的毫秒数的调用时间，但不是只是格式化显示。 这是我的combobox代码当前如何读取： Private Sub ComboBox21_Change() With ComboBox21 .Value = Format(.Value, "hh:mm:ss") End With End Sub 我已经尝试了几个不同的选项，包括在最后添加“.0”，但没有运气。 此外，我已经注意到，在进行select时链接单元格中的值似乎反映了select本身的内容。 我的印象是，链接的单元格会显示select的相对数量与可用select的总数量，这是我真正需要的。 有谁知道如何解决这一问题？

根据Excel VBA中的combobox显示/隐藏WBS项目

我希望能够使用combobox过滤工作表的WBS数据。 select一个工作阶段应该导致只有具有该工作阶段的产品显示In progress的状态是可见的。 这个工作阶段，以及任何早期的工作阶段，也应该是可见的。 此外，如果具有所选工作阶段的产品具有“已Finished状态，但包含正在进行的任何早期工作阶段，则也应该可见。 那些早期的工作阶段也应该是可见的。 这个产品的选定的工作阶段不可见。 如果一个产品根本没有select的工作阶段，那么也不应该看到它的任何工作阶段。 订单行只有在具有可见的产品时才可见。 select之前： select后： 这是我试图做的事情： Dim ws Worksheet Set ws = ThisWorkbook.Sheets("DataSheet") Dim lastRow As Long lastRow = ws.Cells(Rows.Count, 4).End(xlUp).row ws.Rows("2:" & lastRow).Select Selection.EntireRow.Hidden = True Dim SrchRng As Range, cel As Range Set SrchRng = ws .Range("A5", "I" & lastRow) For Each cel In SrchRng If cel.Range("C1").Text […]

我可以有一个来自两个不同的工作表范围combobox的行源？

我有一个combobox，其值可以是一个typesA或typesB的东西。 对于用户来说，input数据并不重要，但数值来自不同的表单。 我不能在不同的工作表中使用两个范围的联盟，所以我不能仅仅联合使用联盟来处理rowsource。 有没有一种方法在combobox中有两个范围，而不在同一张表中？

填充多个combobox使VBA用户窗体变慢

目前我正在制作一个带有40个combobox的用户表单，它们都有相同的列表。 我的问题是填充所有这些combobox正在使userform.show缓慢。 在这些combobox中填充的列表是一个很长的列表（46542行和列表长度可以变化）列表是3列。 我一直在与CONCATENATE搞混，但这并没有太大的改变。 另外，因为在select行号时，在combobox中select的值与combobox中的所有3列进行CONCATENATE时相同。 1，而不是写在comboxbox文本框中只有列1，它将返回所有3列，这意味着我实际上有4列，其中第一个是CONCATENATE并隐藏在下拉列表中。 所以我的问题是，有没有办法让这个过程更轻？ 所以这里是代码： Private Sub UserForm_Initialize() Set tsheet = ThisWorkbook.Sheets("Players") Dim v As Variant, i As Long v = tsheet.Range("A2:l" & Worksheets("Players").Cells(Rows.Count, 1).End(xlUp).Row).Value With Me.ComboBox1 .RowSource = "" .ColumnCount = 4 .BoundColumn = 2 .ColumnWidths = "1;50;50;50" 'Hide first column in dropdown For i = LBound(v) To UBound(v) .AddItem v(i, […]

Excel中的Combobox xlwt模块

这可能吗？ 在使用xlwt或类似模块的单元格中生成Excelcombobox？ 当我使用xlrd加载xls，然后使用xlwt复制并保存时，原始xls中的combobox将丢失。

根据ComboBox值自动复制并粘贴特定的列

我一直在把一个macros从Sheet1中读入单元格，并把它们放到Sheet2上的一个ComboBox中 该macros将所选单元格的列复制到Sheet2上的列。 到目前为止，我已经能够做到这一点，但它需要每次引用每个单元格并运行macros。 一旦ComboBox值发生变化，我正在查找列的自动更新，并只使用一个“If语句”来复制和粘贴列。 这是我的代码到目前为止： Option Explicit Sub ComboBox1_Change() Dim cmbx As ComboBox Dim myRange As Range Dim i As Integer Dim c As Range Set cmbx = Sheet2.ComboBox1 cmbx.Clear Set myRange = ActiveWorkbook.Sheets("Sheet1").Range("C4:I4") For Each c In myRange If c.Value <> "" Then cmbx.AddItem c.Value cmbx.ListIndex = 0 End If Next If (cmbx.ListIndex = […]

数据validation和单元格中的combobox – Workbook_SheetChange事件不起作用

我已经从Contextures网站调整了以下代码，它将comboboxfunction添加到包含数据validation的单元格中。 尽pipecombobox应该显示出来，但我仍然面临着两个问题。 首先，在“D4”单元格中select合并数据validation和combobox之后，需要在该工作簿的“D4”单元格中显示相同的值。 不幸的是，在添加了combobox代码后，Workbook_SheetChange代码停止工作。 我认为这是因为它现在无法在数据validation/combobox中findTarget。 第二个问题是，即使应用了Application.ScreenUpdating，下面的Worksheet_SelectionChange代码也会导致屏幕闪烁。 有什么办法摆脱它？ 我会很乐意为任何解决scheme。 编辑： 最后，我设法find解决scheme，首先发布自己的问题。 我完全忽略了Workbook_SheetChange事件，并将其replace为ComboShtHeader_KeyDown和ComboShtHeader_LostFocus事件，这两个事件都放置在工作簿工作表中。 这些macros确保单元格的值在所有工作表上按Tab，Enter或在“D4”单元格外单击。 我正在把两个代码放在下面的案例，有人面临类似的问题。 Worksheet_SelectionChange代码中屏幕闪烁的另一个问题仍然存在。 解决scheme仍然是受欢迎的。:-) Private Sub ComboShtHeader_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'change "D4" cell value on all sheets on pressing TAB or ENTER Dim ws1 As Worksheet, ws As Worksheet Set ws1 = ActiveSheet Select Case KeyCode Case 9 'Tab ActiveCell.Offset(0, […]

按字母顺序sorting和过滤使用图纸名称自动填充的combobox

此处的目标是在50张工作表的Excel工作簿的首页上有一个下拉框，该工作簿会自动填充每个工作表名称，并按字母顺序（升序）对列表进行sorting，并过滤掉某些条目。 到目前为止，我已经得到了这个（从这里工作， 如何使工作表的下拉列表 ）做自动填充： Private Sub workbook_open() Dim LSheets As Excel.Worksheet Dim OCmbBox As MSForms.ComboBox Set OCmbBox = ActiveWorkbook.Sheets(1).CmbSheet OCmbBox.Clear For Each LSheets In ActiveWorkbook.Sheets OCmbBox.AddItem LSheets.Name Next LSheets End Sub 如上所述，现在的挑战是按字母顺序对列表进行sorting，并筛选出一些条目。 特别是前页页面本身，以及任何以“BETA” 在这里的其他地方，我发现了2个可能的sorting选项，但是我打了一个关于如何将它与我已经得到的结合起来的块。 sortingCombobox VBA 至于过滤，我在看一个SELECT CASEtypes的安排，但看不到如何标记一个否定的情况。 有点像这样的东西： Private Sub workbook_open() Dim LSheets As Excel.Worksheet Dim OCmbBox As MSForms.ComboBox Set OCmbBox = ActiveWorkbook.Sheets(1).CmbSheet OCmbBox.Clear […]