Tag: 文本框用户

VBA将ComboBox值输出到列中的下一个空闲单元格中: 我正在尝试从一个UserForm文本框输出到列中的下一个空单元格中的值： Private Sub CommandButton2_Click() Dim LastRow As Long With ThisWorkbook.Sheets("Output") LastRow = .Cells(.Rows.Count, "H").End(xlUp).Row With .Range("H" & LastRow) .Value2 = TextBox1.Value End With End With End Sub 但是，它不会工作，我收到没有错误信息。任何想法，我哪里错了？谢谢

在用户窗体的文本框中的箭头键，VBA: 我正在用几个文本框来处理一个用户窗体，这些文本框就像一个Excel图表一样排列。我已经设置了TabIndexes，并且使用TAB / shift + TAB完美地工作。但是，按箭头键的反应并不是我所期望的。我命名这些文本框： boxA1 boxB1 boxC1 boxD1 boxA2 boxB2 boxC2 boxD2 … boxA3 boxB3 boxC3 boxD3 : : 假设焦点在boxB1。当按下箭头键时，我希望焦点转到boxB2，但是会转到boxA3或其他东西。我试过这个代码： Private Sub boxB1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case vbKeyDown boxB2.SetFocus Case vbKeyUp boxA10.SetFocus End Select End Sub 它工作正常，但是，如果在我的表单中只有几个文本框，这是一个伟大和清晰的解决scheme。但是我的表单中有大约70个文本框，这会使我的代码变得庞大而且真的重复。有任何参数可以调整，以使其正确吗？或者有什么function，我可以使用如下？只是sudo，你知道的。 Private […]

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

如何在主模块中使用input到userform的数据: 我用VBA编码很新。我有一个用五个TextBoxes的用户窗体。用户将在第一个文本框和最后四个文本框中的单元格位置（例如A1）中input一个整数。我想要在主模块中使用这些数据。我需要在循环中使用整数，即循环，直到计数器达到该整数。我需要使用单元格位置开始访问不同的数据集，这些数据集可能在工作表中的任何位置。我在主模块中访问这些数据时遇到问题。当用户点击确定button时，我目前隐藏窗体。为了testing我的代码，我只是将文本框中的数据写入单元格。来自主模块的代码： Sub Sort2Stack() UserInput.Show Cells(5, 22).Value = TestPeriod.Value 'integer entered in TextBox 1 Cells(6, 22).Value = YMLoc.Value 'cell location entered in TextBox 2 Cells(7, 22).Value = YFLoc.Value ' . Cells(8, 22).Value = NMLoc.Value ' . Cells(9, 22).Value = NFLoc.Value 'cell location entered in TextBox 5 End […]

Excel VBA; 用户窗体，运行在不同的文本框值的一段代码: 晚上好，stackoverflow社区。 UPD：关于我的真实情况的一些信息。这里是我使用的UserForm：在我的用户表单中，Duration / CED文本框命名为Dur1-Dur6，S / C Frequency文本框命名为sc1-sc6。这个macros的主要目的是复制一个表格模板，并以S / C频率为基础，用所需的公式将其粘贴到主表格中。完整的代码我有： Private Sub OkButton_Click() TheStart: Dim FirstRow2 As Integer: FirstRow2 = 18 'set the number value of first row with formulas Dim LastRow2 As Integer: LastRow2 = Range("L1000").End(xlUp).Row Dim AQCol As Integer: AQCol = 11 'set the number value of AQ column […]

在用户窗体文本框中突出显示文本: 我想select/高亮我的用户窗体上的文本框中的所有文本。我已经find> .SelStart和.SelLength解决scheme> 20个论坛，但它不适合我… 是否有设置或属性，我需要改变才能使用它？这是我的代码： Private Sub MaterialDescriptionTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(MaterialDescriptionTextBox.Value) > 40 Then MsgBox "The material description can not exceed 40 characters", vbInformation, "Too many characters" With Me.MaterialDescriptionTextBox .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End If 可悲的是，它并没有做任何事情来显示MsgBox。谢谢

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