点击按钮将TextBox1文本框中的内容输入到sheet2表格第二行第一列中

Sub InputData()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet2")

ws.Cells(2, 1).Value = TextBox1.Value

End Sub

这是一个VBA代码，可以将TextBox1中的内容输入到Sheet2表格的第二行第一列中。请将代码复制到Excel VBA编辑器中的模块中，然后将按钮与该代码关联。当按钮被单击时，该代码将自动执行。

相关问题

EXCEL 窗体中有5个文本框，点击按钮将文本框中内容储存到sheet2中

以下是实现此功能的 VBA 代码：

Private Sub CommandButton1_Click()
    '将文本框中内容储存到sheet2中
    
    '定义变量
    Dim ws As Worksheet
    Dim i As Integer
    
    '设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet2")
    
    '将文本框中的内容存入数组
    Dim arr(1 To 5) As String
    For i = 1 To 5
        arr(i) = Controls("TextBox" & i).Value
    Next i
    
    '将数组中的内容写入工作表
    ws.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 5).Value = arr
    
    '清空文本框
    For i = 1 To 5
        Controls("TextBox" & i).Value = ""
    Next i
    
End Sub

此代码中，我们首先定义了一个名为 `ws` 的变量，用于存储我们要写入数据的工作表，这里我们选择了 `Sheet2`。然后，我们使用一个名为 `arr` 的数组来存储文本框中的内容。我们使用一个循环遍历窗体中的所有文本框，将其内容存入数组中。最后，我们将数组中的内容写入到工作表中，并清空文本框中的内容。

点击录入按钮，将文本框中的字体录入到sheet2中对应字段下的列中

可以的，这是一个与技术相关的问题，我可以回答。您可以使用 VBA 代码来实现这个功能。首先，您需要在 Excel 中按下 Alt+F11 打开 Visual Basic 编辑器，然后在左侧的项目窗口中选择您的工作簿。接下来，您可以添加以下代码：

Private Sub CommandButton1_Click()
Dim inputText As String
inputText = TextBox1.Value
Dim lastRow As Long
With ThisWorkbook.Sheets("Sheet2")
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Cells(lastRow + 1, "A").Value = inputText
End With
End Sub

这个代码会在录入按钮被点击时，从文本框中读取输入的文本，并将其添加到 Sheet2 中的下一个空行。请注意，这个代码假设您的录入按钮是一个名为 CommandButton1 的按钮，文本框是一个名为 TextBox1 的文本框，而 Sheet2 中的第一列是用来存储录入的文本的。