excel如何做窗体里面查询数据

1.怎样使窗体中的查询的结果在EXCEL表中显示?

假设原数据在Sheet1，查询数据在Sheet2，见下。注意Sheet2最好不要存放数据。

Private Sub CommandButton3_Click()

Dim S1 As String, C As Range, Output As Range

Set Output = Sheets("Sheet2").Range("A1")

Output.Worksheet.Activate

S1 = TextBox1.Text

If Output.Offset(1, 0).Text "" Then Range(Output, Output.End(xlDown).End(xlToRight)).Clear

For Each C In Range(Sheets("Sheet1").Range("A1"), Sheets("Sheet1").Range("A65536").End(xlUp)).Cells

If C.Value = S1 Then

Output.Value = C.Value

Output.Offset(0, 1).Value = C.Offset(0, 1).Value

Output.Offset(0, 1).Value = C.Offset(0, 1).Value

Set Output = Output.Offset(1, 0)

End If

Next C

Range(Output.Worksheet.Range("A1"), Output.Offset(0, 2)).Sort key1:=Output.Worksheet.Columns(2)

End Sub

2.Excel导入Access后建立查询窗体以下EXCEL导入Acc

操作说明： 1、选中《收费许可证完整》B4:B298,CTRL+G,ALT+S、K，输入“=B4”，点CTRL+ENTER，即可将每区域空白单元格填充为首行字串，结果如绿色区域。

2、自A4开始选中A4:P21，输入公式“=INDEX（收费许可证完整！A:A,***ALL(IF（收费许可证完整！$B$4:$B$298=$B$2,ROW（收费许可证完整！$B$4:$B$298）,2^16),ROW(A1)））”，并将光标置于编辑栏点CTRL+SHIFT+ENTER，嵌套数组标志符{}。 3、在B2，输入需要查询的副本证号如“267T99”，，即可检索其全部相关信息，如上表所示。

3.有没有大神可以告诉我如何用excel或access做数据来源应该?

在 Excel 和 Access 之间交换（复制、导入和导出）数据存在多种在 Microsoft Office Access 和 Microsoft Office Excel 之间交换数据的方法。

若要将 Access 中的数据装入 Excel，可以从 Access 数据表中复制数据并粘贴到 Excel 工作表中，从 Excel 工作表连接到 Access 数据库，或者将 Access 数据导出到 Excel 工作表中。 若要将 Excel 中的数据装入 Access，可以从 Excel 工作表复制数据并粘贴到 Access 数据表中，将 Excel 工作表导入 Access 表中，或者从 Access 表链接到 Excel 工作表。

“导入”在 Excel 和 Access 中的意义各不相同。 在 Excel 中，导入指的是建立一个可刷新的永久数据连接。

在 Access 中，导入则指将数据装入 Access 中一次，但不建立数据连接。 您不能将 Excel 工作簿保存为 Access 数据库。

Excel 和 Access 都不提供利用 Excel 数据创建 Access 数据库的功能。 -------------------------------------------------------------------------------- 在 Excel 中使用 Access 数据 如果数据在 Access 中，但您希望在 Excel 中使用这些数据：操作： 交换的性质： 将 Access 数据复制到 Excel 中 临时 将 Access 数据导出到 Excel 定期 从 Excel 连接到 Access 数据 永久 在 Access 中使用 Excel 数据 如果数据在 Excel 中，但您希望在 Access 中使用这些数据：操作： 交换的性质： 将 Excel 数据复制到 Access 中 临时 将 Excel 数据导入到 Access 定期 从 Access 链接到 Excel 数据 永久 -------------------------------------------------------------------------------- 在 Excel 中使用 Access 数据 您可能想在 Excel 工作簿中使用 Access 数据，以便利用数据分析和绘制图表功能、数据排列和布局的灵活性或其他一些 Access 中不可用的功能。

将 Access 数据复制到 Excel 中 您可以从 Access 的数据表视图复制数据，然后将数据粘贴到 Excel 工作表中。 启动 Access，然后打开包含要复制的记录的表、查询或窗体。

在“起始页”选项卡上单击“视图”，然后单击“数据表视图”。 选择要复制的记录。

如果要选择特定列，请在相邻的列标题之间拖动。 在“开始”选项卡上的“剪贴板”组中，单击“复制” 。

启动 Excel，然后打开要在其中粘贴数据的工作表。 单击要显示第一个字段名称的工作表区域的左上角。

若要确保复制的记录不替换现有记录，请确保工作表中您单击的单元格的下方和右方不存在数据。 在“开始”选项卡上的“剪贴板”组中，单击“粘贴” 。

将 Access 数据导出到 Excel 通过使用 Access 中的“导出向导”，可以将一个 Access 数据库对象（如表、查询或窗体）或视图中选择的记录导出到 Excel 工作表中。 您在执行导出操作时，可以保存详细信息以备将来使用，甚至还可以制定计划，让导出操作按指定时间间隔自动运行。

下面是需要将数据从 Access 导出到 Excel 的常见情形： 您的部门或工作组在处理数据时既使用 Access 也使用 Excel。 您在 Access 数据库中存储数据，但使用 Excel 来分析数据和分发分析结果。

您的小组目前在需要时将数据导出到 Excel，但您想让这个过程更加高效一些。 您多数时间都在使用 Access，但您的经理更愿意在 Excel 中查看报表。

您要按固定时间间隔将数据复制到 Excel 中，但您想自动完成这个过程以便节省您自己的时间。 有关将数据从 Access 导出到 Excel 的详细信息，请参阅 Access“帮助”系统。

从 Excel 连接到 Access 数据 若要将可刷新的 Access 数据装入 Excel 中，您可以创建一个到 Access 数据库的连接，这个连接通常存储在 Office 数据连接文件 （。 odc） 中，并检索表或查询中的所有数据。

连接到 Access 数据的主要好处是：您可以在 Excel 中定期分析这些数据，而不需要从 Access 反复复制或导出数据。连接到 Access 数据后，当原始 Access 数据库使用新信息更新时，您还可以自动刷新（或更新）包含该数据库中的数据的 Excel 工作簿。

例如，您可能想更新每月分发的 Excel 预算摘要报表以使其包含当月数据。 单击要存放 Access 数据库中的数据的单元格。

在“数据”选项卡上的“获取外部数据”组中，单击“自 Access”。 在“查找范围”列表中，找到并双击要导入的 Access 数据库。

在“选取数据源”对话框中，单击要导入的表或查询，然后单击“确定”。 在“导入数据”对话框中，执行以下操作： 在“选择数据显示方式”下，执行下列操作之一： 若要以表 （表：关于特定主题的一组数据的集合，以记录（行）和字段（列）的形式存储。

）的形式查看数据，请选择“表”。 若要以数据透视表 （数据透视表：一种交互的、交叉制表的 Excel 报表，用于对多种来源（包括 Excel 的外部数据）的数据（如数据库记录）进行汇总和分析。）

的形式查看数据，请选择“数据透视表”。 若要以数据透视图 （数据透视图：提供交互式数据分析的图表，与数据透视表类似。

可以更改数据的视图，查看不同级别的明细数据，或通过拖动字段和显示或隐藏字段中的项来重新组织图表的布局。）和数据透视表的形式查看数据，请选择“数据透视图和数据透视表”。

或者单击“属性”为导入的数据设置刷新、格式和布局选项，然后单击“确定”。 在“数。

4.如何在EXCEL中插入查询框

启用 宏 的办法，首先在excel中创建一个图形或是图标 以供点击 ，然后在它上面 右键 指定宏 进行编辑新建，然后把这段话粘贴在中间，保存退出即可

Application.SendKeys ("^f")

5.Excel 如何在用户窗体插入excel图表

窗体需要先添加一个image工具，该图片即在image中出现。

而后初始化窗体，按照如下代码：

Private Sub UserForm_Initialize()Dim mySheet As WorksheetDim myChart As ChartSet mySheet = Worksheets(1)Set myChart = mySheet.ChartObjects(1).ChartmyChart.Export ThisWorkbook.Path & "\" & "1.gif", filtername:="gif"UserForm1.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "1.gif")End Sub