Tag: userform

返回数据最后一行vba用户表格excel

我正在做一些足球数据库，我会input数据使用用户窗体，我想从我的Excel数据库中检索数据。 我有一个名为“wedstrijden”的工作表。 此工作表包含date，HomeTeam，AwayTeam，HomeScore，AwayScore，HomeOdds和AwayOdds。 我的另一个工作表被命名为“ingevenuitslagen”。 这个工作表包含我的名为“UitslagenIngeven”的用户表单。 使用下面的代码，我能够从我的数据input到我的“wedstrijden”工作表： Private Sub putAway_Click() Dim ingevenuitslagen As Worksheet Set ingevenuitslagen = ThisWorkbook.Sheets("wedstrijden") NextRow = ingevenuitslagen.Cells(Rows.Count, 1).End(xlUp).Row + 1 ingevenuitslagen.Cells(NextRow, 1) = CDate(date_txt.Text) ingevenuitslagen.Cells(NextRow, 2) = UitslagenIngeven.cboHomeTeam ingevenuitslagen.Cells(NextRow, 3) = UitslagenIngeven.cboAwayTeam ingevenuitslagen.Cells(NextRow, 4) = UitslagenIngeven.cboHScore ingevenuitslagen.Cells(NextRow, 5) = UitslagenIngeven.cboAScore ingevenuitslagen.Cells(NextRow, 6) = Val(UitslagenIngeven.hodds_txt.Text) ingevenuitslagen.Cells(NextRow, 7) = Val(UitslagenIngeven.aodds_txt.Text) End Sub 但是现在我想使用名为“GetData”的button将最后一行（工作表“wedstrijden”）的值返回给我的用户表单，但我不知道如何编写该button。

使用DTPicker的VBA Userform

试图制作一个具有三个input的用户表单; 名称（通过txtbox），一个comboboxselect菜单和DTPicker，这是给我麻烦。 我无法find此代码中的错误，出于某种原因，它不断给我一个编译错误。 屏幕截图：

从另一个用户窗体中的一个文件调用

写VBA代码调用一个Excel文件的用户窗体到名为john的文件夹中存在的所有其他Excel文件，而主Excel（由以下代码和用户窗体组成）存在于不同的位置： Private Sub Workbook_OnClick() Dim mypath As String Dim file As String Dim wb As Workbook Dim pat As String Application.ScreenUpdating = False ChDrive "C:" ChDir "C:\Users\Administrator\Desktop\John" 'john is a folder that consists of the excel files mypath = Range("B1").Value 'mypath has the same value as chDir file = Dir(mypath & "\" & "*.xlsx") Do […]

VBA如何在USER窗体中显示1个单元格中的1个值

这绝对是一个初学者的问题。 我想知道如何才能在我的用户表单中显示1个值。 我尝试过，但不会经过 – 它至less需要2个值。 ListBox.List = Application.Worksheets("Můj_Ranking").Range("Y5").Value

通过命令buttondynamiccheckbox事件

我目前正在编程一张表格，用图表形象化数据集。 由于这张表的用户不需要所有的图表，我想让他们select通过UserForm需要的。 由于数据集的数量是可变的，所以UserForm将具有与数据集相同数量的checkbox。 用户窗体代码如下。 Private Sub UserForm_Initialize() Dim chkBoxA As MSForms.CheckBox Dim chkBoxB As MSForms.CheckBox Dim lblBox As MSForms.Label Dim cnt As Control Amount = Sheet4.Range("C4").Value 'Amount of datasets For i = 1 To Amount Set lblBox = Me.Controls.Add("Forms.label.1", "Label" & i) lblBox.Caption = "Set" & i lblBox.Left = 5 lblBox.Top = 8 + ((i […]

何时创buildUserForm Windows API句柄？

我正在编写使用Windows API调用pipe理多个用户表单的Z顺序的Excel 2007 VBA。 我正在使用以下过程来检索userforms frmUserDataWS和frmUserDataLT的Windows API句柄： Sub TestZOrder() Dim h_lngWndExcel As Long Dim h_lngUserDataWSWnd As Long Dim h_lngUserDataLTWnd As Long 'frmUserDataLT.Show vbModeless 'frmUserDataWS.Show vbModeless h_lngWndExcel = Application.hwnd h_lngUserDataLTWnd = FindWindow("ThunderDFrame", frmUserDataLT.Caption) h_lngUserDataWSWnd = FindWindow("ThunderDFrame", frmUserDataWS.Caption) Debug.Print "Excel Application window handle … " & h_lngWndExcel Debug.Print "UserDataLT window handle … " & h_lngUserDataLTWnd Debug.Print "UserDataWS […]

VBA – 如何检索一个文本框中的值，并使其出现在另一个？

我有Excel中的用户窗体。 多页面的第一个选项卡有一个名为Staffwage_TextBox的variables。 有人预计会input一个值。 我想检索这个值，并使其出现在名为staffwage的TextBox中的下一个多页上。 到目前为止，我有这个代码： Private Sub staffwage_Change() Dim trial As String Staffwage_TextBox.Characters.Text staffwage = Staffwage_TextBox.Value trial = Staffwage_TextBox.Characters.Text End Sub 任何帮助将不胜感激，谢谢:)

编程列表框select是select错误的项目

我正在构buildExcel VBA项目，该项目使用ListBox来浏览树结构。 通过双击一个项目，它将在下面展开其他项目。 我的目标是通过select这个选项来进行更改，并且更新列表框，同时保留用户点击的select并保持在视图中。 我已经创build了一个单独的工作簿来隔离问题，我必须使其更简单，我将能够复制到我原来的项目的任何解决scheme。 我的列表框被填充使用RowSource。 值存储在一张纸上（由于真正的原因，我会从这篇文章中省略它），对表进行更改，然后再次调用RowSource来更新ListBox。 通过这样做，ListBox将会更新，然后跳转到所select的位置是视图中的最后一个项目，但是现在select的列表项目是前一个select位置中不正确的。 例： 用户使用滚动条向下滚动列表框并双击项目“testing100” 列表框被更新，但是select不正确。 select“testing86”，它位于视图底部的先前select“testing100”的位置。 这是示例工作簿的下载链接 我希望有人能够照亮一个优雅的解决scheme，以纠正这种行为！ 我已经尝试了在RowSource更新之后以编程方式进行select，但是这不起作用。 通过添加一个简短的暂停和调用DoEvents（在示例中注释），我已经能够在一定程度上使这个工作，但是我发现它不是所有的时间工作，我宁愿不必强制因为这样会让ListBox在我原来的项目中感觉不到响应。 Private selection As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) selection = ListBox1.ListIndex Call update End Sub Private Sub UserForm_Initialize() Call update End Sub Sub update() With Sheets("Test") ListBox1.RowSource […]

将数组作为parameter passing给列表框时出错

目标：创build一个用户窗体并获取用户input，然后从用户input中将其放入一个列表中，当您单击该列表时，将自动在整个工作簿中find它。 像这样的东西： 我看到这个post： 匹配整个工作簿 我创造了一些东西： Public Sub CommandButton3_Click() Dim TempArray As Variant Dim RealArray() TempArray = Application.InputBox("Select a range", "Obtain Range Object", Type:=64) ArrayRows = UBound(TempArray) ReDim RealArray(1 To ArrayRows) For i = 1 To ArrayRows RealArray(i) = TempArray(i, 1) Next i MsgBox "The number if rows selected are " & ArrayRows ListBox1.List = RealArray […]

使用combobox在excel用户窗体中select和selectbutton

我是vba的新手，并且遇到了一些用户窗体问题。 我想这样做，当在combobox中的select包含某个字母，一个选项button被选中。 我试图使用的代码是： Private Sub ComboBox1_Change() If ComboBox1.Value = "*C*" Then OptionButton3.Value = True End If If ComboBox1.Value = "FR 850 C BLUE" Then TextBox2.Value = "BLUE" End If If ComboBox1.Value = "FR 850 C WHITE" Then TextBox2.Value = "WHITE" End If End Sub 但是， TextBox2只显示如下： Private Sub OptionButton3_Click() TextBox2.Visible = True With Me.TextBox2 .Value […]