如何将VBA做的带有窗体的程序与其他Excel分离开，如果打开多个Excel时，VBA会提取其他Excel的数据

1、将程序文件存在一个单独的工作簿内，该工作簿后缀名为“XLSM”。

2、将该程序文件挂到Excel的其他命令-宏命令下，对应的图标会在工具栏显示，与Excel的其他命令标签类似。

3、打开其他的工作簿后，点击步骤2的图标，即可 *** 作数据。

userform1 userfrom2

userfrom2 里面有控件 Label1 值是 “nihao”

userform1 编程

set a = new userform2

aLabel1caption 取值

使用VBA获取工作表里边文本框、图形的文本数据时，在不确定文本框、图形数量的情况下，可以使用“For Each……In……Next”对工作表里面的每一个文本框、图形进行访问，然后使用“TextFrame2TextRangeText”获取里边的文本数据写入单元格。

VBA程序如下截图，shp为工作表Sheet1里边所有图形中的一个（每执行一次For循环就提取一个，不重复）。

注上图的VBA程序引用自百度经验《使用VBA提取文本框的文本数据》

有两种方法可以建立窗口来实现录入数据。

一种是选择你要录入数据的区域，再通过菜单“工具”->“记录单”，EXCEL就会d出一个数据录入窗体。

第二种方法是按“ALT+F11”进入VBA编辑器，在这里，你可以插入一个用户窗体，这个可能对没有接触过编程的人来说有些复杂，但功能确实比前一种方法要强劲得多了。

答题不易，互相理解，您的采纳是我前进的动力。

使用for each遍历所选择的单元格即可。

如下代码将选择区域的单元格输出在立即窗口。

Dim myRange As Range

Dim myCell As Range

Set myRange = ApplicationInputBox("选择区域", Type:=8)

For Each myCell In myRange

DebugPrint myCellValue

Next

End Sub

参考如下问答：

如何让textbox中输入信息，在表格中搜索到，并实时显示在listbox中

功能描述如下，如附件中frame图所示，在textbox中输入一个人名，实时在一个表格（如附件表格图所示）中搜索此人名，并将搜索结果放到frame中的listbox中，搜索结果包括姓名，班级，性别。实时显示就是在textbox中输入后马上执行搜索并显示的任务，应该是在textbox的change方法中写代码。

根据textbox1里的值去查找，应该可以不用考虑使用字典的

Private Sub TextBox1_Change()

ListBox1Clear

Set Rng = Sheets(1)Columns(2)Find(TextBox1Text, lookat:=xlWhole)

If Not Rng Is Nothing Then

ListBox1AddItem (Rng)

For j = RngRow + 1 To Sheets(1)Cells(RowsCount, 2)End(3)Row

If Sheets(1)Cells(j, 2) = Rng Then

ListBox1AddItem (Rng)

End If

Next j

End If

End Sub

根据textbox1的值查找  

以上就是关于如何将VBA做的带有窗体的程序与其他Excel分离开，如果打开多个Excel时，VBA会提取其他Excel的数据全部的内容，包括:如何将VBA做的带有窗体的程序与其他Excel分离开，如果打开多个Excel时，VBA会提取其他Excel的数据、vba怎么实现在一个窗口中调用另一个窗口中的数据，或者一个窗口中的数据怎么在另一个窗口中表示、在excel中的VBA里如何使用批量读取控件（如文本框）中的数据。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！