在我单击工作表之前，Userform不会出现
。
这个问题涉及到Excel VBA编程中的用户界面设计。Userform是一种用于创建自定义对话框和用户界面的工具。在Excel中，可以通过VBA编程来创建和控制Userform。
当我们在Excel中创建了一个Userform，并希望在单击工作表上的某个元素时显示该Userform时，需要编写相应的VBA代码。
以下是一个示例代码，用于在单击工作表上的按钮时显示Userform：
Sub ShowUserform()
UserForm1.Show
End Sub在这个示例中，我们假设已经创建了一个名为UserForm1的Userform。当执行Sub ShowUserform()时，UserForm1将会显示出来。
Userform的出现可以通过多种方式触发，例如按钮点击、工作表事件、宏等。具体触发方式取决于你的需求和设计。
在云计算领域中，Excel VBA编程可以用于自动化数据处理、报表生成、数据分析等任务。腾讯云提供了云计算服务，如云服务器、云数据库、云存储等，可以帮助用户在云端进行数据处理和存储。你可以参考腾讯云的相关产品和文档来了解更多信息。
腾讯云相关产品和产品介绍链接地址：
- 云服务器：https://cloud.tencent.com/product/cvm
- 云数据库：https://cloud.tencent.com/product/cdb
- 云存储：https://cloud.tencent.com/product/cos
相关·内容
工作表上有两个ActiveX命令按钮。每个用户都调用一个userform，但只有第一个有效。单击第二个按钮将得到一个424错误。代码在工作表上有两个子部分。如果我单击“添加计算”按钮，就会出现userform。如果我单击“检查计算”按钮，代码会抛出424。
Private Sub cbAddCalculationL_Click()
'Show the Add Calculation userform
'Set the window position in the centre of the screen
With ufAddCalculation
浏览 1提问于2021-02-08得票数 0
回答已采纳
我有一张工作表，里面有一张图片和一张桌子。我还有一个充当倒计时器的UserForm。UserForm包含以下代码：
Option Explicit
Const AllowedTime As Double = 10 ' Total time in minutes
Private Sub UserForm_Activate()
Dim T, E, M, S As Double
T = Timer
Do
E = CDbl(Time) * 24 * 60 * 60 - T
M = AllowedTime - 1 - Int(E / 60)
S = 59 - Ro
浏览 1提问于2020-09-18得票数 2
回答已采纳
1回答
我是VBA的新手。
我有一个用密码保护/锁定的工作表。
我有一个CommandButton，它在单击时加载一个UserForm，该UserForm用于将记录输入工作表。
我希望这样，当单击CommandButton时，它将提示用户在UserForm加载之前输入取消保护密码(用于保护/锁定工作表)。
如果用户输入正确的取消保护密码，则UserForm将加载。如果用户输入了不正确的取消保护密码，则会显示MsgBox，UserForm将不会加载。
问题是当单击CommandButton时，用户将被提示输入取消保护密码(Excel的内置解除保护对话框)，如果用户单击“取消”按钮，UserForm仍然会
浏览 3提问于2017-08-02得票数 0
回答已采纳
我有一个工作表(“设置”)，这需要隐藏大部分时间。我已经创建了设置UserForm，其中包含各种设置按钮和切换按钮，隐藏/显示隐藏的工作表(然后单击并输入密码)。
用于隐藏/显示工作表的宏：
Private Sub SettingsTB_Click()
Dim strPassTry As String
Dim strPassword As String
Dim lTries As Long
Dim bSuccess As Boolean
If SettingsTB.Value = True Then
strPassword = "asd"
For lTrie
浏览 0提问于2018-11-22得票数 1
回答已采纳
工作表上的按钮启动一个宏，该宏打开一个用户表单(比如userform1)。为了让用户同时使用Userform1和工作表(即，单击单元格)进行输入，以非模态方式加载userform1。userform1上有一个按钮，当单击该按钮时，会打开另一个用户表单(比如userform2)。Userform2是模态的。单击userform2上的Cancel按钮可以按预期卸载userform2；但是，由于某些原因，它也会卸载userform1，这是我不想要的。如果我将userform1设为模式，那么卸载userform2不会卸载userform1；但是，用户不能再使用(即单击)工作表中的单元格。我找不到任何信
浏览 1提问于2014-04-23得票数 1
我有一个命令按钮，当我单击它时，它显示了一个自定义的userform，其中包含一个组合框，其中包含从工作表单元格中提取的项。用户应该按下命令，然后出现userform，他需要从列表中选择一个项，该项是不同工作簿中的工作表名称，因此它将从该工作表中导入数据。然而，我面临一个问题:当用户表单出现时，我点击组合框，它没有显示任何项目，如果我单击一次用户表单，然后再次选中组合框，它将正确地显示项目，如果我再次单击该用户表单，则组合框项将被加成双倍！如果我选择了一个项目，它将完美地工作。因此，我想要实现的是:我希望组合框直接显示项目，而不单击userform。守则是：
在用户表单中：
Private S
浏览 1提问于2014-11-27得票数 0
回答已采纳
我有一个在指定单元格范围内单击时打开的UserForm的MonthView。给了我基本的脚本。它没有把UserForm放在我期望的地方。
下面是当我单击范围UserForm中的任何单元格时打开B3:C2000的脚本(放在特定工作表中)。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set oRange = Range("B3:C2000")
If Not Intersect(Target, oRange) Is Nothing Then
frmCalendar.Show
浏览 8提问于2017-01-26得票数 13
回答已采纳
我有一个带有userform的工作簿，其中包含用于填充工作表数据的列表框。
如果打开了多本工作簿，并从一个工作簿直接单击另一个工作簿中的userform上的列表框，则在Activeworkbook更改以反映包含该用户名的工作簿之前，将触发ListBox_Change事件。因此，当代码到达Set EqDataSht = ActiveWorkbook.Worksheets("Equipment-Data")时，就会出现下标超出范围的错误，因为我来自的工作簿不包含名为“设备-数据”的工作表。
将ActiveWorkbook设置为用户表单的父级的最佳方法是什么？我的想法是在workbo
浏览 0提问于2017-04-19得票数 1
回答已采纳
1回答
我希望工作表Administrator表现得像一个按钮，但我不想去实际的工作表。
它应该打开一个UserForm，如果单击Administrator，它将停留在活动工作表上。
浏览 1提问于2015-10-21得票数 1
回答已采纳
1回答
在我下面的代码中，我有一个运行时错误13 (输入missmatch)。我不知道问题出在哪里？我已经尝试用工作表名称填充组合框。错误出现在UserForm_Activate()上。
Private Sub UserForm_Activate()
Dim xSheet As Worksheet
ComboBox2.Clear
For Each xSheet In ActiveWorkbook.Sheets
ComboBox2.AddItem xSheet.Name
Next xSheet
End Sub
Private Sub UserForm
浏览 3提问于2018-05-30得票数 0
当我使用按钮在用户表单(UF2和UF3)之间传递值时，我遇到了一个问题。
我的目的是使用不同的按钮来更改userform3标签中的内容。例如，如果我单击'aaa to 3'，那么userform3就会出现，标签中的文本将是'aaa‘。
下面是Userform2：
代码在这里：
Public UF3 As UserForm3
Public Zone As String
Private Sub CommandButton2_Click()
Set UF3 = UserForm3
Zone = "aaa"
UF3.Show
Zone = "a
浏览 0提问于2016-10-19得票数 0
回答已采纳
2回答
我有一个在Word中创建的用户访问申请表，现在已被要求复制到outlook电子邮件模板中。此.oft文件将放置在我们的网站上，这样当用户单击该链接时，他们将下载.oft文件。当用户打开该文件时，将加载正文中包含用户访问请求表的电子邮件。
我能够设置书签，并从Word导入Userform，甚至可以在来自the Userform...however I have a wall的电子邮件中正确填充所有内容。
只有在从Visual Basic的“开发人员”选项卡中运行Userform时，才能让它出现。
我要做的是让Userform弹出模板打开，只有当特定的模板是由用户打开(我不希望Userform打开
浏览 8提问于2017-07-14得票数 1
我为测试创建了一个简单的用户表单，但是出现了一个问题，我不知道如何解决它。 情况是这样的:当我第一次打开.xlsm文件并关闭用户表单和工作簿时，这将同时关闭这两个文件。但当我再次单击.xlsm文件，关闭用户表单和工作簿时，它(用户表单)再次弹出。工作簿似乎没有关闭。然后，我需要再次关闭用户表单以关闭此工作簿。 我想要帮助理解为什么用户表单再次出现？ 用户表单只有一个列表框控件。下面的代码在一个模块中： Private Sub Auto_Open()
UserForm1.Show
MsgBox "Close2"
ThisWorkbook.Close
浏览 13提问于2021-08-17得票数 1
1回答
UserForm和范围
、、、、
我有一个Excel表，其中D列(第4列)是有两个选项的每一行的下拉列表：
是
不是
当我单击“否”时，会弹出一个Userform，其中一个简单的“文本区域”要求输入一个值，还有一个"Submit“按钮进行验证。
当单击"Submit按钮“时，我希望将"text zone”的值实现到右边的单元格中:偏移量(0，1)。
示例: D5："No“->在用户表单”-> E5：“5中输入5
到目前为止，我的代码如下：
工作表：
Private Sub Worksheet_Change(ByVal Target As Range)
If A
浏览 0提问于2018-06-18得票数 0
回答已采纳
我已经设置了一个新的、空的、无模式的用户表单，用最少的代码来解决我的问题。
当打开工作簿时，将执行以下代码以隐藏Excel并显示用户表单。这是工作簿的唯一代码。
Private Sub Workbook_Open()
UserForm1.Show
If Application.Windows.Count <> 1 Then
Application.Windows("test.xlsm").Visible = False
Else
Application.Visible = False
End If
En
浏览 0提问于2019-03-22得票数 2
回答已采纳
1回答
我和VBA一起工作，有一个问题我就是找不到解决的办法。我创建了一个UserForm，包括一个TextBox、一个ListBox和两个按钮。如果您向TextBox输入文本并单击Button1，那么TextBox的文本将通过命令ListBox.AddItem添加到列表框中。这部分工作得很好。
如果您单击Button2，它将将ListBox的条目复制到Excel表中。我对这部分有意见。守则如下：
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
ActiveSheet.Cells(2, 3) = ListB
浏览 0提问于2018-08-29得票数 0
我有一张有ListBox的工作表。工作表代码有一个ListBox_DblClick子程序来启动UserForm1。UserForm1.CommandButton 1启动UserForm2。用户可以在UserForm2中输入数据，然后按UserForm2.CommandButton 1，它在模块中启动一个子程序(尚未编写)并关闭UserForm2。
通过下面的代码，UserForm2和UserForm1都关闭了。我只想让UserForm2在单击UserForm2.CommandButton 1时关闭。
任何关于我做错了什么的想法都是值得感激的。
UserForm2代码
Private Sub C
浏览 5提问于2015-02-22得票数 0
回答已采纳
在excel项目中，我有一个带有数据的工作表，一个从该工作表中提取数据的用户表单，以及一个粘贴用户表单数据的工作表。
我在数据表中创建了一个按钮，应该打开用户表单。作为参考，我的userform的名称是UserForm1。当我单击命令按钮时，我会得到一个424错误Object required。我希望得到任何帮助或澄清，似乎我的课程/实例搞混了？
代码如下：
Private Sub blocksSorter_Click()
Load UserForm
UserForm.Show
End Sub
表单本身位于同一个VBA项目中，是项目中的唯一表单。我的UserForm1代码一
浏览 2提问于2019-11-06得票数 0
我有一个代码，处理一个excel表逐行。
在某些情况下，需要对行中的数据进行某些手动操作。为此，程序会触发一个UserForm。UserForm包含从基础excel行填充的某些字段。然后，用户操作这些字段，并单击用户表单上的某些按钮。手动处理完成后，程序需要继续处理Excel工作表中的其余行。当USERFORM被触发时，在对UserForm执行操作之前，用户需要查看
a)在UserForm中推高了什么
b)底层Excel工作表的内容
程序需要等到用户采取行动
然而，似乎没有一种简单的方法可以让用户看到下面的行，因为Userform (在顶部)阻止访问下面的Excel工作表。为了允许访问Exce
浏览 3提问于2014-11-13得票数 0
我有一个使用用户表单的进展。单击工作表按钮时，我将显示用户表单。按钮调用startProgressIndicator()
Sub startProgressIndicator()
UserForm1.Show
End Sub
我把这个作为我的用户名代码：
Private Sub UserForm_Activate()
Call myCode
End Sub
然后，我想隐藏进度条，并要求用户输入。这发生在myCode中。我在UserForm1.Hide一开始就加入了myCode。
获得用户输入后，我想再次显示进度指示符。然而，我尝试UserForm1.Show，这只是再次调用my
浏览 1提问于2019-11-11得票数 1
回答已采纳
当我单击UserForm上的一个按钮时，它会转到相关的工作表(通过.activate，然后结束Sub，但我也尝试过.select)，但我无法编辑单元格。但是，当我通常通过底部窗格点击到工作表时，我可以再次编辑它。
我没有找到excel日志或进程管理器，所以我无法看到哪些宏正在运行，哪些数据正在加载，而且可能会影响到这一点--是否有人知道我在使用UserForm?之后无法编辑单元格值的可能原因？
下面是我为这个按钮编写的代码(我添加了卸载部分，希望它能停止任何剩余的UserForm子体)：
Private Sub CommandButton1_Click()
Sheets(
浏览 3提问于2015-08-17得票数 0
回答已采纳
3回答
我希望你能帮我解决我的小问题..
我的文件包含3个工作表。1.数据2.报告3.帮助工作表进行一些计算
当我打开文件时，我单击一个按钮来实现一个计算，这将启动一些请求。此请求首先将数据从工作表1(数据)复制到工作表3(帮助工作表)。在进一步的请求之后，所有这些都在用户表单中完成，工作表3中的数据将被过滤，以获得所请求的数据。用户表单从工作表3获取数据，并通过剪贴式字典显示在组合框中。
以下是问题所在：
我的数据包含在三个电子表格中。如果我点击工作表2上的按钮，请求将在第一时间完成它们的工作。如果我想再做一次(再次点击按钮进行复制、过滤和计算)，过滤器设置错误，计算也是错误的。但是，如果工作表3被
浏览 0提问于2016-07-21得票数 0
1回答
在Excel中，我正在寻找一种通过VBA关闭和重新打开多模式用户表单的方法，这些表单以前是手动打开的。 手动打开两个模式的用户表单都很好:第一个用户表单是通过单击工作表上的按钮(activx)打开的，第二个用户表单是通过单击第一个用户表单上的按钮(commandbutton2)打开的。 为了将更新应用到工作表，我需要临时关闭两个用户表单。我尝试了以下代码： userform2.hide 'needs to be hidden before hiding the first userform, since both forms are modal
userform1.hide
user
浏览 17提问于2019-12-07得票数 0
回答已采纳
B列中的单元格是下拉列表。因此，如果有人在单元格B2中选择“提醒”，那么UserForm就会出现。我希望B列中的每个单元格都会出现这种情况。下面的代码实现了这一点，然而，每当我在excel中单击时，UserForm就会继续弹出。即使我已经在我的UserForm中提交了数据。如果每个单元格的值为“提醒”，但如果输入其他单元格作为“提醒”，则保持表单显示的能力。如果B2是唯一一个作为“提醒”输入的表单，我不希望每次移动到工作表时表单都会一直显示出来。这是我第一次尝试UserForms，所以我希望我的问题是有意义的。任何帮助都是非常感谢的。谢谢!
代码：
Sub Worksheet_Selectio
浏览 5提问于2016-12-23得票数 1
回答已采纳
编辑:将代码链接到问题源！
当一些人试图运行我的自定义启用宏的工作表时，我遇到了一个非常奇怪的问题。当我现在测试的时候，我就是找不到我的错误。
这个错误发生在‘过时’表单，当我点击'salvar‘按钮时，它表明我的变量没有设置到目标工作表位置的值。
此工作表的工作原理：
这是一个基于业务服务名称的表单测验，位于"sistemas“sheets A栏中，用户必须设置SLA、响应时间和所选服务的重要性。当一个用户想要报告某个服务不再属于他们时，单击按钮"Não pertence a equipe“并在新窗口中放置一些值，然后单击"salvar”，就会出现错误。
示例
浏览 0提问于2018-08-31得票数 0
1回答
我有一个UserForm，用户可以从中选择在活动工作表中进行选择，该选项在代码中进一步使用。
Private Sub CommandButton1_Click()
Dim results As String
Me.Hide
results = get_range_from_selection()
Me.Show
TextBox.Text = results
End Sub
Public Function get_range_from_selection() As String
Dim selection As Range
浏览 0提问于2019-08-18得票数 1
回答已采纳
2回答
我有一个VBA用户表单，我希望如果用户在任何地方(最好是屏幕上的任何地方，但我会把用户表单中的任何地方作为一个可行的次佳选项)单击鼠标，它就会关闭。
下面是我在Userform_Click子例程中的一行代码，它位于用户表单代码中(不在标准模块中，也不在“此工作簿”中，也不在工作表中)：
Private Sub UserForm_Click()
Unload Me
End Sub
我遇到的问题似乎是调用UserForm_Click子例程。无论我在哪里点击多少次，它似乎从来没有被调用过。这看起来应该很简单，但我肯定遗漏了什么。
如果有人在其他地方问过这个问题，我很抱歉，但我在搜索中找不
浏览 51提问于2020-03-06得票数 0
回答已采纳
用途:单击范围内的单元格(范围: excel工作表上的K:K列)。单击K列中的特定单元格后，将使用以下代码弹出带有单元格值的userform：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("K:K")) Is Nothing Then
Credit_Information.TextBox
浏览 6提问于2015-09-29得票数 1
回答已采纳
我有一个UserForm，它有一个按钮，可以改变活动的、可见的工作表上选定单元格的字体。
当我单击该按钮时，我希望执行基础VBA，然后将焦点移回选定的单元格。
现在，焦点仍然是UserForm，因此需要在目标单元格上额外单击鼠标才能继续编辑单元格内容。
我尝试过在button VBA例程的末尾添加ActiveSheet.Activate和ActiveCell.Activate；没有效果。
单击UserForm按钮后，如何使原始ActiveCell具有焦点？
浏览 1提问于2015-08-14得票数 0
1回答
我有一个带有组合框的userform，其中填充了存储在隐藏表中的客户端名称列表。我试图使它，以便用户可以选择一个名称，并单击一个按钮，以打开客户的个人资料(姓名，地址，电话号码等)。
在做其他字段之前，我正试图让它只为名称工作。当我查看配置文件时，名称标签(我命名为name_)为空。ClientBox是带有userform2上名称的组合框的名称，ClientProfile是带有name_标签的用户名。
最后两行注释是我在尝试此方法之前尝试过的。这两种方法都不管用。
Sub ProfilePopulator()
Dim index As Integer, str As String
浏览 1提问于2013-11-13得票数 0
1回答
我需要编写一段代码，当用户单击userform或其他工作簿的外部区域时，可以在其中禁用userform。
我试过了
Userform.Show vbModeless
但是它并没有给出我想要的结果，当我点击返回到userform时，不可能激活它。
请注意，我使用wb打开{ userform.show 0}和整体点击内部工作表。
我认为这种不化或激活会对我有帮助。有什么想法吗？
浏览 1提问于2022-01-12得票数 0
2回答
我加载了一个UserForm，做了一些事情，然后想隐藏该UserForm并显示其中一个打开的工作表。此工作表有一个命令按钮，用于运行将再次显示UserForm的宏。发生的情况是，当我隐藏UserForm时，ActiveSheet变成了加载UserForm时处于活动状态的那个。随后定义活动板材的尝试将被忽略，不会出现错误消息。
UserForm1.Show
' stuff
Workbooks("datafile").Sheets(1).Activate ' ActiveSheet is correctly redefined
UserForm1.Hide
浏览 0提问于2019-10-11得票数 0
我正在用Excel做一个小应用程序，当用户单击UserForm中的按钮时，我有以下代码
Private Sub SubmitNuevo_Click()
Call FindNextEmptyRow 'after this nextEmptyCell has a Range object
Dim currCell As Range
Set currCell = nextEmptyCell.Cells(1, 1)
Dim s() As String
s = Split("macro,name,area,dept,model,range,prio
浏览 3提问于2012-06-26得票数 0
回答已采纳
我在Excel中创建了一个UserForm。UserForm中添加了一个ListBox和一个CheckBox。
我编写了VBA代码，用ListBox工作表第1列中的数据填充UserForm_Data。我试图将Select添加到UserForm中。当我单击CheckBox一次时，没有出现选中标记，而是执行事件的Me.CheckBox.Value = True部分，并选择ListBox中的所有项。只有当我第二次单击CheckBox时，才会出现复选标记。附加Excel代码和UserForm的图像。
Option Explicit
Private Sub ListBox1_Change()
Dim
浏览 19提问于2020-12-10得票数 0
我目前有一个包含多页和一个列表框的UserForm1。列表框实际上显示了excel工作表本身的一系列数据。
我已经将Userform2设置为弹出窗口，以填充添加到excel工作表中的信息，然后在Userform1的列表框中替换这些信息。
本质上，用户导航到列表框，点击命令按钮，弹出窗口出现，用户完成信息，点击"ok“，然后显示在列表框中。
我遇到的问题是，当用户点击"ok“时，我无法刷新列表框。
我在"ok“命令按钮中的代码是：
Private Sub CommandButton1_Click()
Dim LastRow As Long, ws As Wo
浏览 0提问于2016-06-26得票数 0
我有一个用户表单设计了3个列表框，这是多个选项。
另外，我有三个命令按钮，它们是"Filter“、"Unfilter”和"Exit“。
通过下面的代码，我可以通过工作表中的按钮访问userform。
sub dev()
userform1.show
end sub
在userform中，我选择复选框，然后单击"Filter“。有了这个，我可以在我的工作表“数据”中看到过滤的结果。
问题是，当我单击工作表“数据”中的按钮时，列表框具有前面的选择。我想清除列表框中先前的选择。目前，我有一个明确的情况，在我的反过滤按钮。
我想把它放在主命令按钮上。
我试过这样的方法
浏览 1提问于2017-08-21得票数 0
回答已采纳
我有一个UserForm，其中用户将选中复选框，这将被复制到Excel工作表。当打开UserForm时，它将检查Excel表格中的数据，当单击UserForm上的Apply按钮时，UserForm数据将被放入Excel表格中。
CheckBox对象将类似于-
UserFrom Name : Config
CheckBox Names : B1M101, B1M102, B1M103 (will be supplied dyanmically)
这是我的工作，(没有工作)-
For i2 = 1 To 99
ModuleN = "B1M10"+i2
浏览 22提问于2018-05-28得票数 2
因此，我有一个Userform，它可以从excel工作表中获取信息并预先填充Userform，或者将Userform信息输出回excel工作表。此问题是在从excel数据预填充Userform时发生的。
如上面的图片所示，这是Userform本身，在单击“预填充”选项之后，我得到了运行时错误"13"：类型不匹配的。因此，当我调试它时，它转到了下面的第5行，它对应于代码的预填充部分。
With Sheets("DoNotPrint - Setup")
If .Range("H28").value = "Chief
浏览 0提问于2019-07-29得票数 0
回答已采纳
我有两个用户表单-- Userform1有很少的文本框、组合框和复选框，还有一个命令submit按钮，在这里它卸载userform1，并显示userform2 Userform2有其他的textbox和combobox以及一个submit按钮。
我希望userform2提交按钮一次将userform1和userform2中的所有数据更新到我的工作表中(最好先将userform1数据更新到工作表，而不是移动到userform2并更新其数据)
Private Sub cmdsubmitdata_Click()
Application.ScreenUpdating = False
Windows(&
浏览 2提问于2017-08-31得票数 1
回答已采纳
我正在尝试编写显示UserForm1的CommandButton1代码。在Userform1中，我想要一个使用工作表中单元格的值的超链接。我希望UserForm1卸载时，该链接被点击。
我会记下我所知道的。但我遗漏了大部分代码。具体地说：
我如何实际显示链接？
如何编写代码以便在单击链接时取消UserForm1？
Private Sub CommandButton_Click()
UserForm1.Show
End Sub
Private Sub UserForm1_Click()
Dim URL As Hyperlink
URL = "http:/
浏览 0提问于2013-07-10得票数 2
回答已采纳
我正在尝试使用一个输入框来选择工作表中的一个范围。从理论上讲，这很简单。用户在工作表上选择一个命令按钮，该命令按钮打开一个userform。userform允许选择几个选项按钮中的一个。提交表单后，我希望用户能够从活动工作表中选择一个范围。
在用户表单提交之后，将出现范围输入框，但不允许在活动工作表上进行选择。
如果我直接从工作表调用inputbox (不要在userform中运行)，则输入框可以正常工作。但是，在这个应用程序中，我需要userform来允许选择。
我已经尝试重新激活工作表，以编程方式选择默认范围，隐藏和卸载用户表单。
从根本上说，这就是我所做的一切：
Public Funct
浏览 1提问于2016-01-08得票数 0
回答已采纳
我有一个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回答
我希望在某个单元格中单击，并显示带有Monthview的Userform，然后，一旦我选择了日期并将其插入到单元格中，我希望userform自动关闭。
此代码在工作表中。
Private Sub worksheet_selectionchange(ByVal target As Range)
If Not Application.Intersect(Range("l14"), target) Is Nothing Then
UserForm1.Show
End If
End Sub
此代码位于UserForm - MonthView1中。
Pr
浏览 1提问于2018-07-26得票数 1
当基于UserForm选择单元格时会发生此问题，该宏被分配给工作表上的窗体控件(Button)的宏调用。
在选定工作表和单元格后，数据不会输入到选定的单元格中(最初)，当选择不同的单元格(选项卡、返回、箭头键)时，数据将消失，鼠标单击另一个单元格将停止效果。
要重现这个问题，您需要：
有两个工作表的工作簿(我的分别命名为Book1、Sheet1和Sheet2 )
Sheet1上的表单控件按钮
带有命令按钮的用户表单(UserForm1和CommandButton1)
一个模块(Module1)
Module1应该包含以下内容：
Sub ShowForm()
Us
浏览 0提问于2015-12-18得票数 4
2回答
我有一个userform，它有一个命令按钮来打开另一个userform。这在大多数情况下都能很好地工作，但是有一种特殊的场景，它根本不起作用。
所述用户通常在多个监视器上工作，并打开多个工作簿。这些其他工作簿与我的工作簿没有关联。
如果用户正在监视器1上的另一个工作簿中工作，然后单击该按钮在监视器2上打开辅助用户表单，则辅助用户表单将在监视器1上打开，其行为就像它的父用户是另一个工作簿一样。要纠正这种行为，用户需要单击监视器2的工作簿上的一个单元格，然后单击按钮打开辅助用户表单。因此，这似乎是一个工作簿激活问题，但事实并非如此。
我尝试过不同的方法来激活正确的工作簿，然后用代码显示辅助用户表单
浏览 0提问于2018-10-03得票数 2
1回答
我有点糊涂了。如何通过用户表单控制excel工作表？例如：
单击excel工作表上的“窗体”按钮打开用户窗体。
通过单击用户表单中的按钮创建新的excel工作表。
我是否需要在vba的“模块”部分或"userform“部分中编写所需的代码？
浏览 4提问于2016-09-05得票数 2
回答已采纳
我找到了一种方法，可以将工作簿中的所有工作表添加到UserForm上的UserForm列表中，这是通过使用以下代码完成的
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
cmbSheet.AddItem ws.Name
Next ws
End Sub
我的问题是，我只需要添加一些特定的工作表，而不是全部。例如，我的用户将选择特定的工作表，通过单击“继续”按钮，将结束在所选工作表上继续他/她的任务。我的工作簿包含几个工作表，其中一些用来输出数据(
浏览 1提问于2014-03-09得票数 1
回答已采纳
在用户表单中，我想显示两个列表框。在listbox1中，我将显示打开的工作簿，但个人工作簿除外；每当我单击Listbox1中的某个工作簿时，我都希望在Listbox2中显示该工作簿中可用的工作表。通过一些研究，我发现了下面的代码，它代表了我在这方面所做的工作：
Private Sub UserForm_Initialize()
UserForm1.Caption = "Workbooks and Sheets"
Dim wb As Workbook
Dim n As Long
For Each wb In Application.Workb
浏览 4提问于2017-11-03得票数 0
回答已采纳
1回答
我有一个Excel用户表单，它有多个需要滚动条的多行文本框.当我在文本框中单击滚动时，它从文本的底部开始。当这种情况只发生在用户表单上的一个文本框时，我使用了以下方法：
Userform1.TextBox1.SelStart = 0
一切都成功了。如果我试图在同一表单中的多个文本框上使用该功能，滚动条将不会出现在任何框中。有人知道怎么解决这个问题吗？
更新：
我发现了一个怪癖，我的帮助缩小了问题的范围:使用多个文本框，selstart=0可以在第一个文本框上工作，但接下来我需要一个更大的数字来启动下一个文本框。举例说明。下面的代码将滚动条放在两个文本框的顶部。表单是通过双击工作表1显示的，文
浏览 3提问于2017-03-11得票数 2
回答已采纳
1回答
我有一个名为UFCustInfo的userform。在工作表区域，我有一个宏来显示表单-
Private Sub CmdShowInputForm()
UFCustInfo.Show
End Sub
这将分配给工作表上的按钮(窗体控件)。
在userform区域，我还有一个初始化例程来填充userform上的组合框-
Private Sub UserForm_Initialize()
Me.CBCustName.List = ActiveSheet.ListObject("CustInfo").ListColumns(1).DataBodyRange.Val
浏览 3提问于2016-08-12得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
