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` 的数组来存储文本框中的内容。我们使用一个循环遍历窗体中的所有文本框，将其内容存入数组中。最后，我们将数组中的内容写入到工作表中，并清空文本框中的内容。

相关问题

vba实现窗体文本框显示sheet1单元格内容

### 回答1：
您好！以下是实现VBA代码，以显示Sheet1单元格内容在窗体文本框中：

首先，您需要在窗体上创建一个文本框。在窗体设计器中，双击工具箱中的“文本框”控件并将其拖动到窗体上。然后右键单击文本框，选择“属性”窗口。在属性窗口中，找到“名称”属性并为文本框命名，例如“TextBox1”。

接下来，打开VBA编辑器。可以通过按下Alt+F11键或在开发者选项卡中单击“Visual Basic”按钮来打开VBA编辑器。

在VBA编辑器中，选择窗体对象并打开其“代码”视图。在代码视图中，找到窗体的“Load”事件处理程序，并将以下代码添加到该处理程序中：

Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Sheet1").Range("A1").Value
End Sub

在上面的代码中，我们将Sheet1单元格A1的值赋值给名为“TextBox1”的文本框的Value属性。您可以更改单元格引用以显示所需的单元格内容。

### 回答2：
VBA是Visual Basic for Applications的缩写，是一种用于编写宏的编程语言。实现窗体文本框显示Sheet1单元格的内容可以通过以下步骤来完成：

1. 首先，在VBA编辑器中，打开窗体的代码模块。

2. 在窗体的代码模块中，声明一个变量来保存Sheet1单元格的内容。例如，可以使用以下命令声明一个名为cellValue的字符串变量：

Dim cellValue As String

3. 在窗体的代码模块中，使用以下命令将Sheet1单元格的内容赋值给变量cellValue：

cellValue = Sheets("Sheet1").Range("A1").Value

这里假设需要显示Sheet1单元格A1的内容。

4. 在窗体的代码模块中，使用以下命令将变量cellValue的值传递给文本框的Text属性，使其显示在窗体上：

TextBox1.Text = cellValue

这里假设窗体上的文本框的名称为TextBox1。

5. 最后，保存并关闭VBA编辑器。

通过以上步骤，窗体的文本框将显示Sheet1单元格内容。每当Sheet1单元格的内容发生改变时，文本框的内容也会相应地更新。

### 回答3：
VBA是Visual Basic for Applications的缩写，是一种用于自动化和自定义Microsoft Office应用程序的编程语言。VBA可以与Excel进行集成，通过编写代码来实现各种功能。

要实现窗体文本框显示Sheet1单元格内容，可以按照以下步骤进行：

1. 打开Excel，创建一个新的宏，点击“开发工具”选项卡，选择“Visual Basic”按钮，打开Visual Basic编辑器。

2. 在Visual Basic编辑器中，找到VBA project窗口中的VBA项目名称，右键点击，选择“插入”-“用户窗体”来创建一个新的用户窗体。

3. 在用户窗体上添加一个文本框控件，通过在工具箱中拖动放置到用户窗体上。可以调整文本框的大小和位置。

4. 双击文本框，进入文本框的事件处理程序。

5. 在文本框的事件处理程序中，编写以下VBA代码：

Private Sub TextBox1_Change()
Dim cellValue As Variant
cellValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
TextBox1.Text = cellValue
End Sub

这段代码的作用是在TextBox1的Change事件中，将Sheet1的A1单元格的值赋值给TextBox1的文本。

6. 在用户窗体中，右键点击用户窗体的名称，选择“显示代码”来打开代码窗口。在代码窗口中编写以下VBA代码：

Private Sub UserForm_Initialize()
Dim cellValue As Variant
cellValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
TextBox1.Text = cellValue
End Sub

这段代码的作用是在用户窗体初始化时，将Sheet1的A1单元格的值赋值给TextBox1的文本。

7. 验证代码的正确性后，点击“保存”并关闭Visual Basic编辑器。

8. 返回Excel，打开VBA编辑器，双击Sheet1，进入Sheet1的事件处理程序。

9. 在Sheet1的事件处理程序中，编写以下VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.TextBox1.Text = Target.Value
End Sub

这段代码的作用是当Sheet1单元格内容发生变化时，将变化的内容赋值给用户窗体中的TextBox1。

10. 最后，关闭VBA编辑器。现在，当你在Sheet1单元格中输入内容时，用户窗体中的文本框将显示Sheet1单元格的内容。

以上是使用VBA实现窗体文本框显示Sheet1单元格内容的步骤，你可以根据具体的需求进行适当的修改和扩展。

EXCEL VBA 点击按钮，将sheet2表格内所有的数据明细显示在这个窗体中

以下是一个简单的示例代码，当单击按钮时，将显示Sheet2中的所有数据明细。

首先，需要创建一个UserForm窗体，将其命名为“ShowDataForm”。在窗体上添加一个多行文本框控件，将其命名为“txtData”。然后，在代码模块中添加以下代码：

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Dim data As String
For i = 1 To lastRow
data = data & ws.Cells(i, 1) & vbTab & ws.Cells(i, 2) & vbTab & ws.Cells(i, 3) & vbCrLf
Next i
txtData.Value = data
ShowDataForm.Show
End Sub

在此代码中，我们首先定义了一个名为ws的工作表对象，它代表Sheet2工作表。然后，我们使用End(xlUp)方法获取最后一行的行号，并使用循环遍历所有行。在循环中，我们将每行的数据连接成一个字符串，并使用tab和换行符分隔。最后，我们将该字符串设置为文本框的值，并显示UserForm窗体。

当单击按钮时，将显示一个包含Sheet2中所有数据的窗体。您可以根据需要调整此代码以满足特定需求。