VBA Excel2013:从另一个UserForm分配数组值
VBA Excel 2013是一种用于Microsoft Excel 2013的编程语言，它可以通过编写宏来自动化和定制Excel工作簿中的各种操作。在VBA Excel 2013中，可以使用UserForm来创建自定义的用户界面，通过该界面可以与用户进行交互。
要从另一个UserForm分配数组值，可以按照以下步骤进行操作：
- 首先，在VBA编辑器中打开两个UserForm的代码窗口。可以通过按下Alt + F11键来打开VBA编辑器，然后在“项目资源管理器”中找到并双击要编辑的UserForm。
- 在第一个UserForm的代码窗口中，声明一个数组变量并为其分配值。例如，可以使用以下代码声明一个名为myArray的数组，并将值分配给它：
Dim myArray(1 To 3) As Variant
myArray(1) = "Value 1"
myArray(2) = "Value 2"
myArray(3) = "Value 3"- 在第一个UserForm中，编写一个将数组值传递给第二个UserForm的过程。可以使用以下代码示例：
Private Sub TransferArrayValues()
UserForm2.myArray = myArray
UserForm2.Show
End Sub在上述代码中，我们将第一个UserForm中的myArray值传递给第二个UserForm的myArray变量，并通过调用UserForm2的Show方法显示第二个UserForm。
- 在第二个UserForm的代码窗口中，声明一个与第一个UserForm中的数组相同的数组变量。例如，可以使用以下代码在第二个UserForm中声明名为myArray的数组：
Public myArray() As Variant请注意，此处的数组声明必须是公共的（Public），以便从第一个UserForm中访问。
- 在第二个UserForm的代码窗口中，编写一个将接收到的数组值显示在界面上的过程。例如，可以使用以下代码示例：
Private Sub DisplayArrayValues()
For i = LBound(myArray) To UBound(myArray)
ListBox1.AddItem myArray(i)
Next i
End Sub在上述代码中，我们使用一个ListBox控件（名为ListBox1）将接收到的数组值逐个添加到列表框中。
这样，当在第一个UserForm中调用TransferArrayValues过程时，它将把数组值传递给第二个UserForm，并在第二个UserForm中显示出来。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云函数（云原生、后端开发）：https://cloud.tencent.com/product/scf
- 腾讯云数据库（数据库）：https://cloud.tencent.com/product/cdb
- 腾讯云服务器（服务器运维）：https://cloud.tencent.com/product/cvm
- 腾讯云音视频（音视频、多媒体处理）：https://cloud.tencent.com/product/vod
- 腾讯云人工智能（人工智能）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（物联网）：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发（移动开发）：https://cloud.tencent.com/product/mad
- 腾讯云对象存储（存储）：https://cloud.tencent.com/product/cos
- 腾讯云区块链（区块链）：https://cloud.tencent.com/product/baas
- 腾讯云虚拟专用网络（网络通信、网络安全）：https://cloud.tencent.com/product/vpc
- 腾讯云元宇宙（元宇宙）：https://cloud.tencent.com/product/um
请注意，以上链接仅供参考，具体的产品选择应根据实际需求和情况进行评估。
相关·内容
请描述您的问题
标题：用户资料与关系链（Android SDK） - 云通信 - 产品文档 - 帮助与文档 - 腾讯云
地址：https://cloud.tencent.com/document/product/269/9231#3.4-.E6.8C.89.E7.85.A7.E5.AD.97.E6.AE.B5.E8.8E.B7.E5.8F.96.E7.94.A8.E6.88.B7.E8.B5.84.E6.96.99
浏览 388提问于2018-01-30
2回答
用于delete的excel中的链接列表框和工作表
excel、vba、listbox、userform
我用VBA用户表单在excel中创建列表框。其值是从Excel中的工作表中获得的。如何在删除框列表项时删除工作表“数据库”中的值？请帮帮我。
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim rng As Range
Dim MyArray
Set ws = Sheets("Database")
Set rng = ws.Range("K2:L" & ws.Range("K" & ws.Rows.Count).End(xlUp).Row)
浏览 0提问于2018-10-03得票数 1
回答已采纳
2回答
如何将用户表单中的数据输入选定的单元格- Excel
vba、excel、userform
我是excel VBA的新手，所以请理解。
我的任务是有效地将员工的总工作时间输入到工作表中，以最大限度地减少人为错误。因此，有三种选择，正常工作时间为490分钟，随着时间的推移为640分钟，用户输入选项，因为有时雇员不工作490或640分钟。
所以我创建了一个userform，在我的userform中，我有一个输入2选项按钮，用于正常的工作时间和时间。我还向用户输入了第三个选项的文本框，以输入特定的工作时间。
因此，我希望在单击单元格而不是按钮时打开userform。并将用户表单中的数据输入选定的单元格中。我可以通过单击单元格打开userform，使用以下代码
Private Sub Wor
浏览 3提问于2016-11-15得票数 0
4回答
在VBA中，如何使用函数返回数组或写入单元格？
arrays、excel、vba、function、range
使用这个非常简单的函数：
Function WriteArray() as Variant
Dim array(0 To 2)
array(0) = "A"
array(1) = "B"
array(2) = "C"
WriteArray = array
End Function
我希望在result中看到Excel电子表格中的整个数组，但事实并非如此:我只得到了第一个字符串。我知道有一些技巧可以在电子表格中显示整个数组(通过使用公式+ F2 +CTRL+SHIFT+ENTER选择一系列单元格)，但我更喜欢使用VBA来处理所有这些。
我
浏览 1提问于2009-05-11得票数 5
4回答
在Excel VBA中构建数组
arrays、vba、excel
期望的结果:结果将是一个从B列构建一个值数组的函数。这些值是通过在A列中具有相同的值来限制的。‘例如，列A值=1 myArray = (0,1,2)’‘列B值=2 myArray = (4,5,6,7,8)’
第一次尝试在VBA中使用数组，需要帮助。我在Excel的A和B列中有以下数据：
A B
1 0
1 1
1 2
2 4
2 5
2 6
2 7
2 8
3 9
3 10
3 11
4 12
4 15
4 18
我有以下VBA代码：
Function buildMyArray()
Dim ARange as Range
浏览 1提问于2014-01-31得票数 0
5回答
微信小程序人脸与身份证照片对比登录,后端做什么？
官方文档、小程序·云开发
微信小程序前端和后端分别要做些什么 ? 所有需要的东西有哪些 ? (请尽量详细点)
标题：人脸识别 - 智能图像服务 - 产品文档 - 帮助与文档 - 腾讯云
地址：https://cloud.tencent.com/document/product/641/12397
浏览 2459提问于2018-01-24
2回答
如何从Access VBA引用Excel
excel、vba、ms-access、userform
案件：
我创建了一个Access数据库。
使用Access-VBA，我打开Excel工作簿来做一些事情。
此工作簿(xlWb)进行复杂的计算，并在打开时加载Excel (UserForm2)。
到目前为止一切都还好。我打开xlWb，UserForm2加载，我做一些事情。
目标：
在此之后，我需要“刷新”Userform2。
我所说的“刷新”是指调用这个UserForm的自定义子，或者卸载和重新加载UserForm2。
问题：
如何从Access-VBA代码引用UserForm2？
我试过的是：
通过搜索，我只找到了如何从另一个工作簿引用Use
浏览 0提问于2019-08-28得票数 2
回答已采纳
1回答
“列表框末尾的空白项”
excel、vba
我正在使用Excel 2007。我刚刚开始学习一些vba来改进我的电子表格。当使用数组填充列表框时，列表底部会出现一个空空格。
如果我用电子表格中的范围填充列表框，一切看起来都很好。但是当使用数组时，在底部会添加一个空白项。因此，当我将ListStyle设置为1时，列表底部会有一个额外的选项按钮或带有空格的复选框。有办法解决这个问题吗？
Private Sub UserForm_Initialize()
Dim myArray(5) As String
myArray(0) = "January"
myArray(1) = "February
浏览 1提问于2019-06-13得票数 1
回答已采纳
2回答
从一个文件调用另一个文件中的UserForm
vba、excel、userform
编写VBA代码，该代码将一个UserForm文件的一个Excel文件调用到一个名为john的文件夹中的所有其他Excel文件，主Excel (由以下代码和用户表单组成)位于不同的位置：
Private Sub Workbook_OnClick()
Dim mypath As String
Dim file As String
Dim wb As Workbook
Dim pat As String
Application.ScreenUpdating = False
ChDrive "C:"
ChDir "
浏览 1提问于2015-11-20得票数 1
回答已采纳
1回答
引用access中的子表单记录
excel、vba、ms-access
我有以下表格，有三个子表格：
右上角的按钮在excel中打开一个用户表单。我希望userform已经从这些子表单中选择了一些值。但是，我无法引用VBA代码中子窗体中的记录。我成功地从主表单(如name等)传递了值，但没有从子表单中传递值。访问代码：
Option Compare Database
Private Sub Toggle159_Click()
Dim abc As String
abc = Me.CompanyName
Dim xlApp As Object 'Excel.Application, xlWB As Excel.Workb
浏览 3提问于2016-06-14得票数 0
3回答
如何让VBA代码等待直到vbModeless用户表单关闭
excel、vba、userform
我想使用一个非模态用户表单，这样用户就可以在回答用户表单上的问题之前导航Excel表格。我需要暂停或循环代码，直到用户表单关闭(隐藏或卸载)。
类似问题：
这里的解决方案不适用于我的应用程序。我的userform是在一个长子例程的中间打开的，它需要在userform关闭后完成执行。
Dim popupActive as Boolean
popupActive = True
StartingSINT_Popup.Show vbModeless 'Open userform
'have VBA code wait until userform is closed
wait un
浏览 0提问于2019-04-30得票数 3
回答已采纳
2回答
Userform根据条件使Excel崩溃
vba、excel、userform
我正面临着一个我不明白的有趣的问题。
在VBA中，我想在用户双击一个单元格时加载一个Userform，具体取决于单元格的内容。但是，根据我询问的条件，一旦我退出Sub，Excel就会崩溃(即使在UserForm关闭后，它也会继续执行代码)。
这是可行的：
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim myForm As New UserForm1
If Target.Cells(1).Value =
浏览 3提问于2018-03-29得票数 3
7回答
VBA公共阵列:如何？
arrays、vba
所以今天的问题让我抓狂，因为这本应该很容易，但我找不到答案：
如何在VBA中声明公共数组？我使用的数组包含字母A，B，C，...因为我使用的是Excel单元格，我不想在创建的每个函数中都声明它，对吧？我试着先在网上看看，我读到你必须在一个不同的模块中声明它，所以这就是我所做的：
Public colHeader As String
colHeader = Array("A", "B", "C", "D", "E", "F", "G", "H", "I"
浏览 0提问于2009-10-31得票数 10
回答已采纳
1回答
Visual Basic查询(excel)
excel、vba、excel-formula
我刚刚开始了一项新工作，正在尝试使用excel中的VBA在多维数组中存储值。
因此，我首先希望在列中搜索值，当它们出现时，我希望将它们存储一次，并分配一个产品编号，每当它在该列中遇到新的唯一字符串值时，该编号将递增。然后只需将数字打印到单元格，并仅在其递增时更改它。
值将是Strings (产品样式)。产品编号将是一个数字。(Int)
是否可以在VBA for excel中执行此操作。我在网上读到，你不能在同一数组中使用不同的数据类型。
抱歉，VBA的新手，任何帮助都将是伟大的。如果我想在excel中使用普通函数，请让我知道。
浏览 0提问于2020-07-03得票数 0
1回答
如何将循环的WorksheetFunction计算输出输入数组？
arrays、excel、vba、loops
这是我第一次问关于堆栈溢出的问题，我希望这是清楚的！
以下是MC宏的VBA代码不起作用。我试图将循环计算( Excel beta.inv统计公式)输入到数组中，并将完成的数组输出到工作表中进行检查。对于不使用数组直接输出到工作表的情况下，这一派生可以很好地工作，但我更愿意将数据输入数组以进行进一步的计算(并且最小化VBA/工作表之间的来回以加快速度)。
代码：
Sub MC()
Dim n As Integer
Dim j As Integer
Dim myArray As Variant
Dim x as Integer
n = Range("L2"
浏览 3提问于2021-02-09得票数 1
回答已采纳
1回答
如何使用Excel中的for-循环创建多个子程序？
excel、for-loop、vba
我想用一个相似的名字创建多个潜艇。下面是我的Excel代码：
' sub main
Sub LoopSubsTest()
' defining an array
Dim myarray As Variant
myarray = Array("solver_inv_1", "solver_inv_2")
' for-loop
For i = 1 to 2
' sub sub
Sub myarray.Item(g)()
' this is the code part
...
End Sub
Next i
End
浏览 3提问于2018-02-22得票数 0
回答已采纳
2回答
命令按钮在msgbox vba中可能吗？
vba、button、command、messagebox、msgbox
是否可以在vba中的msgbox窗口中添加命令按钮？
例如，我想添加一个“取消”按钮来停止代码，而不是继续它。我可以创建一个新的userform，但是如果我能节省一些空间并使用已经在这里的msgbox，那就太好了。
浏览 7提问于2017-08-21得票数 1
回答已采纳
1回答
将值修改为公共数组不起作用
arrays、excel、vba
我有一个问题要修改声明为public的数组的值。
这是我的密码：
在UserForm1的声明中
Public MyArray as Variant
在"Private UserForm_activate()“中，我有：
MyArray = Array(0, 0, 0, 0, 1)
在那之前，它是有效的
在UserForm3中有：
Private Sub CheckBox1_Click()
If UserForm1.MyArray(4) = 1 Then
UserForm1.MyArray(0) = 1
UserForm1.MyArray(4) = 0
ElseIf U
浏览 1提问于2016-02-22得票数 1
2回答
将单个值加载到VBA数组
arrays、vba
我在Excel 2016中运行了一个VBA代码，它从一个单列Excel表将一组值加载到数组中，然后对每个值运行FOR-循环。
Sub Load_array()
Dim x As Long
Dim myArray() As Variant
Dim myTable As ListObject
Set myTable = Sheets("Sheet1").ListObjects("Table1")
TempArray = myTable.DataBodyRange.Columns(1)
myArray = Application.Transpose(TempAr
浏览 0提问于2020-02-03得票数 0
回答已采纳
2回答
ComboBox中的缩进值
excel、vba
在我的Excel电子表格中，我使用下面的VBA代码来使用来自UserForm的值获得一个带有ComboBox的Sheet1
电子表格上的ComboBox1列表：
A B C
1 Q1
2 January
3 February
4 March
5 Q2
6 April
7 May
8 June
调用 UserForm1的VBA代码(连接到电子表格上的一个按钮)：
Sub Test()
Call UserForm1.Show(vbModeless)
End
浏览 3提问于2018-07-09得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
