将数组从模块传递到UserForm列表框
，可以通过以下步骤实现：
- 在模块中定义一个数组，并将需要传递的数据存储在数组中。例如，假设我们有一个名为"myArray"的数组，其中存储了一些字符串数据。
- 在UserForm中添加一个列表框控件，用于显示传递过来的数组数据。可以通过拖拽方式添加列表框控件，并设置其属性，如名称为"ListBox1"。
- 在UserForm的代码模块中，声明一个公共变量，用于在模块和UserForm之间传递数组数据。例如，可以在UserForm代码模块的顶部添加以下代码：
Public myDataArray() As String- 在模块中，将定义的数组赋值给UserForm的公共变量。可以使用以下代码实现：
UserForm1.myDataArray = myArray- 在UserForm的"Initialize"事件中，将传递过来的数组数据加载到列表框中。可以使用以下代码实现：
Private Sub UserForm_Initialize()
Dim i As Integer
For i = LBound(myDataArray) To UBound(myDataArray)
ListBox1.AddItem myDataArray(i)
Next i
End Sub通过以上步骤，就可以将数组从模块传递到UserForm列表框中进行显示。在UserForm的初始化事件中，将传递过来的数组数据逐个添加到列表框中，实现了数据的传递和显示。
注意：以上代码示例为VBA语言，适用于在Microsoft Office应用程序中开发的宏或自定义功能。如果使用其他编程语言或开发环境，请根据具体情况进行相应的调整和实现。
相关·内容
我希望能够从运行userform的子程序中更改数组值。我该怎么做呢？
下面是我所拥有的一个例子：
A = [25, 50, 75, 100]
UserForm1.Show
UserForm1包含一个具有选项1、2或3的列表框。
通过选择"1“、"2”、"3“或它们的多个组合，我想相应地更改A的值。
If "1" is selected Then
A(0) = 10
If "2" is selected Then
A(1) = 0
If "3" is selected Then
A(2) = 1000
我怎样才能让这一切发生
浏览 1提问于2017-07-05得票数 0
回答已采纳
我有一个带有列表框的用户表单，用于显示工作表中的数据。我想让数据按当前日期和时间显示在列表框中。因此，当用户输入新数据时，他/她会看到最新的数据行。这是为了帮助用户，使他们不输入重复的信息。 我希望这可以通过编程来完成，因为在不久的将来，这个表单将链接到数据库，而不是工作表。 下面是填充我的列表框的代码： Private Sub UserForm_Initialize() 'Sets variables when the userform initializes
Call MakeFormResizeable(Me)
Me.tbDate.Value = F
浏览 61提问于2020-05-01得票数 1
回答已采纳
1回答
我有一个由范围填充的列表框，其中启用了multiselect (1)。然后，选定的项目(最多10个)填充具有相邻组合框和文本框的Label.Captions，这些组合框和文本框需要用户提供进一步的信息。我正在寻找计算从列表框中选择的数量(介于1到10之间)的代码，然后隐藏我的相对组合框和文本框(同样，从1到10)。因此，如果在列表框中选择了4个，则只有组合/文本框1到4是可见的(组合/文本框5到10是隐藏的)。
我有一些我认为需要的代码元素，但无法完成整个过程。
For lstbxCount = 1 To 10
If lstbxCount = 1 Then
UserForm2.Co
浏览 1提问于2018-06-19得票数 1
2回答
我正在尝试将Module中的预定义数组传递给Userform列表框。 我已经将数组作为UserForm中的公共变量进行了赋值，并尝试从模块中对其赋值。 以下是该模块的代码 Sub TestList()
Dim ArrTest As Variant
'Code to populate the array would go here in real application
ArrTest = Array("A", "B", "C")
UserForm1.ListArray = ArrTest
UserForm1.Show
End S
浏览 95提问于2019-09-27得票数 0
我试图遍历Userform上的10个列表框。
但是当我在下面运行代码时，我的错误类型不匹配。
列表框是从lstCecha01到lstCecha10的。
守则是：
Dim arrtabelaCechGrupy() As MSForms.ListBox
arrtabelaCechGrupy = Array(Me.lstCecha01, Me.lstCecha02, Me.lstCecha03, Me.lstCecha04, Me.lstCecha05, Me.lstCecha06, _
Me.lstCecha07, Me.lstCecha08,
浏览 0提问于2018-03-11得票数 0
回答已采纳
我有一个用户表单设计了3个列表框，这是多个选项。
另外，我有三个命令按钮，它们是"Filter“、"Unfilter”和"Exit“。
通过下面的代码，我可以通过工作表中的按钮访问userform。
sub dev()
userform1.show
end sub
在userform中，我选择复选框，然后单击"Filter“。有了这个，我可以在我的工作表“数据”中看到过滤的结果。
问题是，当我单击工作表“数据”中的按钮时，列表框具有前面的选择。我想清除列表框中先前的选择。目前，我有一个明确的情况，在我的反过滤按钮。
我想把它放在主命令按钮上。
我试过这样的方法
浏览 1提问于2017-08-21得票数 0
回答已采纳
我在两个用户表单之间传输2D数组时遇到了问题。
当我单击CommandButton in userform1时，它将打开userform2。然后，我单击CommandButton在userform2中创建一个2D数组。在此之后，我终止了userform2，并希望将我的2D数组转换为userform1。
我最好的尝试是在userform1单击事件中调用一个函数。我将这个函数放入userform2模块中。但是我的userform2函数没有从userform2中的其他子类中看到2D数组，Private Sub userform_terminate()可以看到这个2D数组，它是用Private Sub
浏览 0提问于2019-01-22得票数 2
回答已采纳
我目前有一个包含多页和一个列表框的UserForm1。列表框实际上显示了excel工作表本身的一系列数据。
我已经将Userform2设置为弹出窗口，以填充添加到excel工作表中的信息，然后在Userform1的列表框中替换这些信息。
本质上，用户导航到列表框，点击命令按钮，弹出窗口出现，用户完成信息，点击"ok“，然后显示在列表框中。
我遇到的问题是，当用户点击"ok“时，我无法刷新列表框。
我在"ok“命令按钮中的代码是：
Private Sub CommandButton1_Click()
Dim LastRow As Long, ws As Wo
浏览 0提问于2016-06-26得票数 0
如果我将一个完整的数组影响到一个ListBox，例如使用ListBox1.List = [{1;2;3;4}]，列表框的.List项保持正确的类型(这里是数字)，但是如果我使用ListBox1.AddItem 5或Listbox1.List(5) = 6来设置单个项目，类型将自动更改为String。
示例代码：
Private Sub UserForm_Initialize()
ListBox1.List = [{1;2;3;4}]
ListBox1.AddItem 5
ListBox1.AddItem
ListBox1.List(5) = 6
End Sub
浏览 4提问于2018-10-22得票数 0
回答已采纳
我正在使用Excel 2013。我有一个"BeforeDoubleClick“事件，它显示带有一些列表框的userform。用户双击任何单元格，并且userform对列表框进行分类和填充，但是当启动userform时，listbox显示了突出显示的几个项(尽管我还没有选择任何内容，但已经选中)：
这是初始化userform时加载列表框的代码：
For Each cel In rng.Cells
With cel
If .Value <> "" Then
lstPEOPLE.AddItem .Value
End If
End
浏览 0提问于2018-12-21得票数 0
回答已采纳
1回答
我已经创建了一个带有"OK“命令的多选择列表框的userform。当用户从列表框中选择并单击OK命令时，我希望创建一个数组(基于该用户在列表框中的选择)，然后当我打开用户指定的多个文件时，我可以循环处理数组中的每个项。
例如，如果我的用户在我的列表框中选择"Client 1“和"Client 3”，然后选择"OK“命令，我希望从这些值中创建一个数组，然后在”查找并替换“Sub中调用数组中的每个值，例如，将"Client 1”替换为"Client 1“(有色红色)，将"Client 3”替换为"Client 3“(红色)。(红色是为
浏览 6提问于2016-05-25得票数 0
好了，这是我在这里的第一篇文章，所以要温柔点。
我有一个Userform和一个包含x个值的列表框。我有一个单独的模块，它调用这个Userform，然后根据列表框中选择的值执行一些过程。我有以下几点：
Dim lb as ListBox
lb = Userform1.Listbox1
For x = 0 to lb.ListCount - 1 Then
'Do the stuff I need it to
Next x
我得到的问题是lb返回一个"Nothing“。
我确信这是很简单的事情，但是我搞不懂。感谢你的帮助。
浏览 3提问于2016-01-26得票数 1
1回答
使用spring 3.0
当我点击提交信息(post)时，这个方法在这里被调用
@RequestMapping(method = RequestMethod.POST)
public String userResult(@ModelAttribute UserForm userForm, Model model) {
List<UserInfo> listUserInfo = userService.searchUserInfo(userForm.getsearchCriteria());
userForm.setListUserInfo(listUserInfo
浏览 2提问于2011-03-18得票数 0
回答已采纳
1回答
这样做的目的是创建一个变量，以保存以前使用宏时对其所做的更改。我有一个userform，它从范围中提取值，并在列表框中填充唯一的值。然后，我希望能够将选定的值添加到我的字典/集合中，并保存更改。一旦进行了所有必要的更改，宏应该使用字典变量作为自动筛选器的条件。
我的问题是两重，我应该用哪一门课来完成这个任务？如何使用此变量自动筛选我的工作表？Userform代码如下：
第一段代码用于“添加”命令按钮。它应该取列表框中选定的值，并将它们添加到名为"Market“的字典中。之后的代码从最近打开的excel工作簿中提取值，在列表框中显示唯一的值。Listbox2保存宏过去使用的所有以前的值。
浏览 1提问于2014-06-20得票数 0
回答已采纳
2回答
我已经挣扎了一段时间了，我把一个列表箱传给了一艘潜艇。经过三天的搜查..。我需要帮助。我的最终目标是在一个列表框中选择项目，然后单击按钮，让它移动到另一个列表框中。到目前为止我已经尝试过了。
在UserForm中：
Private Sub CommandButton7_Click()
Dim lbINDX As Integer
Dim lbSource As String, lbDest As String
lbINDX = ListBox3.ListIndex
lbSource = Me.ListBox3.Name
lbDest = Me.ListBox1.Name
Call move(l
浏览 3提问于2016-01-13得票数 1
回答已采纳
我想要创建一个宏，我可以通过一个UserForm列表框与同事共享这个宏，它包含了我们所有重要工作簿的简单概述。
我刚开始使用VBA Excel，很难理解程序是如何工作的。我在这个问题上找了很多，但找不到我能用的东西。我怀疑解决办法是很直接的。
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "WB1"
ListBox1.AddItem "WB2"
ListBox1.AddItem "WB3"
End Sub
本质上
浏览 3提问于2019-09-04得票数 0
回答已采纳
希望你能在这里帮我，因为我真的看不到错误。
我正在尝试创建一个带有列表框的Userform，其中用户可以从数组中选择值。数组的代码如下：
Dim arrayData As Range
Dim sh As Worksheet
Dim Row_Count As Integer
Dim i As Integer
Dim lastRow2 As Long
Set sh = ThisWorkbook.Sheets("Import")
lastRow2 = sh.Columns(45).Find("*", , , , xlByRows, xlPrevious).Row
浏览 4提问于2020-10-12得票数 2
回答已采纳
我有一个userForm (mappingGuide)，它允许用户从更友好的名称列表中选择一个smartyTag。
我有第二个用户表单(conditionalBuilder)，我想在双击文本字段时将其称为userForm，这样用户就可以查找要应用的smartyTag (万一他们不知道)。
因此，逻辑是：
开放conditionalBuilder
双击“字段”文本框
mappingGuide打开
从列表框中选择一个智能标签
将智能标记值填充到conditionalBuilder中的字段文本框中
卸载mappingGuide
我认为完成该要求的问题是，当我加载表单本
浏览 1提问于2018-02-05得票数 4
1回答
我使用的是一个包含12个列表框(编号为2-13)的userform。每个列表框可以包含用户从主listbox1分配的0-8项。当按下按钮时，我运行以下代码将每个列表框(12个框)的内容输出到工作表“托盘”中。
然后将每个列表框从B-M列输出到每个托盘的相应列中。Listbox2填充每个托盘的第1列，以此类推。最多可填满4个托盘。代码检查每个托盘的第一个井，如果它包含一个值，它假设托盘是满的&开始填充下一个托盘。
问题:如果第一个托盘包含空白列(列表框)，而第二个托盘包含相同列表框中的值，代码将用第二个托盘中应该包含的值填充第一个托盘的空白列。请参阅下面的图片和下面更新的代码：
列表框2
浏览 2提问于2015-12-31得票数 0
回答已采纳
2回答
未显示的字符串列表
、、、
我使用了Spring3，我试图在一个jsp中显示一个对象的值。
public class UserForm implements Serializable {
private List<String> values;
private String date;
...
}
这是我的控制器：
@Controller
@RequestMapping("/user.htm")
public class UserController {
@Autowired
private IUserService userService;
浏览 1提问于2011-03-16得票数 0
回答已采纳
我是VBA的新手。我有一个我正在编写的程序，其中用户可以选择改变他们的输入从一个二维数组在另一个用户表单。
第一个用户表单UserForm1允许用户从文本字段输入信息，并在按下保存命令按钮时将其保存到相应的数组行i。
当用户按下OK命令按钮时，系统会询问用户是否要添加另一组数据。如果他们说否，系统会询问他们是否要更改数据。如果他们说是，则会打开另一个用户表单UserForm2。
UserForm1的代码类似于下面的代码：
Public MyArray as Variant, i as Integer
Sub Userform_Initialize()
ReDi
浏览 11提问于2016-07-27得票数 0
我想使用ComboBox，但禁用键入它的选项。
我正在尝试使用命令按钮从列表框填充文本框。我无法让按钮转移列表框中的内容，除非列表框中的项被选中并以蓝色突出显示。如果我使用组合框，它不需要突出显示，但我不希望该选项输入到框中，只需从列表中选择。
这是我正在测试的整个代码。
Private Sub CommandButton1_Click()
TextBox1 = Me.ComboBox1.Value
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Initialize()
'Creates a
浏览 8提问于2019-10-24得票数 0
回答已采纳
1回答
我有一个UserForm列表框，在这里我希望从excel工作表中填充一个筛选的范围(仅可见的单元格)。问题出现在以下句子：userForm.listBox.RowSource = dataRng.Address，其中dataRng是可见单元格(Set dataRng = sht.Range(Cells(startRow, 1), Cells(lastRow, 4)).SpecialCells(xlCellTypeVisible))的范围。
我也尝试用动态数组(MyArray(i, j) = dataRng.Cells(i, j).Value)获得可见范围，然后用它填充列表框，但是没有成功(头问
浏览 0提问于2019-08-19得票数 0
因此，我目前正在Excel中的Userforms中工作，以输入和编辑我部门员工的数据库。
就像这样：
使用Userform输入新数据很好。您只需将活动工作表中的单元格值设置为与在Userform中选择的值相对应。
当我试图编辑旧数据时，我的问题出现了。我所做的基本上是一个基于ID#的简单搜索系统。当我单击Edit按钮时，它会将所有相关信息存储到存储在一个名为“Var”的模块中的公共变量中。所有变量都存储为字符串。
Dim rowsearach as Long, Name As String, BranchRegion As String, BranchProvince As String, B
浏览 0提问于2018-11-09得票数 0
2回答
背景
我正在excel开发一个用户表单，为分散在多个工作表上的数据提供一个“仪表板”。userform显示一个组合框，并从该选择中填充列表框。用户表单还允许通过“复制”按钮复制列表框信息。列表框的行源可以是单个列(例如，预算！$L$191)或多个列和行(例如，JKG.Slave!$I$38:$JM$44)。
我在列表框属性中选择了'MultiSelect‘属性。
挑战
如何在多行(如果需要)列表框中显示所有行源数据？
如何动态捕获支持多列列表框所需的列计数？
我可以使用一个变量来捕获列计数并让它在运行时填充列表框吗？
来自项目的代码示例
Public Sub ComboBox1_Cha
浏览 2提问于2016-12-21得票数 0
回答已采纳
2回答
目前，我有一个电子表格，为我自动化一些连接函数，但它限制在一个5列数组.
ws.Range(Cells(x, 10), Cells(x, 10)).Value = "" & Source(1) & " " & Source(2) & " " & Source(3) & " " & Source(4) & " " & Source(5) & ""
我已经重写了代码，以便更好地、更方便地自动化这个任务，其中包括一个用Colu
浏览 1提问于2016-07-21得票数 0
1回答
嗨，我正在寻找一个excel VBA问题的帮助。我已经创建了一个用户表单，它允许您从一个列表框到另一个列表框的列表中进行选择。用户表单的代码如下所示：
Private Sub UserForm_Initialize()
With ColumnName
.AddItem "a"
.AddItem "b"
.AddItem "c"
.AddItem "d"
.AddItem "e"
.AddItem "f"
End With
End Sub
然后
Private Sub AddButton_Click(
浏览 4提问于2017-07-10得票数 0
回答已采纳
我已经创建了一个用户表单，它有一个列表框(ListBox1)，它列出了工作表的名称，我可以双击列表，它将带我到那个工作表。我有一个后退按钮(CommandButton2)，当我单击“后退”按钮时，它将带我到前面选定的工作表。我想链接我的列表框和后退按钮，以便当我单击后退按钮时，我的列表框(ListBox1)应该突出显示我的后退按钮(CommandButton2)指向的工作表。
请在我的代码下面找到：
Private Sub UserForm_Initialize()
Dim Sh As Worksheet
'for each loop the add visible sheets
浏览 0提问于2017-04-10得票数 0
回答已采纳
3回答
我已经将一个用户表单插入到一个项目中，该项目已经包含了一堆模块。通过使用用户表单中的代码，我已经验证了我可以从组合框中返回值。
用户表单代码：
Public SelectedPacking As Integer
Private Sub CancelButton_Click()
UserForm1.Hide
End Sub
Private Sub OKButton_Click()
SelectedPacking = ComboBox1.ListIndex
Call DemoDialogOk
'Return list inde
浏览 1提问于2013-08-30得票数 1
回答已采纳
2回答
另一个被难住了的新手，试图把我的头围绕在一个问题上。 我正在尝试使用一个类模块，而不是公共变量，带有get和set属性。我想用文本框在用户表单中设置这些值，并在用户输入它们时更新用户表单中的列表框，最好是在文本框事件_afterupdate上，当用户单击保存按钮时，我希望将配置文件属性存储到一个范围内。毫无疑问，这将是一个可笑的混乱，但我已经被难住了几天，我来这里是恭敬的。我就是想不通。 类模块示例： Private mProfileName As String
Private mStartDate As Date
Private mEndDate As Date
Private mOngo
浏览 36提问于2020-06-25得票数 0
1回答
作为一个单列列表框，它可以工作并带回我需要的所有数据，但是，在将它变成多列列表框时，它会抛出错误“运行时错误'381'：无法设置列表属性。无效的属性数组索引”-请参阅代码行ListBox1.List(1, 0) = MyArray(i, 1)。
当我添加不正确的List属性并尝试将List属性添加到我认为应该在的位置时，将正确地显示列，但它再次显示整个列表，并将第2行替换为正确的搜索结果之一，第一行永远不会更改。
主要代码来自，到目前为止，我已经使用@xris23的注释来修改多列列表框。
请帮帮我！
Sub CommandButton1_Click()
Dim i As
浏览 9提问于2022-09-16得票数 0
我已经在Excel中创建了一个Userform，其中有一个未绑定的列表框，它的MultiSelect属性设置为Extended。当该列表框以除单击列表项以外的任何方式接收焦点时，该列表中的所有项目都会出现在它们周围的虚线焦点矩形中。
下面是一些代码，它显示了另一个列表框旁边的现象，该列表框将MultiSelect设置为单个，以便进行比较。创建一个Userform，在上面放置两个Listboxes，并将代码添加到表单中。启动表单时，在列表框之间选择选项卡，查看我所描述的内容。
Private Sub UserForm_Activate()
ListBox1.MultiSelect = f
浏览 3提问于2012-11-14得票数 4
我有以下问题:我在excel中有UserForm A和UserForm B。两个UserForms都调用UserForm C。用户从UserForm C中选择一个ID号，然后将其放入UserForm A或UserForm B中的标签中，具体取决于当前打开的是哪一个。
我一直在寻找这个问题的可能答案或替代解决方案，但没有找到任何有帮助的东西。如果可以的话，我会尽量避免做两个UserForm C。任何帮助都是非常感谢的。
谢谢!
编辑:现在，我的Userform C代码是由一个click事件启动的。因此，用户从列表框中选择ID号，该列表框将自动保存到隐藏的标签中。当用户单击保存按钮时，隐藏标签标题
浏览 3提问于2016-01-14得票数 0
1回答
我正在尝试加载一个列表框，其中包含透视表字段中的行。我发现以下代码适用于ActiveX控件列表框，但不适用于UserForm列表框。UserForm控件收到438错误。我正在使用一系列UserForms，并且activeX控件只能嵌入到工作表中。
Private Sub ListBox1_Click()
Dim Pf As PivotField
Dim I As Integer
Set Pf = Worksheets("Sheet4").PivotTables(1).PivotFields("Field Name")
浏览 2提问于2013-05-04得票数 0
2回答
我试图避免将用户表单的名称硬编码到subs中，以便填写并在以后从所述的userform检索数据。我在这里包含的子应该是将来自userform的值放入工作表上的单元格中。
(我对这件事还很陌生)
我尝试过几种方法，从其他解决方案到类似的堆栈溢出问题，但都没有效果。我最接近的是Screen.ActiveForm，但遗憾的是，这是为了访问，而不是excel。
我也尝试过创建一个公共对象变量，但也无法让它工作。
唯一起作用的是将Userform1硬编码到子程序中，但这似乎是一种效率低下的方法。我不明白为什么有人每次设置另一个用户表单时都要编写一个新模块。
''''
浏览 1提问于2019-10-24得票数 1
回答已采纳
2回答
有没有一种方法可以在模块中编写我的Userform代码？
我问这个的原因是因为我有一个多页的用户表单，它的背后有越来越多的代码。出于组织目的，我希望能够将代码放在不同的模块中。但我不知道是否可以对userforms执行此操作(除了从userform事件调用子例程之外)。
有没有一种方法可以在模块中编写UserForm代码，而不必从用户表单代码调用子例程？
浏览 1提问于2013-07-06得票数 1
1回答
我有这样的桌子。
我需要使用VBA用户表单来编辑这个。我需要从列表中选择一个序列号，其他细节应该在更改事件中显示到文本中。
因此，我编写了以下的userform。
并添加了rowSource的串行无列表框作为序列编号。我应该如何看待玩具类型，车轮和nale文本boxes.Appreciate从您的指导。
浏览 0提问于2019-01-03得票数 0
回答已采纳
1回答
我正在尝试从数据库中读取数据，以便在列表框中显示。
我有文本框和组合框: txtIndex，txtEventID，cmbServer，cmbCompany，txtMessage.
当我点击“显示列表”按钮时，数据表中的所有数据都将在列表框中读取和填充。单击列表框行项后，所有相关信息将显示在相应的textboxs和comboboxs 中，本例为。
我使用FindAll函数来实现搜索引擎，搜索结果似乎是可以的。
问题是：当我在列表框中单击搜索结果时，textboxs和comboboxs中显示的数据是不正确的。
下面列出索引，而不是我想要的。
这是我用来显示数据的代码(由UserForm1_Clic
浏览 2提问于2016-06-02得票数 0
回答已采纳
1回答
我正在重构一个VBA应用程序，以开始使用类模块。对于上下文，它是为一系列特定的数据清理操作设置一些变量的userform。我一直在研究将值从userform对象传递到单独模块子类中的变量。
在我的研究中，我遇到了处理用户表单的。它突出了模型-视图-演示者模式。答案的"Model“部分概述了在新的类模块中定义私有类型变量组的一些代码。
然而，我也读过，它声称“我们可以通过声明Type语句来避免在VBA中使用类模块，它不需要任何字符串模块，因为我们可以将它嵌入到现有的模块中，从而节省我们的空间。”
我觉得我应该知道什么时候应该在类模块中应用Type，什么时候应该使用Type来避免创建类模块
浏览 15提问于2022-11-12得票数 1
回答已采纳
我有一个小程序VBA，它实际上是一个用户表单，允许我显示当前打开的所有现有工作簿。通过这个用户表单，我可以选择另一个工作簿，通过单击列表框中显示的工作簿的名称，它通过激活工作簿将我重新定位到所需的工作簿。问题是，它并不是每次都能工作，有时当我试图单击列表框中所需的工作簿时，它并不一定会使我重新定位到所需的工作簿。也许与我的列表框相关的代码有问题:如果有人能帮我，那就太棒了。With Me.ListBox1If .ListIndex <> -1 Then Workbooks (.Value).Activate。
谢谢泽维尔
请在下面找到我的代码：
'code in modul
浏览 0提问于2018-10-17得票数 0
回答已采纳
1回答
我正在尝试将选定的值从列表框中写入excel中的工作表。只编写第一个选定的值。
正在使用的代码段是：
numofformulas = WorksheetFunction.CountA(Sheets("Costs").Range("D:D")) - 1
k = 0
For i = 0 To numofformulas
If UserForm3.ListBox1.Selected(i) = True Then
Sheets("PriceSheet").Cells(k + 7, 3) = UserForm3.ListBox1.L
浏览 1提问于2022-03-06得票数 0
我在VBA中创建了一个UserForm，它有一个ListBox，其中选择了ListStyleOption。MultiSelectMulti选项被激活。每当我关闭UserForm或工作簿，然后重新打开，所有以前的选择都会消失。有没有办法保留列表框中的选择？
谢谢。
浏览 2提问于2017-10-24得票数 1
回答已采纳
我有收集一些用户输入的userform。现在我想要做的是，当点击OK按钮时，声明一些事件从userform抛出。我是vba的新手，所以我不知道怎么做。任何代码或教程的链接将非常感谢。
Load UserForm1
UserForm1.Show
//here I want to capture UserForm1 OK button's click event and read the data
浏览 1提问于2012-10-22得票数 1
回答已采纳
1回答
我正在开发一个Userform，并且我有几周的时间试图开发一个代码来过滤列表框，这取决于一个组合框的值。
我所做的最接近的就是设置一个命令按钮来过滤列表框提要所在的表，但它不会刷新列表框。
我在论坛上看到人们做我想做的事情，但我试过所有这些都没有结果。
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" Then ActiveSheet.ListObjects("Tabla2").Range.AutoFilter field:=2, Criteria1:=ComboBox1.
浏览 2提问于2017-04-04得票数 1
回答已采纳
我有一个UserForm1，它包含一个包含三个项的ComboBox。当选择第3项时，会弹出一个新的UserForm2。该UserForm2包含一个由工作表中的许多项填充的ListBox。我希望能够在ListBox中选择其中一个条目，然后将所选条目从ListBox传递到UserForm1中的ComboBox (使用UserForm2中的按钮)。
我的简化代码如下所示：
(UserForm1)
Sub UserForm1_Initialize()
ComboBox1.AddItem "Item1"
ComboBox1.AddItem "Item2"
浏览 1提问于2019-12-10得票数 1
2回答
我在表单上有以下按钮：
Private Sub CommandButton1_Click()
Dim pass As String
pass = UserForm1.TextBox1
Unload UserForm1
End Sub
然后我有一个名为Module1的模块：
Public Sub Login()
...
UserForm1.Show
driver.findElementByName("PASSWORD").SendKeys pass
...
End Sub
其思想是，用户在输入框中输入的任何密码都将被分配给变量pass。然而，我遇到的问题是
浏览 0提问于2013-11-26得票数 24
回答已采纳
2回答
我读过关于UserForm_Activate()和UserForm_Initialize()的文章，并了解到它们类似于以下内容。
Private Sub UserForm_Activate()
''Do some stuff
End Sub
我还理解UserForm应该是表单本身的名称。有没有办法在激活/显示的任何用户表单中发生这种情况？
谢谢
浏览 1提问于2013-01-10得票数 0
运行Userform_Initialize()事件后，列表框中将不会填充任何内容，如下所示：
根据下面的excel表，应该有11列填充列表框：
代码运行如下：
Private Sub UserForm_Initialize()
Dim Total_rows_FoilProfile As Long
Dim row As Range, i As Long
Total_rows_FoilProfile = TotalRowsCount(ThisWorkbook.Name, "Foil Profile", "tblFoilProfile")
R
浏览 0提问于2018-11-20得票数 1
回答已采纳
2回答
我有下面的代码来填充一个列表框，因此我想从我的组合框中删除重复的内容。我不知道怎么做：
Private Sub CommandButton1_Click()
Dim ws_suivi As Worksheet
Set ws_suivi = ActiveWorkbook.Worksheets("suivi")
Fin_Liste_suivi = ws_suivi.Range("A65530").End(xlUp).Row
For i = 2 To Fin_Liste_suivi
UserForm_SDE
浏览 0提问于2020-07-20得票数 0
回答已采纳
1回答
我想在用户表单中的列表框中实现一个搜索函数，以便更好地查看许多列，但不幸的是，我找不到解决方案。
最佳解决方案是，如果我可以在文本框中搜索任何行内容(最多有12列包含数据，例如名称、ID、位置、组织、.)列表框将自动更新自己，显示所有匹配的条目。
在UserForm_Initialize中，我按如下方式填充了列表框：
Private Sub UserForm_Initialize()
With UserForm1
.StartUpPosition = 1
.Top = 1
.Left = 1
End With
Dim last As Integer
las
浏览 3提问于2020-11-13得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
