Tag: userform

button单击（VBA）将所有内容从列表框（variables行，常量列）复制到表中: 我有一个用户表单，用户将从各种其他窗体控件（文本框，combobox等）填充列表框。每个数据条目将有8列填充。这个想法是，用户将input数据条目（这可能是在同一类别条目中的子条目，因此能够在列表框中一起查看条目的整个批次（或类别））的期望的function），查看input，如果检出，点击一个button为了提交数据到一个表格（这是数据处理模式的基础，根据input数据批次吐出图表等）。所以我想编程以下内容： – 代码，查找主表中的下一个空行，并复制列表框的全部内容，从表中交换表中的相应单元格。因此，每次input将是8列（列AH）和X行。我已经尝试了许多不同的代码，从网上改编，但不断发现错误或只能复制第一个条目。这是我尝试的最后一个代码示例： Private Sub cmdEnter_Click() Dim LastRow As Range Dim ProjectsTable As ListObject Dim i As Long Sheets("Project data").ListObjects("Projects").ListRows.Add 'Enter data from form into our new row Set ProjectsTable = Sheets("Project data").ListObjects("Projects") Set LastRow = ProjectsTable.ListRows(ProjectsTable.ListRows.Count).Range With Sheets("Project data") For i = 0 To ListBox1.ListCount – 1 […]

工作表中的Excel VBA和用户窗体login和密码VLOOKUP表: 我一直试图让我的login用户表单login时单击基于工作簿中的表中的数据，但我似乎无法得到正确的代码。详细信息是：用户表单用户名文本框=用户名文本框; 用户forms的密码textbox = PasswordTextbox; 用户表单提交button= LoginButton 我的工作簿有一些表，其中之一是"Users" 。在该表中，有一个名为"Users_Table"的表。该表有4列： ID（用户的个人ID）[列A]，用户名[列B]，密码[C栏]， pipe理员（答案是“真”或“假”取决于他们是否有pipe理员权限）[D栏]。我试图做到这一点：如果用户名和密码是正确的用户，如果pipe理栏条目是假的，那么我想显示工作表"Quick Add"和"Overview" ，我想使工作表"Admin"隐藏（不是非常隐藏，因为我需要使用这张表上的数据为其他macros），并使"User"表非常隐藏，所以这些login无法看到其他用户的详细信息。但是，对于正确input用户名和密码的用户以及pipe理员列条目为True的用户，我想显示所有表单。这是我迄今为止： Private Sub LoginButton_Click() Dim Username As String Username = UsernameTextbox.Text Dim password As String Password = PasswordTextbox.Text If IsNull(Me.UsernameTextbox) Or Me.UsernameTextbox = "" Then MsgBox "You must enter your username.", vbOKOnly, "Required Data" Me.UsernameTextbox.SetFocus […]

VBA选项button如何链接到模块？: 您好我有一个用户表单，允许您从信息中select，并以特定的格式作为string粘贴。我有一个单独的模块创build这个string如下： Sub Skeleton_Query1() UserForm2.Show strQuery = "SEL " & Chr(10) & strSelectedColumns & Chr(10) & "FROM Database.Table1 A" _ & Chr(13) & "Left Join Database.Table2 B" & Chr(10) _ & "On A = B " & Chr(13) End Sub 其中strSelectedColumns是来自用户窗体的信息。我基本上想打勾我有如下的选项button： Private Sub OptionButton3_Click() strPeriodicButton = UserForm2.OptionButton3 End Sub 我想要的是添加类似于下面的东西到我的模块，所以如果我勾选选项框，它会检查看是否打勾或添加一个string到我的上面的string： If strPeriodicButton = True […]

多选列表框内容到范围: 使用VBA我创build了一个用户窗体与各种文本框，combobox和列表框。我现在设置它，所以一旦你点击提交button（ Commandbutton1 ），各种框内容填充我的工作表上选定的单元格。 Private Sub CommandButton1_Click() Sheets("Sheet2").Range("D4") = TextBox1.Text Sheet2.Cells(5, 4) = ComboBox2.Text Sheet2.Cells(6, 4) = ComboBox1.Text Sheet2.Cells(7, 4) = TextBox2.Text Sheet2.Cells(8, 4) = TextBox4.Text UserForm1.Hide End Sub 我也希望我的多选列表框的内容为单元格（9，4） – （15，4）做同样的事情。我怎样才能做到这一点？这个多选列表框的选项范围从Insight，梭子鱼，锡耶纳，Visio，项目。

使用2个子variables: 我在excel文件中有20多个子文件，还有一些用户forms。在一个用户窗体中，有一个取消button，但是我不能在另一个子窗口中使用“if cancel = true”的代码。我不知道为什么，但它永远不会实现。所以我认为，如果我可以声明一个variables在用户窗体中是真实的，然后检查另一个子variables，那么可能工作，但不幸的是，我不知道这一点。在下面你可以find两个代码; 这是用户表单; Private Sub Sheet_Iptal_Click() Dim Sheet_Iptal As String Sheet_Iptal = True ThisWorkbook.Worksheets("Storyboard").Delete Yeni_Sheet_Adi_Olustur.Hide MsgBox "Islem iptal edildi." Yeni_Sheet_Adi_Olustur.Yeni_Sheet.Value = "" End Sub 这里是我想检查“Sheet_Iptal”情况的另一个子部分。 If Sheet_Iptal = True Then ThisWorkbook.Worksheets("Storyboard").Delete GoTo son End If 我在这里基本上试图实现的是，如果已经使用了取消button，那么去该特定子的“儿子”。我接受任何build议。

与最大范围的副本问题。用户select的范围: 我正试图写一个macros，它会要求用户提供工作簿，macros打开工作簿。用户select要复制的范围，并指定在“用户窗体”中粘贴数据的工作表。将选定范围的macros复制到指定的工作表。但是我面临着一些问题。这是代码： Public Sub copy_WB() Application.DisplayAlerts = False Dim wbk As Workbook, answer As String,lrow as long, lcol as long Dim UserRange As Range Prompt = "Select a cell for the output." Title = "Select a cell" answer = MsgBox("Would you like to clear all data?", vbYesNo, "Confirmation") If answer = vbYes […]

反复打开用户表单中的用户表单会导致对象问题: 我目前已经在Excel 2003中build立了一个工具，它显示了一系列的数据input表单。客户要求在表单上有“上一个表格”和“下一个表格”button。用于在表单之间移动的代码如下所示 Sub NextForm(strFormName As String) Dim intCurPos As Integer Dim strNewForm As String 'Find out which form we are currently on from a list in a range intCurPos = WorksheetFunction.Match(strFormName, Range("SYS.formlist"), 0) If intCurPos = WorksheetFunction.CountA(Range("SYS.formlist")) Then 'We want to use the first one intCurPos = 0 End If 'Get the name […]

最好什么search工作表.. EXCEL VBA用户表单: 可能重复： find基于值的单元格位置，然后做一些事情 – 用户窗体VBA Excel 我正在build立一个用户表单，并试图如何编写一段代码： *从用户获取combobox的值。 *在特定的表格上，在特定的列中search此值*获取此值的单元格位置*返回一个办公室设置地址的行，下一个城市的偏移行“ 我之前也问过同样的问题，但是在某种程度上，答案无济于事。这是我的代码，我想出了： For Each cLoc In ORISheetList.Range("ORI_LIST") 'compare the input string from list- considering using Match function for this If StrComp(cLoc, ORIValue, vbTextCompare) Then TextBAgencyName.Value = "test" Else: Next cLoc End If 为每个循环，如果条件不真的在一起工作。我读过有一个在VBBA Excel的查找function。有没有一种方法来获取细胞的位置？谢谢

如何使用VBA从Excel用户窗体读取checkbox的值: 我创build了一个包含两个checkbox的用户窗体。我希望能够做不同的事情，取决于每个框是否被选中或取消选中。但是，似乎不pipe我做什么，它总是会告诉我checkbox的原始值（false和false）。这里是单击CommandButton1的附加代码： Private Sub CommandButton1_Click() ReadData End Sub 这里ReadData： Sub ReadData() Dim myForm As UserForm Set myForm = UserForms.Add("ComplaintEntryForm") Debug.Print (myForm!CheckBox1.Name) Debug.Print (myForm!CheckBox1.Value) Debug.Print (myForm!CheckBox2.Name) Debug.Print (myForm!CheckBox2.Value) End Sub 无论如何选中框，直接窗口总是显示： VBA.UserForms.Add("ComplaintEntryForm").Show CheckBox1 False CheckBox2 False 我有整个操作的截图，但不会让我上传，因为我是一个新用户。

用户表单设置多个过滤条件: 我有6个用户窗口popup，并要求你select你想要sorting的variables： ClientFilter CostCenterFilter UtilityFilter TypeOfWorkfilter AnalystFilter ProjMgrFilter 在每个variables内部使用if语句。 Sub UpdateCF() Integer_CF = -1 If AU_CF.Value = True Then Add_CF String_CF, "AU" Range("$B$6:$AU$68").AutoFilter _ Field:=2, Criteria1:=String_CF, _ Operator:=xlFilterValues End If If AULaw_CF.Value = True Then Add_CF String_CF, "AULAW" Range("$B$6:$AU$68").AutoFilter _ Field:=2, Criteria1:=String_CF, _ Operator:=xlFilterValues End If … End Sub Sub Add_CF(String_CF() As String, NewValue As String) […]