对话框激活工作表

xing_chen

老师，有簿，含有12个工作表。我希望在12个工作表外，插入1个工作表，在此表上设置控件，点击按钮通过对话框方式选择工作表并运行代码。此对话框的代码怎么设置并运行代码。敬请老师赐教，1此对话框怎么设置可以在选择的工作表中运行；2有无其他办法。老师！恕我现在还没有办法提供样表。

tiger1976

是不是这样的

xing_chen

tiger1976 发表于 2023-3-8 22:42
是不是这样的

谢谢老师！又给我指了一条路，同时又是我不熟悉，需补课的路。谢谢！

xing_chen

此代码为什么会下标越界，错哪里了？

ykcbf1100

工作表目录，你参考一下吧。

mmwwdd

打开 Excel，按下 Alt + F11 进入 VBA 编辑器界面；

在“项目导航”栏中，右键单击工作簿的名称，选择“插入” -> “用户窗体”；

在弹出的“用户窗体”窗口中，右键单击空白区域，选择“插入” -> “ListBox”控件；

在“属性”窗口中，将 ListBox 控件的 Name 属性设置为“ListBox1”，将其 Width 属性设置为“200”，将其 Height 属性设置为“300”；

在“用户窗体”中，右键单击空白区域，选择“插入” -> “CommandButton”控件；

在“属性”窗口中，将 CommandButton 控件的 Name 属性设置为“Button1”，将其 Caption 属性设置为“确定”，将其 Width 属性设置为“100”；

在“用户窗体”中，双击 CommandButton 控件，进入其 Click 事件的 VBA 代码编辑界面；

在 VBA 代码中，使用以下语句来获取 ListBox 中选中的工作表名称，并在该工作表上运行代码：
Dim wsName As String
wsName = ListBox1.Value    '获取 ListBox 中选中的工作表名称
Worksheets(wsName).Activate    '激活选中的工作表
'在此处添加需要在选中工作表上运行的代码

在“用户窗体”中，双击空白区域，进入 UserForm 的 Activate 事件的 VBA 代码编辑界面；

在 VBA 代码中，使用以下语句来向 ListBox 中添加工作表名称：
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ListBox1.AddItem ws.Name
Next ws

最后，在 VBA 代码中，使用以下语句来显示 UserForm：
UserForm1.Show
通过以上步骤，你可以实现一个可以在选中的工作表上运行代码的对话框。当你点击“确定”按钮时，VBA 代码会获取 ListBox 中选中的工作表名称，并在该工作表上运行代码。

xing_chen

mmwwdd 发表于 2023-3-9 11:10
打开 Excel，按下 Alt + F11 进入 VBA 编辑器界面；

在“项目导航”栏中，右键单击工作簿的名称，选择“ ...

谢谢老师！粗阅老师的指点，晚上回来按你的操作一下。谢谢

xing_chen

ykcbf1100 发表于 2023-3-9 11:02
工作表目录，你参考一下吧。

谢谢老师！我操作了你的代码。你帮我选择了工作表。但我的主要目的是要运行代码时能指定工作表运行代码。我现在运行代码都是在VBA编辑器中点菜单上的按钮，运行一个个工作表，每次打开都很烦，我的设想是：增加1个工作表，在此页面上设置按钮，选择工作表运行代码。有的老师介绍用窗体，但我对窗体是只知道不了解。谢谢老师！另今天我只能晚上回来看后回复

ykcbf1100

xing_chen 发表于 2023-3-9 12:16
谢谢老师！我操作了你的代码。你帮我选择了工作表。但我的主要目的是要运行代码时能指定工作表运行代码。 ...

你最好搞个附件，这样容易解决问题。

xing_chen

mmwwdd 发表于 2023-3-9 11:10
打开 Excel，按下 Alt + F11 进入 VBA 编辑器界面；

在“项目导航”栏中，右键单击工作簿的名称，选择“ ...

老师，方便话将你上面的步骤按我此版的例子操作一下可以吗：
对话框选定表运行代码
https://club.excelhome.net/thread-1656123-1-1.html
(出处: ExcelHome技术论坛)