EXCEL VBA中，通过点击窗体1中按钮弹出新窗体，以列表形式显示sheet2中内容

以下是一个简单的示例代码：

在窗体1中添加一个按钮，然后在按钮的Click事件中添加以下代码：

Private Sub CommandButton1_Click()
'创建并显示窗体2
Dim frm As New UserForm2
frm.Show
End Sub

在窗体2中添加一个列表框(ListBox)，然后在窗体的Activate事件中添加以下代码：

Private Sub UserForm_Activate()
'将Sheet2中的内容添加到列表框中
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet2")
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = 1 To lastRow
Me.ListBox1.AddItem ws.Cells(i, 1).Value
Next i
End Sub

这样，当在窗体1中点击按钮时，就会弹出一个新的窗体2，其中以列表形式显示了Sheet2中的内容。

相关问题

excel vba中 点击commandbutton2按钮弹出窗体，显示表格，内容对应sheet2中所有数据

以下是在Excel VBA中点击CommandButton2按钮弹出窗体，并显示Sheet2中所有数据的示例代码：

首先，在工作簿中打开Visual Basic Editor（VBE），然后在“工具箱”中找到“UserForm”控件，并将其拖放到工作表中。

接下来，双击UserForm控件以打开代码编辑器，并将以下代码复制粘贴到UserForm代码模块中：

Private Sub UserForm_Initialize()
'设置窗体标题
Me.Caption = "Sheet2数据"

'设置表格大小和位置
Me.ListView1.Left = 10
Me.ListView1.Top = 10
Me.ListView1.Width = Me.Width - 20
Me.ListView1.Height = Me.Height - 50

'添加表格列
Me.ListView1.ColumnHeaders.Add , , "列1"
Me.ListView1.ColumnHeaders.Add , , "列2"
Me.ListView1.ColumnHeaders.Add , , "列3"

'加载Sheet2中的数据到表格中
Dim i As Integer
Dim j As Integer
Dim lastRow As Integer

lastRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow
Me.ListView1.ListItems.Add , , Sheets("Sheet2").Cells(i, 1).Value
For j = 2 To 3
Me.ListView1.ListItems(i - 2).ListSubItems.Add , , Sheets("Sheet2").Cells(i, j).Value
Next j
Next i
End Sub

Private Sub CommandButton1_Click()
'关闭窗体
Unload Me
End Sub

然后，在工作表中找到CommandButton2按钮，并双击它以打开代码编辑器。将以下代码复制粘贴到CommandButton2的Click事件中：

Private Sub CommandButton2_Click()
'显示窗体
UserForm1.Show
End Sub

现在，单击CommandButton2按钮，将弹出一个窗体，其中包含Sheet2中的所有数据。表格将包含3列，分别对应Sheet2中的3列数据。单击窗体中的“关闭”按钮即可关闭窗体。

excel vba 点击窗体中的按钮查询sheet2中数据，显示在ListVIeW中

好的，这个问题可以回答。你需要编写一段 VBA 代码来实现这个功能。首先，在窗体中添加一个按钮，然后编写按钮的 Click 事件处理程序。在事件处理程序中，可以使用 VBA 语句访问 Sheet2 中的数据，并将数据添加到 ListView 控件中。具体的代码可以参考以下示例：

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim i As Long
Dim j As Long

Set ws = ThisWorkbook.Worksheets("Sheet2")
ListView1.ListItems.Clear

For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
j = ListView1.ListItems.Add(, , ws.Cells(i, 1))
ListView1.ListItems(j).SubItems(1) = ws.Cells(i, 2)
ListView1.ListItems(j).SubItems(2) = ws.Cells(i, 3)
'Add more subitems if necessary
Next i
End Sub

请注意，这里假设 ListView 控件已经正确地添加到窗体中，并且属性已经设置好。如果您需要进一步的帮助，请告诉我。