Tag: 表单

运行时创build的命令button代码不起作用: 我需要创build将在运行时创build的CommandButton的代码。这个命令button是dynamic的，因为它基于用户数据。 User_From代码 Private Sub UserForm_Activate() Dim ctlTXT As Control For RevNo = 1 To RevCounter Set ctlTXT = Me.Controls.Add("Forms.CommandButton.1") ctlTXT.name = RevNo ctlTXT.Caption = Sheet4.Range("D" & RevNo + 4).value ctlTXT.Left = 18 ctlTXT.Height = 18: ctlTXT.Width = 72 ctlTXT.Top = 15 + ((RevNo – 1) * 25) Next Me.Height = (RevNo * 17) + […]

VBA UserForm具有相同值的多个combobox: 我想在Excel用户窗体中创build3个不同的combobox。总共会有每种types的x。我想要这样的代码： With ComboboxAi for i = 1 to 5 .AddItem "monday" .AddItem "tuesday" With ComboboxBj for j = 1 to 6 .AddItem "january" .AddItem "february" 我的combobox被命名为： ComboboxA1，..，ComboboxA5，ComboboxB1，..，ComboboxB6 有人可以帮我做出正确的代码吗？

将单元格中的多个值链接到userform vba中的checkbox: 嗨，我有以下searh命令： Private Sub Search_Click() Dim Name As String Dim f As Range Dim r As Long Dim ws As Worksheet Dim s As Integer Dim FirstAddress As String Name = surname.Value With ws Set f = Range("A:A").Find(what:=Name, LookIn:=xlValues) If Not f Is Nothing Then With Me firstname.Value = f.Offset(0, 1).Value tod.Value = f.Offset(0, 2).Value program.Value […]

用“X”closures用户窗体并退出Excel: 我正在创build一个用户窗体，我希望用户通过拐angular处的“X”closures用户窗体，这样我就可以closures/退出Excel。我试了UserForm_Deactivate（），但它不工作或调用“X”时按UserForm_Deactivate（）。这里是代码 Private Sub UserForm_Deactivate() Application.Quit End Sub 我也尝试了工作簿（1）。closures和ActiveWorkbook.Close，没有工作。我的用户表单是由“Organizador”命名的，我不知道是否因为我尝试了Organizador_Deactivate（）而没有任何区别，什么也没有发生。提前致谢

获取函数（）结果作为控制: 背景：我需要一个函数来根据STD名称和分析的文本有效地关联控件。 IG： a）其他一些input引发variables“mytext” b）如果ListBox1.Value有“mytext”，那么我必须把它与ToggleButton1联系起来做法：我做了部分工作的以下function 码： Private Function RelateControl_ToggleVsList(ToggleCtrl As Control) As Control Dim ItemControl As Control Dim myControl As Object For Each ItemControl In Me.Controls If TypeName(ItemControl) = "ListBox" Then ' 1. If TypeName(ItemControl) = "Label" 'text lenghts const 13 for ListBox_TimeXX and 22 for ToggleButton_PriorityXX If Mid(ItemControl.Name, 13, 2) = Mid(ToggleCtrl.Name, […]

VBA> UserForm>通过任何控件inputstring数组: 是否有任何控制UserForm允许input多行文本？如果不是，任何build议如何获取通过UserForm手动input的string数组？头脑风暴5分钟后的唯一方法是使用文本框+“添加”button将input的string添加到列表框，然后阅读ListBox控件的内容。

用户窗体和多个图像: 我有一张工作表，它查找了一个数据库，该数据库有一个指向某个代码的所有可用图像的path。我想要做的是，当用户在Excel电子表格中input代码时，它会在同一行的表格右侧创build一个button（很简单），然后单击该button将popup用户窗体。在这个用户表单中，我想要列出数据库中与该代码匹配的所有图像。一些代码可能有一个图像和一些多达5个。我也希望每个这些标记为1到x（其中x是最终的图像）。一旦我有了，我希望能够有一个用户点击一个或多个图像，将它们添加到Excel表（通过数字引用，所以如果用户点击1,3和4我希望它把“1， 3，4“在代码旁边的单元格中）。或者我或者只是点击取消并手动input数字。是我想要的可能吗？我将如何去呢？我绝对没有使用VBA的用户表单的经验，但真的想看看他们的能力。谢谢本

将UserForm文本框值传递给单元格: 社区，我是中等偏上的新手。我有一个名为Box_One的文本框。这已经build立在我的用户表单上。我所要做的就是使单元格的值始终等于文本框中的值。我尝试了以下，但不太清楚如何正确实施 Home.Range("A2").Value = Box_One.Value

Excel VBA：如何停止程序并返回到代码中的某个步骤，“绕过MsgBox的模态限制”: 我有一个用户界面，用户input一些信息。然后他们按下一个button来生成报告。但是用户不能在生成报告时打开某些文件。如果用户打开一个文件，我想要popup一个错误消息通知他们。然后，我想让用户修复问题（closures文件），而不必重新启动程序，因为他们已经input了信息。我有MsgBoxpopup： Do While IsFileOpen(wfileName) MsgBox "Please close the Weights Machine Data Excel File '" & getFileName(wfileName) & "' to proceed", vbInformation, "Error" Loop 问题是一旦错误消息发生，用户不能做任何事情。我知道MsgBox是模式，但有没有办法解决这个问题。如果不是，我希望用户返回到按下generateReportbutton之前的点，所以他们不必重新键入他们input的任何信息。我该如何解决这个问题？

vba elseif不会运行下一个条件: 我必须创build一个用户窗体，代码不会运行下一个条件 If name = "" Then MsgBox ("please enter your name") End ElseIf Cleanbox = False And CavBox = False And RayBox = False And FluBox = False And RootBox = False And OtherBox = False Then MsgBox ("Please select a service") End ElseIf Cleanbox = True Then total = total + 35 ElseIf CavBox […]