excel创造窗体向导

❶ 怎样在EXCEL中创建一个录入窗口

1、首先打开excel软件并输入相关信息。

❷ 2010版EXCEL中怎么使用窗体

从EXCEL2003以后的版本，都存在这个问题：双击已有的工作簿，都只在一个窗口中打开。这个过程其实只是打开了一次EXCEL程序，而其他工作薄只是在不同窗口中调用。
解决办法：（无需其他设置，只是再打开一个EXCEL程序即可）
1、双击已存在的工作薄，此时将找开一个EXCEL程序；
2、使用“开始”菜单或桌面上的EXCEL快捷图标（不是已有的工作薄文件），此时会自动新建一个空白的EXCEL，再把你的第二个已经存在的工作薄拖到这个窗口中。（此时这两个工作薄是在不同的两个窗口中）
3、如果还想使用第三个窗口打开第三个工作薄，则重复上面的第2步，即可。

（原理：每打开一次excel程序，即新建了一个窗口）

❸ Excel 如何实现用窗体录入数据到指定的单元格

1、在自己的电脑上打开EXCEL表格

❹ 创建报表与窗体的数据源有哪些

在9.0的帮助文件中

Access/Excel (DAO)
此选项用于连接到所支持的数据库类型（Access、dBASE、Excel、Lotus 等）。可以使用“建立新连接”选项创建新的连接。

Crystal 查询
此选项用于浏览查询文件 (.qry)。

数据库文件
此选项显示一组位于本地的标准 PC 数据库。可以使用“查找数据库文件”用“打开”对话框浏览 PC 数据库。

字典/Infoview
此选项用于查找字典（.dct 或 .dc5）或 infoview (.civ) 文件。

ODBC (RDO)
此选项显示经过配置可供使用的 ODBC 数据源列表。

OLAP
此选项用于打开“Crystal OLAP 连接浏览器”，便于您将 OLAP 多维数据集选作数据源。

OLE DB (ADO)
此选项显示经过配置可供使用的 OLE DB 提供程序列表。也可以指定要使用的 Microsoft 数据链接文件。

更多数据源
此选项显示可通过本机驱动程序访问的其他数据源的列表。

❺ excel如何创建用户窗体

下面，创建一个简单的用户窗体，用于输入“入职员工信息”数据。
设计用户窗体
下表是个简单的“入职员工信息”数据库，用户窗体用于收集信息并将数据信息保存到该数据库中。

打开VBE，插入用户窗体，默认名为UserForm1。按下表在用户窗体中添加控件并设置属性。

完成的用户窗体如下图所示。

编写代码
1 编写找到数据库工作表中下一个空白行的代码
在VBE中，插入一个类模块，并命名为cExcelUtils，输入下列代码：
Function FindEmptyRow(ws As Worksheet) As LongDim lngReturn As LonglngReturn = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).RowFindEmptyRow = lngReturnEnd Function
2 编写代码以包含每个员工信息的值，以及存储数据库工作表的位置，将数据保存到数据库
插入一个类模块，并命名为cEmployeeInfo，添加下面的代码在模块的声明部分：
Private m_lngID As LongPrivate m_strName As StringPrivate m_strSchool As StringPrivate m_blnAbility As BooleanPrivate m_blnObey As BooleanPrivate m_xlWksht As WorksheetPrivate m_oXL As cExcelUtils
前5个变量是我们在用户窗体中要输入的数据，以及从数据库工作表中产生的ID字段。变量m_xlWksht包含数据库工作表的位置。变量m_oXL决定在哪里放置新数据。
首先，添加数据属性。
Property Get ID() As LongID = m_lngIDEnd Property Property Get Name() As StringName = m_strNameEnd Property Property Let Name(newName As String)m_strName = newNameEnd Property Property Get School() As StringSchool = m_strSchoolEnd Property Property Let School(newSchool As String)m_strSchool = newSchoolEnd Property Property Get Ability() As BooleanAbility = m_blnAbilityEnd Property Property Let Ability(newAbility As Boolean)m_blnAbility = newAbilityEnd Property Property Get Obey() As BooleanObey = m_blnObeyEnd Property Property Let Obey(newObey As Boolean)m_blnObey = newObeyEnd Property Property Get DBWorkSheet() As WorksheetSet DBWorkSheet = m_xlWkshtEnd Property Property Set DBWorkSheet(newSheet As Worksheet)Set m_xlWksht = newSheetEnd Property
注意，ID属性没有Property Let方法，因此该属性是只读的。
下面，添加GetNextID方法找到最后一行，从第一列中获取值，然后增加1，以此来设置ID属性的值。
Public Function GetNextID() As LongDim lngReturn As LonglngReturn = m_xlWksht.Cells(Rows.Count, 1).End(xlUp).Value + 1m_lngID = lngReturn '设置ID属性 GetNextID = lngReturnEnd Function
接下来，添加初始化和清除代码：
Private Sub Class_Initialize()Set m_oXL = New cExcelUtilsEnd Sub Private Sub Class_Terminate()Set m_oXL = NothingEnd Sub
再继续完善该类的功能。先添加一些验证代码。如果Name属性和School属性没有数据的话，则不会保存记录。
Public Function ValidateData() As BooleanDim blnReturn As BooleanIf (Len(Me.Name & "") * Len(Me.School & "")) = 0 ThenblnReturn = FalseElseblnReturn = TrueEnd IfValidateData = blnReturnEnd Function
通过文本值的长度相乘，能够决定是否填充数据。
接下来，编写保存功能的代码。需要知道下一个可用行的行号为数据输入，需要知道该行所在的工作表，并且如果没有错误，返回True。
Public Function Save() As BooleanDim lngNewRowNum As LongDim blnReturn As Boolean If m_xlWksht Is Nothing ThenblnReturn = FalseGoTo Exit_FunctionEnd If lngNewRowNum = m_oXL.FindEmptyRow(m_xlWksht) With m_xlWksht.Cells(lngNewRowNum, 1).Value = Me.ID.Cells(lngNewRowNum, 2).Value = Me.Name.Cells(lngNewRowNum, 3).Value = Me.School.Cells(lngNewRowNum, 4).Value = Me.Ability.Cells(lngNewRowNum, 5).Value = Me.ObeyEnd With If Err.Number = 0 ThenblnReturn = TrueEnd If Exit_Function:Save = blnReturnExit FunctionEnd Function
代码首先检查以确保工作表对象存在，如果不存在则返回False并退出函数。接下来，从cExcelUtils对象中获取空行位置。然后，使用代表数据库工作表的m_xlWksht变量，使用从类属性中的数据填充每列。最后，检查没有发生错误，设置返回值为True，然后退出函数。
这就是cEmployeeInfo类，包含从用户窗体中的输入值，为任何新记录找到下一个ID值，保存数据到工作表中下一个空行。
编写用户窗体代码
在用户窗体代码模块中添加下列模块级变量：
Private m_oEmployeeInfo As cEmployeeInfoPrivate m_blnSaved As Boolean
变量m_blnSaved存储从m_oEmployeeInfo对象的Save方法中返回的值。下面，编写用户窗体初始化和中止事件代码：
Private Sub UserForm_Initialize()Set m_oEmployeeInfo = New cEmployeeInfoSet m_oEmployeeInfo.DBWorkSheet = Sheets("入职员工信息")m_oEmployeeInfo.GetNextIDlblID.Caption = m_oEmployeeInfo.IDm_blnSaved = FalseClearFormEnd Sub Private Sub UserForm_Terminate()Set m_oEmployeeInfo = NothingEnd Sub
在用户窗体初始化时，实例化oEmployeeInfo对象，然后设置DBWorksheet属性。然后，获取下一个可用的ID号并将其放置到标签中。也清除了窗体中的控件值。
Private Sub ClearForm()Me.txtName.Value = ""Me.txtSchool.Value = ""Me.chkAbility.Value = FalseMe.chkObey.Value = FalseEnd Sub
用户窗体中有三个命令按钮：一个用于保存输入的数据，一个用于清除用户窗体数据并添加新记录，一个用于取消数据输入操作并且不保存数据而关闭用户窗体。
“保存”按钮应该执行下列功能：
发送数据到cEmployeeInfo类
验收数据，如果数据无效则返回一条消息
如果数据有效则保存数据，并且如果保存成功则返回一条消息
保存后清除用户窗体数据，并重设保存标志
代码如下：
Private Sub cmdSave_Click()With m_oEmployeeInfo.Name = txtName.Text.School = txtSchool.Text.Ability = chkAbility.Value.Obey = chkObey.ValueEnd WithIf Not m_oEmployeeInfo.ValidateData ThenMsgBox "姓名和毕业院校必填", vbOKOnly, "不能保存"Exit SubElsem_blnSaved = m_oEmployeeInfo.SaveEnd IfDoAfterSave m_blnSavedEnd Sub
过程DoAfterSave用于执行清理。
Private Sub DoAfterSave(success As Boolean)If success ThenClearFormlblID.Caption = m_oEmployeeInfo.GetNextIDMsgBox "记录已保存"ElseMsgBox "没有保存记录"End Ifm_blnSaved = False '重设标志End Sub
“新建”按钮的代码如下，在新建之前，检查文本字段看用户窗体中是否有任何数据：
Private Sub cmdNew_Click()'为新记录设置窗体 Dim iAnswer As Integer'检查当前记录是否被保存 If Not m_blnSaved Then '是否有输入的文本没有被保存 If (Len(Me.txtName.Value & "") + Len(Me.txtSchool.Value & "")) <> 0 TheniAnswer = MsgBox("有没有保存的数据,想继续吗?", vbYesNo, "没有保存数据")If iAnswer = vbYes ThenClearFormEnd IfElseClearFormEnd IfEnd IfEnd Sub
“取消”按钮用来清除用户窗体并关闭该用户窗体：
Private Sub cmdCancel_Click()ClearFormUnload UserForm1End Sub
现在，运行用户窗体来看看效果。

❻ 怎么在excel中调出窗体工具栏

1、首先, 添加 "Excel 开发工具" 选项卡。我们打开一个新的工作表, 并在左上角找到 office 按钮。单击它, 然后选择下面的 Excel 选项。

❼ 2010版的excel中窗体选项在哪里

刚换10版吧？

在开发工具可以找到控件

❽ 怎样制作EXCEL带工作表和录入数据的窗体

是制作的按钮。
有多种方法制作按钮。从图上来看，应该是窗体的按钮。
视图－工具栏－窗体。选择“按钮”，然后在窗体带出。
按钮要起作用，还必须连接到宏（指定宏），宏可以录制产生，也可以用VBA编制。这方面你要学习些VBA知识。

❾ 如何创建excel工作表窗体

alt+F11
插入--用户窗体

❿ 在excel中建立用户窗体求N!怎么做

• 1

• 在工作表界面按下组合快捷键Alt+F11进入VBA编辑环境，如下图所示

•