Tag: 表单

使用Excel VBA中的行值填充ComboBox: 我无法在单行中填充单元格值的combobox，水平方向。但是，当它们垂直放置时，它是有效的。 ComboBox.List（“A1：A10”）工作，但ComboBox.List（“A1：J1”）不。它只显示后一种情况下的第一个值。如果有人能帮助我，我将不胜感激。谢谢：）

VBA Userform文本框默认值并突出显示: 在我的用户窗体中，我想为我的文本框设置一个默认值，这将突出显示时重点。 Private Sub UserForm_Initialize() NameTextBox.Value = "Your Name Here" NameTextBox.SetFocus End Sub 当这段代码运行时，光标应该设置在默认文本的末尾，即在“… Here”之后。我想要“您的名字在这里”被突出显示，以便在生成表单时，用户可以开始replace该默认/占位符文本。你能帮我写代码来设置可编辑的默认值吗？

为excel vba创build的表单上的button分配热键: 我已经为excel创build了一个macros，它将popup包含button和文本字段的窗体。有没有办法给button分配热键，例如“ctrl + Enter”或“F12”？无论焦点在哪个字段或button上，热键都可以工作。（到目前为止，我已经设法创buildbutton/ fields_Keydowns来检查vbKeyF12的MSForms.ReturnInteger，但是我必须对每个字段和button都这样做，有没有更简单的方法？）说，我有两个东西的forms，button“CommandButton1”和文本框“TextBox1” 代码为button： Private Sub CommandButton1_click() ActiveCell.FormulaR1C1 = UserForm1.TextBox1.Text End Sub 当我添加更多的字段和button时，热键将是有用的… 另外我如何设置“逃生”buttonclosures/隐藏表单？

添加事件监听器到几个combobox: 我基本上试图根据combobox所采取的值在用户窗体上显示不同的文本框。我创build了一个名为CControlEvents的类模块，其中描述了更改combobox的值时应该发生的事件： Private WithEvents mclsCbx As MSForms.ComboBox Private WithEvents UnitmclsTbx As MSForms.TextBox Private WithEvents UnitmclsTbxLabel As MSForms.Label Private WithEvents SpecMinMoymclsTbxLabel As MSForms.Label Private WithEvents SpecMaxMoymclsTbxLabel As MSForms.Label Private WithEvents SpecMinIndmclsTbxLabel As MSForms.Label Private WithEvents SpecMaxIndmclsTbxLabel As MSForms.Label Private WithEvents SpecMinMoymclsTbx As MSForms.TextBox Private WithEvents SpecMaxMoymclsTbx As MSForms.TextBox Private WithEvents SpecMinIndmclsTbx As MSForms.TextBox Private WithEvents SpecMaxIndmclsTbx […]

在Excel用户窗体中，如何更新标签的标题？: 我在Excel中创build了我的第一个无模式UserForm ，并在其上放置了一个ActiveX标签。如何设置标签的标题，以便它显示Sheet1.Range("A1") ，并在单元格A1中的值更改时自行更新？基本上，我希望Userform's标签总是在Excel单元格中的第二项更新中更新。谢谢！

Excel VBA文本框时间validation为：mm: 我正在开发一个VBA Excel用户窗体，需要input[h]：mm格式的时间。这意味着小时可以是无限的，并且在23:59之后不会像hh：mm格式那样循环回0。我search了networking无济于事。这是我目前使用的代码： Private Sub Txtbx_TimeAvailable_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.Txtbx_TimeAvailable.Value <> Format(Me.Txtbx_TimeAvailable.Value, "[h]:mm") Then MsgBox "Please enter correct time format in hh:mm" Cancel = True Me.Txtbx_TimeAvailable.Value = vbNullString Else ThisWorkbook.Sheets(SELECTEDWORKSHEET).Range("C60").Value = Txtbx_TimeAvailable.Text Call UpdateDentistMainForm End If End Sub 但是，如果我使用这个代码，如果我input25:53它将它转换为01:53。我很感激任何帮助，我可以得到这一点。

删除列表框上的滚动条: 我在vba中使用userForm，我有一个列表框。我想删除horoz。从底部滚动条。有没有办法做到这一点？我没有在属性框中看到任何选项。

在用户窗体之间传递数据: 在Excel VBA中，我有一个类似于下面的用户表单，用户input一个ID号，然后在用户表单上显示详细信息： Private Sub btnIDNo_Click() Dim IDNo As Long If txtIDNo.Text <> "" Then If IsNumeric(txtIDNo.Text) = True Then lblError.Caption = "" IDNo = txtIDNo.Text Worksheets("Details").Activate Range("B4").Select While ActiveCell.Value <> "" And ActiveCell.Value <> IDNo ActiveCell.Offset(1, 0).Select Wend If ActiveCell.Value = IDNo Then txtName.Value = ActiveCell.Offset(0, 1).Value txtPhone.Value = ActiveCell.Offset(0, 2).Value Else lblError.Caption = "Cannot […]

显示用户表单后，将焦点设置回应用程序窗口: 当显示一个用户窗体（运行其Show方法）时，它不仅显示在屏幕上，而且还将焦点（例如按键的目的地）。说，用户表单是一个自定义的工具栏。它的Show在Workbook_Open()触发，但是表单本身的使用相对较less，所以我们希望焦点在其出现后立即回到主应用程序窗口。不幸的是，似乎SetFocus方法不适用于应用程序对象。那么这是如何完成的？我想我的例子的解决scheme之后 Private Sub Workbook_Open() […] UserForm1.Show