Tag: 表单

填充combobox问题 – 每次select框时重复的值，并且命名范围不填充: 我是新来的VBA和StackOverflow，所以我提前道歉，任何错误。我有一个用户窗体，最终将有16个combobox。所有这些combobox中的16个将具有相同的5个调查响应选项）。我的第一个尝试是像这样填充它们，每个combobox重复16次： Private Sub cboAE1A_DropButtonClick() 'Populate control. Me.cboAE1A.AddItem "Strongly disagree" Me.cboAE1A.AddItem "Disagree" Me.cboAE1A.AddItem "Neither agree nor disagree" Me.cboAE1A.AddItem "Agree" Me.cboAE1A.AddItem "Strongly agree" End Sub 但是，当我testing表单时，不止一次selectcombobox复制响应选项。所以，如果我点击它，一切都很好。第二次，我看到3组响应选项，等等。这是为什么？我能做些什么来防止它？其次，为了避免重复上述代码16次，我find了这个链接，并试图使其适应我的目的： Private Sub ufrmGenderTraining_Initialize() 'Populate AE1A combo box. Dim rngRespuestas As Range Dim ws As Worksheet Set ws = Sheets("INPUTS") For Each rngRespuestas In […]

在其他代码执行时，Gif不会在Excel VBA Form的Webbrowser Control中连续播放: 我创build了一个用于获取用户凭据的表单，login我们公司的系统并请求导出。当点击“Get Exports”button时，显示gif（旋转轮）和文本（首先build立连接，当启动Internet Explorer实例时，应该更改为“Validating User Credentials”）。我遇到的问题是gif不是一贯的播放，而是在我创build/显示的代码执行完成之后。单击之前的表单用户表单代码： Dim progresslbl As Object, progressbar As Object Dim webBr As Object 'vbNewLine for linebreak in msgbox Private Sub GetExports_Click() 'Call FetchExports number = login.number.Text username = login.username.Text password = login.password.Text Label2.Enabled = False Label4.Enabled = False login.number.Enabled = False login.username.Enabled = False login.password.Enabled = False login.Height […]

如何将popup式日历forms合并到现有的用户窗体中: Trevor Eyre的popup式日历版本给我留下了非常深刻的印象（第11号答案），我很兴奋地将它融入到我正在开发的一个用户表单中，这对我来说具有很大的挑战，因为我对VBA有着非常基本的经验。在VBA的文本框中格式化MM / DD / YYYYdate （解答＃11）链接到Trevors示例电子表格https://www.dropbox.com/sh/0n9gyc32rlr31n2/AAAW7ADAWiLEZRHftERro9Tva?dl=0 例如，我有一个名为SECINC的用户表单，并有一个文本框（IncidentDate），用户必须input事件date，直到遇到Trevor的popup日历版本。我在Excel 2013（64位）和MSdateselect器不可用。我已经从模块1的所有代码复制到我的项目书的模块1，并保存并导入CalendarForm，然后我有我自己的用户窗体，请参阅链接： SECINC用户表单示例我很高兴地使用基本的CalendarForm，但我唯一缺less的是如何在用户单击IncidentDate文本框并selectdate填充IncidentDate框时调用日历窗体。我添加了一个日历的“图像”，并想知道如何将其链接到CalendarForm，以便单击它时将打开日历并将date放入IncidentDate文本框中。我需要IncidentDate文本框中的date格式以DD / MM / YY格式显示。我在想，对于我们来说，以视觉为基础，以video教程的forms来看它，对于那些刚接触VBA的用户来说，这可能是有利的。如果我迷惑了你，或者你需要更多的信息，请告知。提前感谢你， TheShyButterfly

使用Excel VBA Hyperlink表单添加到userform的链接: 所以我想通了这一行代码： Application.Dialogs（xlDialogInsertHyperlink）.Show 将调出添加超链接表单。但是，这种forms专门输出到选定单元格的链接。我想知道是否有办法把输出放在用户input框中？如果没有，有没有办法可以查看默认的InsertHyperlink窗体并编辑它，所以我可以？感谢您的答复！

Excel VBA Userform如何添加和减去variables？: 我有一个用户窗体，在用户窗体的第1页上，用户在一个名为as_1的文本框中input一些文本，另一个名为annualsaving1的文本框。在用户表单的第5页上，我想在文本框中添加两个variables，名为“TextBox36”。这是我一直在使用的代码： Private Sub Page5a() I = as_1 + annualsaving1 TextBox36.Value = I End Sub 当我使用这个代码时，只有as_1的值出现。它不会添加“annualsaving1”。任何帮助将不胜感激，谢谢:)

列表框中使用.Find和if语句的不同偏移量vba: 我有一个用户表单中的数据库显示search的列表框。我在数据库中有14列，我希望能够search信息。所以我有一个文本框用于search和一个列表框来查看文本框更改结果。这是我现在的代码： With ARK_database.Range("A:AS") Dim rng2Find As Range Dim strFirstFind As String lstLookup.Clear If Not kritLookup.Text = "" Then Set rng2Find = .Find(kritLookup.Text, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) If Not rng2Find Is Nothing Then strFirstFind = rng2Find.Address Column = rng2Find.Column Do If Column = 1 Then If rng2Find.Row > 1 Then lstLookup.AddItem rng2Find.Value 'RefNr lstLookup.List(lstLookup.ListCount […]

Excel 2013 64位 – VBA Userform – 添加28天到文本框的date，并显示在另一个文本框中: 在我的用户表单中，我有一个用户手动input事件date的文本框“ADD_Inc_DATE_TXT”。我有另外一个文本框“TxT_SWIRL_DueDate”，它应该显示在“ADD_Inc_DATE_TXT”文本框中inputdate的28天的添加结果，甚至只是在事件发生的date添加1个月。我已经在名为“Mod_SWIRL_Due_Date”的模块中尝试过了 Sub SWIRL_ExpiryDate() TxT_SWIRL_DueDate = CDate(ADD_Inc_DATE_TXT) ADD_Inc_DATE_TXT = DateAdd("m", 1, ADD_Inc_DATE_TXT) End Sub 但是这似乎并没有做任何事情。我希望“TxT_SWIRL_DueDate”显示select“ADD_INC_Time_TXT”文本框时的失效date。而且为了让用户修改事件date，我希望用修改后的date更新TxT_SWIRL_DueDate。更多信息：我已经在下面列出了所有与date有关的代码。我有4个dateselect器/popup日历…没有date以dd / mm / yyyy格式出现。（在将代码放在'代码示例'中有一些问题） Private Sub Calendar1_Click() ADD_Inc_DATE_TXT.value = CalendarForm.GetDate If IsDate(ADD_Inc_DATE_TXT.Text) Then Me.LBL_Inc_Day_Type.Caption = Format(ADD_Inc_DATE_TXT.Text, "ddd") End If If IsDate(ADD_Inc_DATE_TXT.Text) Then Me.ADD_Inc_DATE_TXT.Text = Format(ADD_Inc_DATE_TXT.Text, "dd/mm/yyyy") End If End Sub Private Sub Calendar2_Click() TXT_AssetMgr_DATE […]

Excel用户表单 – 不读取或写入电子表格: 我创build了一个新的用户表单，它将数据写入电子表格，然后使用下拉菜单将数据载入表单，供您编辑和重新保存。当我点击保存它不会写入电子表格，当我预先填充电子表格，它不会然后加载到用户窗体。我有下面的代码适用于类似的用户窗体，但不会为我正在编译的新的工作。运行时没有错误信息。我错过了什么？ Dim NotNow As Boolean Dim dropbuttonclicked As Boolean Private Sub cmd_Submit_Click() 'Submit Dim emptyRow As Long 'Make Sheet1 active Sheet1.Activate 'Determine emptyRow emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Dim RowCount As Long Dim ctl As Control ' inputs new project if no ref selected If Me.cboSearch.Value = "" Then Application.ScreenUpdating = […]

'对象范围'_Worksheet失败 – 用户表单: 我正在使用VBA – Excel 2016 我试图从一个表单中调用一个用户表单input，find另一个表单上的下一个空白行并插入值。但是我不断收到一个运行时错误 – “对象的范围”_Worksheet失败。该表单是从另一个表单中调用的。我试过各种解决scheme，但似乎没有任何工作。我在其他地方使用几乎相同的代码，当调用窗体并将值插入到同一张表中时，所以得出的结论是它必须closures以访问其他表。它在这条线上失败： ActiveWorkbook.Worksheets("Suppliers").Range("A" & NextRow) = SupplierName 我使用的代码如下。 Private Sub addSupplierConfirm_Click() 'Initialise variables Dim SupplierName As String 'Assign variables SupplierName = addSupplierName.Value If (SupplierName = "") Then MsgBox ("Please enter a supplier name") Exit Sub End If 'Find next row on supplier sheet add supplier […]

dynamic用户表单VBA上的事件: 我正在尝试在excel中为dynamic的用户表单分配事件处理程序，让我们只是说我找不到答案，至less我没有办法工作。我需要在checkbox上处理事件… Private Sub UserForm_Initialize() Feuil1.Select ThisWorkbook.Generate_Client_List Dim i As Integer i = 1 Dim topref As Integer topref = 25 Dim imgFile1 As Object Set imgFile1 = Client_picking.Controls.Add("Forms.Image.1") With imgFile1 .Left = 140 .Height = 40 .Width = 40 .Picture = LoadPicture("C:\Users\Temp\Desktop\Project\excel.jpg") End With Dim imgFile As Object Set imgFile = Client_picking.Controls.Add("Forms.Image.1") With imgFile […]