VBA:如果range等于任何列表框选择
VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的宏语言。它可以用于自动化处理和操作Office文档，包括Excel、Word、PowerPoint等。
在VBA中，如果要判断一个Range（范围）是否等于任何列表框（ListBox）的选择，可以使用以下代码：
If Range("A1").Value = ListBox1.Value Then
' 执行相应的操作
MsgBox "Range等于ListBox的选择"
Else
' 执行其他操作
MsgBox "Range不等于ListBox的选择"
End If上述代码中，假设Range的范围是A1单元格，ListBox的名称是ListBox1。通过比较Range的值和ListBox的选择值，可以判断它们是否相等。
VBA是一种非常强大的工具，可以用于各种自动化任务和数据处理。它的优势包括：
- 灵活性：VBA可以与Office应用程序无缝集成，可以直接操作和控制Office文档，提供了丰富的功能和方法。
- 自动化：通过编写VBA宏，可以自动执行重复性的任务，提高工作效率。
- 数据处理：VBA可以对Excel等数据进行处理和分析，包括排序、筛选、计算等操作。
- 用户界面：VBA可以创建自定义的用户界面，包括对话框、按钮等，提供更好的用户体验。
在腾讯云的产品中，与VBA相关的产品主要是云服务器（CVM）和云数据库（CDB）。云服务器提供了强大的计算能力和灵活的配置选项，可以用于运行VBA宏。云数据库提供了可靠的数据存储和管理服务，可以存储VBA处理的数据。
腾讯云云服务器产品介绍链接：https://cloud.tencent.com/product/cvm
腾讯云云数据库产品介绍链接：https://cloud.tencent.com/product/cdb
相关·内容
1回答
我有这样的桌子。
我需要使用VBA用户表单来编辑这个。我需要从列表中选择一个序列号，其他细节应该在更改事件中显示到文本中。
因此，我编写了以下的userform。
并添加了rowSource的串行无列表框作为序列编号。我应该如何看待玩具类型，车轮和nale文本boxes.Appreciate从您的指导。
浏览 0提问于2019-01-03得票数 0
回答已采纳
因此，我在Access中有一个表单(frmBookingForm)，以及一个显示查询结果的列表框(lstMyBookings)。下面有一个按钮(cmdDeleteBooking)，它使用lstMyBookings选择作为输入运行一个delete查询。然后，该按钮运行一个宏，该宏首先检查列表框中的记录是否被选中，如果选中，则运行delete查询并请求数据，因此已删除的记录不再显示在列表框中。如果没有，则显示错误消息。但是，如果我再次单击该按钮，它将再次运行delete查询，尽管列表框中显然没有选中任何内容。
本质上，我如何“清除”列表框的选择？
我更喜欢可以用宏格式完成的解决方案，因为我对VBA
浏览 2提问于2014-02-19得票数 2
我有一个链接到VBA域的表单上的组合框，该组合框可以正确填充，但是我在尝试添加SharePoint代码以选择所有选项或取消选择所有选项时遇到了困难。
对于标准的组合框，您可以使用：
cmbBox1.value = ""
这将重置该字段。对于启用了多选的列表框也可以做同样的事情，但是这会抛出一个错误，“此控件是只读的，无法修改”，而组合框由于查找而具有多选。
我做了一些搜索，但是除了使用列表框之外，似乎没有人有真正的答案，这在这里不是一个解决方案。
是否有人使用过这些字段之一，并且知道如何使用VBA选择所有选项？
这里有一个描述这类字段的链接，但它没有讨论如何使用VBA - 与之
浏览 0提问于2013-05-17得票数 2
回答已采纳
我是VBA编程新手。
在这种情况下帮帮我..
我有一张表1所示的桌子
用户表单类似于
我需要在这个列表框中显示搜索到的数据...我尝试过的逻辑...
1)保存文本框值的变量2)第一次尝试高级过滤器，但不起作用3)然后尝试find函数，也显示错误。
我已经尝试过了，但它不显示在列表框中...这是我第一次使用列表框...谢谢高级...
浏览 0提问于2016-02-25得票数 0
1回答
我之所以来找您，是因为在处理表和列表对象时，VBA联机文献不会显示太多结果。 使用以下代码，我将列表对象项添加到用户窗体中的列表框中。我遍历list对象的行。但我需要验证行是否被隐藏，因为有时电子表格中的表上会有过滤器： With Main
.Clear
Dim i As Long
For i = 1 To tblDataMaster.ListRows.Count
If tblDataMaster.Row(i).Hidden = False Then
.AddItem
Dim j As Integer
浏览 9提问于2021-07-28得票数 0
回答已采纳
有没有人可以帮我解决excel问题。我在excel中使用数据层的sumifs和表示层的索引匹配函数创建了一个动态仪表板。我放置了一个没有VBA或宏的简单列表框窗体控件。 我的仪表板工作得很好，没有任何问题，但在最后一步，我只是想通过滚动使列表框控件浮动在工作表上。 我找到了一个vba代码，我在开发者模式下打开了vba，粘贴了代码，但删除了同样的代码。 从那时起，在选择任何列表框项目时，都会给出错误“无法运行宏Listbox4_Change”。宏可能在此工作簿中不可用，或者所有宏都被禁用。“ 我在谷歌上找到的几乎所有东西我都试过了。创建宏并删除，在vba的所有工作表中复制一行代码，并删除并启用
浏览 32提问于2020-09-30得票数 0
回答已采纳
3回答
我在Excel中有5个多选择列表框。每个列表框的选定内容都写在一个单元格中，用逗号分隔。
例如，在单元格A1中，所有选定的名称:提姆、米兰达、劳拉
这些单元格是访问查询(where子句)的条件。
我打开MS查询并向查询中添加以下where子句并定义参数：
Where (Instr(?, [name])>0 And Instr(?, [number])>0 And Instr(?, [city])>0 And Instr(?, [phone])>0 And Instr(?, [email])>0)
但是，如果其中一个参数字段是空的，则运行得很好--(例如，用户没有
浏览 5提问于2013-12-03得票数 2
1回答
在VBA中，我使用稳步增长的文本文件的文本反复更新列表框的内容。有没有办法让用户在更新列表框的循环运行时保持控制(滚动列表框，按下按钮)？application.wait的一个替代方案也可以工作；就像在中一样，更新->等待x秒(此时用户仍然可以再次重复-> ->更新。
浏览 2提问于2012-01-11得票数 0
回答已采纳
1回答
我对VBA还是很陌生的，但是工作表上有两个activex列表框。在一个列表框中，我有销售人员名称(称为lstNames)，而另一个列表框有位置(lstSite)。我正在努力实现以下目标：
从lstNames中选择名称
从lstNames中选择生成与名称相关的几个位置的列表的lstSite。
例如，如果我从lstNames列表框中选择Bob，那么lstSites列表框将填充Bob的所有站点，如NY、CO、CA、PA。如果我从lstNames中选择Susan，那么lstSites将清除Bob，并添加Susan的站点，这些站点是TX、WA、OR等。
lstNames和lstSite都
浏览 12提问于2016-08-26得票数 0
2回答
我有一个带有值的列表框。现在我需要对列表框进行排序，而不是按字母顺序排序。
您可以看到列表框中的值来自一个表。
------------------------
| name | order | size |
========================
value1 4
value2 3
value3 1
value4 2
我希望我说得很清楚了。因此列表框中有"value1，value2，value3，value4“项。我希望它按照表中声明的顺序进行排序。列表框与表没有任何关系，也没有“数据绑定”到它。这些值来自其他地方。
使用的技术: VBA、Acc
浏览 3提问于2010-07-05得票数 0
回答已采纳
2回答
假设我在excel中有一个命名范围。它有A列中菜谱的链接，相邻的列有关于菜谱的更多信息。
例如，B栏有“配料”，C栏有“厨房用具所需”，D栏有“菜”。
在B列的所有单元格中，还有多个条目，按随机顺序，用逗号隔开。例如，苹果派的成分是‘苹果、黄油、鸡蛋、糖’。厨房用具可以“烤箱，馅饼容器，搅拌机”
我制作了多个选择列表框，其中列出了所有可能的成分，列出了所有可能的食具，等等。我想使用列表框过滤出合适的食谱。
现在，自动筛选器只能对一个特定列同时过滤最多两个单词。我希望能够在同一时间查找任何数量的配料。所有的食谱有任何选择的成分必须显示，即使我选择10个成分。
还有高级过滤器，但是，因为我有多个列
浏览 3提问于2014-08-25得票数 1
回答已采纳
1回答
我正在尝试创建一个流畅的文档，它将根据下拉列表和复选框中的选择填充文本。
例如，如果我选中这个框，那么一段文字将被插入到文档中。
我在网上做了很多搜索，最近的是使用
不幸的是，我不知道VBA (或者任何其他编程语言)。我正在寻找一种解决方案，它允许我粘贴到VBA解决方案中，如上面所提供的：
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long, StrDetails As String
With ContentContr
浏览 9提问于2022-06-28得票数 0
我使用VBA表单在两个列表框中显示一组范围值。在listbox1报头中，然后通过使用以下代码在listbox2中显示相关数据：
'header
Set rng = sht.Range("A1:I1")
With ListBox1
.ColumnCount = 9
.ColumnWidths = "50;40;30;120;160;120;50;30;30"
.RowSource = rng.Address
End With
'dynamic data
Set rng1 = sht
浏览 0提问于2018-03-22得票数 1
我有一个绑定到表(tblTransferDetail)的列表框。主键是'TransNum‘(类型为INT)，列表框作为第一列绑定到它。
列表框的双击事件(lstScannedItems)执行以下代码：
CurrentDb.Execute "DELETE FROM tblTransferDetail WHERE TransNum = " & Me.lstScannedItems, dbSeeChanges
然而，当我双击列表框中的一条记录时，我一直收到'VBA运行时错误3075‘，并且上面的行高亮显示。
我哪里错了？
浏览 19提问于2018-08-06得票数 0
回答已采纳
1回答
在一个单独的Excel 2007 VBA问题上，如何使用"Developer“> "Form Control”下的列表框？
我想显示来自另一个工作表的一些数据(比如wsData)，但是我想显示特定于用户的数据(比如wsInterface，单元格A1)，而不是使用“格式控件”>“控件”>“输入范围”。
因此，我将弹出一个表单，提示用户输入工作表wsInterface单元格A1中的名称，并希望在列表框中显示与用户相关的数据。谢谢
wsData：
name | date | remarks
Mr A 22/2/11 blah blah blah
浏览 5提问于2011-03-01得票数 0
1回答
我希望有一个VBA宏循环遍历一系列单元格，并使用找到的每个唯一值填充用户窗体列表框。值的范围在"L“列中。我已经弄明白了这一点，但是我在编码时遇到的问题是，我还需要它来查看"D“列中的值，并且如果它在"D”列中找到值，则不将"L“列表框中的值添加到列表框中。 我已经包含了一个工作表的屏幕截图，所需的输出将是。任何帮助都将不胜感激！ Private Sub UserForm_Initialize()
Dim Dict As Object
Dim Key As Variant
Dim LastRow As Long
Dim Relay As Rang
浏览 9提问于2020-12-01得票数 0
回答已采纳
2回答
我正在创建一些vba代码来创建图表。我有以下代码：
ActiveChart.SetSourceData Source:=Range( (ActiveCell.Offset(-4, 0), ActiveCell.Offset(-7, 0)), (ActiveCell.Offset(-4, 2), ActiveCell.Offset(-7, 2)))
我有一个3列，8排的细胞区。我将选择单元格A1，然后运行vba代码。我希望vba代码选择单元格A4:A8、和 C4:C8 (而不是B4:B8)，然后创建一个图表。
之所以需要是相对的，是因为当我多次运行vba代码时，我会将运行vba代码的起始单元移动
浏览 2提问于2014-10-01得票数 0
1回答
我有两个列表框。如果其中一个列表框被选中，当未选中的列表框被选中时，我希望弹出一个消息框。
例如：
如果为e2>0和e3>0，则显示消息框"alsdkjfaslj“end if
e2和e3是列表框中的单元格链接。
我想不出一个好的方法来解决这个问题，而且我还是个vba新手。请帮帮这个新手。
谢谢
浏览 1提问于2014-04-18得票数 0
我目前正在为一个包含表中列出的大量数据的文件编写VBA代码，其中一些数据是重复的。
我想在用户表单中填充一个列表框，这样我就只能获得唯一的数据值。
下面是我为此编写的代码：
'Year listbox population
With ThisWorkbook.Worksheets("Data")
LastNonEmptyRow = .Range("C1").End(xlDown).Row
For i = 2 To LastNonEmptyRow
For j = 0 To BudgetEdit.SelectedYear.ListCount
浏览 7提问于2015-05-05得票数 0
我是一个初学者，使用vba尝试做简单的程序，它有一个列表框，一旦用户单击该项目从列表框，该项目的其他信息应出现在表单中。
Private Sub ListBox1_Click()
Dim ename As String
Dim star As Integer
ename = ListBox1.Value
Lblname.Caption = " Employee Name: " & ename
star = Application.Worksheet
浏览 1提问于2018-09-10得票数 0
回答已采纳
3回答
我是一个初学者程序员，正在为我的高级顶峰项目制作VBA宏。我正在尝试用"A column“中的数据填充列表框。它必须是动态的，因为用户将编辑数据。我知道对于一个经验丰富的程序员来说这很简单，但我在语法上有问题。任何帮助都是非常感谢的！
Private Sub UserForm_Initialize()
Dim LastRowControllers, LastRowBrakes As Integer
Dim Brakes, Controllers As Range
With Worksheets("ControllersInventory")
LastRowContr
浏览 2提问于2015-03-21得票数 0
2回答
I有一本工作簿，其中包含了标准普尔500指数中每个行业的不同工作表，即科技、能源、电子交易。我创建了一个用户表单，其中包含两个列表框，允许用户首先选择一个扇区，然后是该扇区特有的子扇区。列表框运行得很好，但是现在我想创建一个命令按钮，它接受用户选择的任何子扇区，并使包含该子扇区的活动表上的第一行数据成为活动单元格。
Private Sub GoToSectorButton_Click()
'Declare variables
Dim SubIndustry As String
Dim IntRow As Integer
'Set list box value equal to
浏览 8提问于2015-12-02得票数 0
回答已采纳
1回答
我有个列表箱的问题。我试图将多列列表框的内容作为列表框每一行的数组复制到集合中。我意识到我可以循环遍历列表框的每一行和每列，但是我试图找到一种方法来返回列表框的每一行并将其直接分配给数组。就像这样：
For each item in ListBox
tempArrayA = item
tempCollection.add item
Next item
但是，当我这样做时，它会给出每一行的每个单独字段，而不是像我希望的那样一次性地给出更完整的行。我一直在谷歌，我会继续搜索，但我只是觉得这样做很好，通过迭代列表框中的每一项，而不是选择每一行，然后逐项遍历该行的每一列，因为我有其他代
浏览 2提问于2013-12-26得票数 1
回答已采纳
嗨，我在excel工作簿中，在同一个工作表中，我写了VBA从列表框中删除当前选定的项，但是函数SelectedIndex说它不是列表框的方法。我不知道为什么会发生这种情况，因为我看到很多例子都用到了这一点。任何帮助都是很棒的！
代码：
ListBox1.Items.RemoveAt (ListBox1.SelectedIndex)
浏览 1提问于2018-08-14得票数 0
回答已采纳
1回答
范围删除方法失败
、、
我在excel vba中有一个‘数据库’，但是当我尝试从源代码中删除一行时，按ID号选择并按delete键，它会卡在Rows(Y).Delete Shift:=xlUp上，我不知道为什么，它以前工作过，但不知怎么我弄坏了什么？
所有数据都显示在列表框中。错误消息是Run-Time error '1004': Delete method of Range failed
Dim X As Long
Dim Y As Long
X = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For Y = 2 T
浏览 1提问于2020-10-23得票数 0
回答已采纳
1回答
我的问题是能否使用vba选择列表框中的行。我的程序遍历一个表，找到列表框的值，即一个整数/行号，并在变量中对列表框名称进行同样的设置。
因此列表框名称=变量LstName
strvalue = ListBox整数形式。
如果我使用实际名称和简化值，它可以很好地工作，但是组合me.LstName.selected(strValue) = True会产生错误
浏览 0提问于2017-10-20得票数 3
我有一张这样的桌子
现在我想在用户表单中显示这个表。如何在用户表单中显示它。我正在考虑选择整个表范围并将其显示为标签，因为我希望该表不可编辑。该怎么做呢？我想写一段VBA代码。请帮我弄一下这个。
我也尝试了另一种方法，比如在列表框中显示它，但我无法获得正确的输出。
我添加到用户表单的vba脚本是：
Private Sub UserForm_Initialize()
ListBox1.List = Sheets("Overview").Range("C1:H3").CurrentRegion.Value
End Sub
当我使用上面的代码时，我得到的
浏览 2提问于2015-01-28得票数 6
回答已采纳
2回答
我在Access中有一个列表框，该列表框的多重选择值设置为true。我希望能够通过VBA代码设置选定的值。我该怎么做呢？
浏览 2提问于2013-03-27得票数 1
回答已采纳
我一直在编写这段代码，其中我有一个由列表框和组合框组成的用户表单。到目前为止，我已经填充了列表框，但由于某种原因，我在comboboxes (combobox1和combobox2)上遇到了问题。
我已经成功地填充了combobox1的下拉列表，并且从该列表中，我希望通过已通过“名称管理器”调用的命名范围“筛选”。命名范围称为Range_Books。
Range_Books在工作表BOOKS或VBA代码Sheet7中引用table48中的两列和可变行数。下面的代码是我最近一次尝试完成我解释过的内容的迭代，但是它仍然失败了。
我最初试图在不使用Worksheets("Sheet7"
浏览 6提问于2015-10-19得票数 0
回答已采纳
我想编写一个非常简单的查询，并使用VBA代码将其绑定到一个列表框中，但是在运行这段代码时会发生错误：
Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM funk", dbOpenTable)
Me.List9.Recordset = rs
End Sub
数据库的名称是正确的。你能告诉我如何解决这个问题吗？
编辑
我已经把代码更改为
Dim db As DAO
浏览 0提问于2012-10-01得票数 1
回答已采纳
1回答
我在按钮上有下面的代码，该按钮在Userform上的Listbox中获取选定的范围，并将值粘贴到Sheets("VBA_Data").Range("AY1")中。
这只适用于一个选择，如果在列表框中选择多个选择，它只会向单元格AY1添加第一个值。
我想修改代码，以便它将在列表框中添加所有选定的值，从AY1开始，每个单元格添加一个AY列。Listbox的范围是可变的，因此这可以用于任意数量的选择。
Private Sub CommandButtonRemoveSelectedProjects_Click()
Dim selectioncount As Long
浏览 2提问于2017-10-05得票数 0
回答已采纳
1回答
使用VBA，我创建了一个具有各种Textboxes、Comboboxes和Listboxes的Userform。我目前将其设置为一旦您单击Submit按钮(Commandbutton1)，不同的框内容将填充我的工作表上选定的单元格。
Private Sub CommandButton1_Click()
Sheets("Sheet2").Range("D4") = TextBox1.Text
Sheet2.Cells(5, 4) = ComboBox2.Text
Sheet2.Cells(6, 4) = ComboBox1.Text
浏览 2提问于2017-08-18得票数 1
回答已采纳
我已经用Excel编写了VBA代码，但现在我必须修改Access报告中的列表框，而我不知道代码的位置。抱歉，太愚蠢了。有没有像On_Report_Run之类的活动？在某个地方一定有一个Reports集合，但我在对象资源管理器中看不到任何具有与report类似的名称的对象。代码是否放在模块中？任何帮助都将不胜感激。
浏览 0提问于2019-01-24得票数 0
我正在尝试使用VBA填充MsAccess列表框，但有些字段太长，不能只显示在一行中，我需要将信息拆分成多行。但是..。在谷歌了很多次之后，我不知道该怎么做。似乎列表框不支持多行。有人知道怎么做吗？
我正在使用Access 2010
浏览 4提问于2015-02-21得票数 0
1回答
我正在运行VBA来使用最后一行填充所有单元格。但是我的VBA从B3到最后一行进行填充，然后在最后一行下面添加一行，并将其填入最后一行。
代码如下所示：
Sub RUNFILL()
With Worksheets("Sheet3").Range("B3")
Set Target = .Range(.Cells(1, Columns.Count).End(xlToLeft), Cells(Rows.Count, "A").End(xlUp))
Target.FormulaLocal = "=INDEKS(Sheet1!$N:$
浏览 4提问于2017-09-06得票数 0
1回答
我在ms-access VBA表单中创建了一个具有以下属性的列表框： OverlapFlags =85
IMESentenceMode =3
Left =56
Top =282
Width =8160
Height =963
TabIndex =5
Name ="xOnlineTypen"
ControlSource ="[OAT_NAME]"
RowSourceType ="Table/Query"
RowSource ="SELECT [OAT_NAME], [LFD] from [TABLE]"
OnDblClick =&
浏览 30提问于2019-05-16得票数 0
回答已采纳
我做的一个VBA程序有问题。当我打开工作簿并进行不同的输入时，所有操作都是完美的，但是当我关闭工作簿时，我会得到一个运行时错误'1004'，其中包含以下消息：
应用程序定义或对象定义错误
这个想法是，列表框的改变会导致单元格D6和E6的改变。我有一个宏，每次两个单元格被更改时都需要运行，它做得很好，但是如果没有运行时错误，我就无法关闭工作表。
编辑:通过包含一个错误处理程序，我成功地制定了一个解决方案：
Private Sub ListBox1_Change()
On Error GoTo ErrorHandler
Call Sheet1.Worksheet
浏览 3提问于2020-11-23得票数 0
我有一个excel文件，我从第2行开始动态加载列标题，直到命中null，并将所有这些值放入一个转置的列表框中。这部分的工作正如我所期望的那样。
我的问题是，如何使用列表框项目来选择命名标题所在的整个列？
因此，在A2 B2 C2中，我将标题分别称为widget1、2、3加载到列表框中。当用户表单加载时，这些内容在列表框中按顺序加载。在列表框中，我希望能够单击Widget 2和3，并选中这些整列。我不希望它硬编码，因为我希望它是一个选择，因为我可以根据需要选择小部件1和3或任何随机选择。
我可以有多达50个widgets....so，这些值都将在启动时加载到列表框中，我需要能够选择这些值中的任何
浏览 0提问于2019-08-10得票数 0
我有一个宏，它将数据从一个工作表复制并将值粘贴到另一个工作表。一切似乎都很好，但我收到了一个错误：
运行时错误1004:应用程序定义的或对象定义的错误
为了方便起见，我简化了代码，因为整个宏都是一组类似的代码：
Sub CopyPaste()
Sheets("Primary").Select
Range("A1").Select
Selection.Copy
Sheets("Result").Range("A2").End(xlToRight).Offset(, 1).PasteSpecial Paste:
浏览 0提问于2018-05-15得票数 0
回答已采纳
我有十个不同的列表框的表单，他们都有多选属性，我正在寻找一个VBA代码来计算表单上所有列表框的选定项目。
因为我在net上的搜索只适用于特定的命名列表框，这使得代码变得很长。
所以有一种方法可以使代码变得简短，并给我所有列表框中所有选定项的总数。
非常感谢你提前帮助我
浏览 0提问于2017-09-22得票数 1
2回答
嘿伙计们都是新来的。我只想问一下如何将Access数据库链接到列表框？我的数据库包括客户id，客户地址，客户联系。我希望列表框与数据库链接，所以当我启动应用程序时，数据库中的客户名称将显示在列表框中。我还希望能够单击列表框中的名称，并将其余客户信息显示在文本框中，如地址和联系人号码。我正在使用visual 2010在C#中开发这个应用程序。任何帮助都将不胜感激。
浏览 4提问于2013-09-25得票数 0
1回答
使用命名范围填充列表框
、、、
我正在做我的第一个VBA项目，需要一些绝对的新手指导。
我有一个提交表格，工作人员将使用提交他们的日常KPI。
我在一个名为"lstName“的用户窗体中有一个列表框控件，员工在提交表单之前将使用它来选择自己的名称。
员工姓名存储在名为"Sheet11“的"EmpName”上的命名范围中。
我想要指向列表框，从Sheet11上的“Sheet11”范围中绘制名称列表；但是不知道如何在VBA中这样做。我本来打算使用RowSource将列表框指向数据，但我不知道该如何做。
非常简单的问题，我知道，它可能已经在网站上以某种方式得到了回答，但由于我对VBA完全
浏览 6提问于2014-05-08得票数 3
回答已采纳
日安，
我有问题的设置范围，这是相当令人沮丧的使用范围，从非活动的床单。
问题是：
我有一张叫做“仪表板”的床单。在这个工作表中，我有一个列表框，当选中它时，它将在另一个称为“预算”的表上筛选值(基于listbox.column值)。但是，我得到了错误1004 ( range类的自动筛选方法失败)，在关闭错误后，它会过滤范围。因此，它似乎在某种程度上起作用，但它给我带来了错误。
下面的代码是我用来过滤范围的代码。它被插入到“仪表板”工作表对象中。
Private Sub DashboardBudgetlst_Change()
Dim rng As Range
Dim i As Integer
浏览 0提问于2018-04-09得票数 3
回答已采纳
我在使用以下代码时遇到了问题： Sub UseDictionary()
' Get the range of values
Dim rg As Range
Set rg = Range("A2:B7")
' Create the dictionary
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
' Fill the dictionary
Dim cell As R
浏览 25提问于2020-07-05得票数 0
回答已采纳
我设计了一个带有多个选项的列表框的useform。
列表框中填充了位置。例如:德国、美国等。
如果复选框“德国”为真，则应在我的表格“结果”栏"L“中过滤德国的结果。如果复选框"GErmany和USA被选中“，那么我希望对我工作表中两个位置的结果进行过滤。
在互联网上浏览时，我发现了这样的代码:这适用于复选框，我应该如何用多个选项来修改列表框呢？
Private Sub Filter()
Dim Ws As Worksheet
Dim strCriteria() As String
Dim arrIdx As Integer
Dim cBox As Control
arr
浏览 6提问于2017-07-21得票数 2
回答已采纳
1回答
我正在尝试从数据库中读取数据，以便在列表框中显示。
我有文本框和组合框: txtIndex，txtEventID，cmbServer，cmbCompany，txtMessage.
当我点击“显示列表”按钮时，数据表中的所有数据都将在列表框中读取和填充。单击列表框行项后，所有相关信息将显示在相应的textboxs和comboboxs 中，本例为。
我使用FindAll函数来实现搜索引擎，搜索结果似乎是可以的。
问题是：当我在列表框中单击搜索结果时，textboxs和comboboxs中显示的数据是不正确的。
下面列出索引，而不是我想要的。
这是我用来显示数据的代码(由UserForm1_Clic
浏览 2提问于2016-06-02得票数 0
回答已采纳
我有三个表: Applications、Regions和ApplicationRegionJoin。通过只存储ApplicationID和RegionID的连接表，应用程序可以有多个区域。我有一个查询，可以将所有应用程序拉到一个报表上，还有一个窗体，用户可以在该窗体上输入过滤器参数，以便通过命令按钮运行报表。我可以成功地使用多选列表框根据应用程序上的值进行过滤，但是我不知道如何使用列表框来根据区域进行过滤。这个是可能的吗？
编辑:这是我当前的VBA代码，用于在使用两个单独的多选列表框的应用程序中根据两个单独的列进行筛选。我是VBA的新手，所以请原谅我没有使用DRYness或其他缺乏最佳实践的原
浏览 1提问于2017-01-05得票数 0
回答已采纳
1回答
我有一个包含日期的数据验证列表。更改日期时，它会影响工作表其余部分显示的数据。
我想创建两个命令按钮，
“下一步”-单击将移动到列表中的下一个日期，当它到达列表的末尾时，将返回到列表的开头。
“以前”-当单击将移动到列表中的前一个日期时，当它到达列表的开头时，它将移到列表的末尾。
这个是可能的吗？
我确实看过列表框和组合框，但对编码非常困惑！任何帮助都会很好！
浏览 0提问于2013-06-03得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
