Ⅰ 怎样在EXCEL设计一个数据输入窗口
我想你是不是想要一个，大家填写的数据自动进入到你的excel表格中的东西？
你可以将你的excel表格转化成可填写的网页，然后把网址分享给大家，你可以实时查看大家填写的数据情况，并可随时下载成你的excel，你可以用Excel数据汇来进行excel网页的转化，只需要20秒不到就能搞定，希望能帮到你。
Ⅱ 怎样用excel录入问卷调查的数据
1.访问 Office Online 网站。
为了最大限度地正常访问，我的经验是从 Outlook.com 打开 Office Online比较保险。
2.打开 Excel app。
Excel app 拥有与 Excel 2013 类似的欢迎界面，可以用各种模板新建表格，也可以打开最近使用过的表格。
注：虽然与 2013 界面类似，但功能可相差太远了。不过基本的功能倒是挺全，有些功能，2013 还不一定有。
3.新建调查。
新建一个空白表格，可以看到在开始选项卡-->表组，有个调查按钮。单击按钮-->新建调查，弹出编辑调查向导窗口，我们可以开始准备调查问卷了。
4.设计、输入问卷。
输入调查标题，然后逐个输入问题。
每个问题都由问题、问题副标题、响应类型、必需（是否必填）、默认回答等项目组成，其中响应类型包括文本、段落文字、数字、日期、时间、是/否、选择等多种，可以说基本上涵盖了在线调查问题类型的几乎全部需求。
注：在问卷设计完成后，Excel Online 自动生成了一个以问卷问题为标题栏的表格，等待问卷结果的传来。
5.发布调查链接。
单击问卷编写页面的共享调查，弹出创建调查共享链接的向导。
调查链接创建完成后，复制该链接，通过网页、邮件、社交工具等进行发布，任何打开此链接的人均可提交答卷。
也就是说，可以匿名答卷、无需登录，这样就给大范围的调查提供了便利。
6.匿名用户提交答卷。
本步骤用另一个浏览器，在不登录的情况下打开第 5 步骤中生成的调查共享链接，并答卷、提交，非常顺利。
7.Excel Online 自动汇总调查结果。
每当有一名用户提交了答卷，在第 4 步骤中生成的问卷表格就会自动增加一行，该行的内容正是用户刚刚提交的问卷内容。
当调查结束，可以导出 xlsx 到本机，也可以继续保持在线，利用 Excel 强大的数据分析功能，对调查结果想怎么分析都行了。
Ⅲ 怎样才能在一个窗体中设计出如电子表格似的数据录入表格
如果要想在网页中实现，建设学习jquery，基原理是通过CSS+DIV+Jquery将网页表格和输入框同页存放，通过ajax方式实现如excel的数据录入
Ⅳ 问卷调查的数据如何录入
建议看一下帮助文件
用途：返回表格或区域中的数值或对数值的引用。函数INDEX()有两种形式：数组和引用。数组形式通常返回数值或数值数组；引用形式通常返回引用。
语法：INDEX(array，row_num，column_num)返回数组中指定的单元格或单元格数组的数值。INDEX(reference，row_num，column_num，area_num)返回引用中指定单元格或单元格区域的引用。
参数：Array为单元格区域或数组常数；Row_num为数组中某行的行序号，函数从该行返回数值。如果省略row_num，则必须有column_num；Column_num是数组中某列的列序号，函数从该列返回数值。如果省略column_num，则必须有row_num。Reference是对一个或多个单元格区域的引用，如果为引用输入一个不连续的选定区域，必须用括号括起来。Area_num是选择引用中的一个区域，并返回该区域中row_num和column_num的交叉区域。选中或输入的第一个区域序号为1，第二个为2，以此类推。如果省略area_num，则INDEX函数使用区域1。
实例：如果A1=68、A2=96、A3=90，则公式“=INDEX(A1:A3，1，1)”返回68，=INDEX(A1
Ⅳ 在一个设计界面中怎样向数据库中插入数据。
麻烦再具体描述一下
1画面是什么样的（最后附图）
2现状是什么样的
3你想实现什么
Ⅵ 用EXCEL设计数据录入窗口及查询窗口
情况表输入你需要的数据
主表会自动生成
你想查询的数据在显示哪页的位置进行输入，点击查询就出来了。序号在表2有
主表的空白位置你随便加信息
Ⅶ 怎样在excel里设计一个数据录入窗口
在excel表里设计好表头，然后选中它，点工具栏中的数据——记录单——它就会出现如下图，然后，你就可以在这里输入数据了
Ⅷ 如何通过EXCEL制作一个录入收集系统
一、数据采集系统功能 录入、保存、查询、清空、修改
二、两个界面
1.数据录入界面：前台功能使用界面，实现“录入、保存、查询、清空、修改”；
2. 数据存储界面：后台实现数据的保存； 录入界面：
三、实现方法 1. 保存功能 Sub Save() '
'保存数据 Marco，xiaohou制作，时间2013-9-5 '
Dim r1, r2, r3 As Range With Sheets("数据存储")
Set r2 = .Range("a2", .[a100000].End(xlUp)) End With
With Sheets("数据录入") Set r1 = .Range("c4:e4, d6:l39")
If IsEmpty(.Range("c4")) Or IsEmpty(.Range("e4")) Then 'Or IsEmpty(.Range("b7:b41")) 添加科室不为空，未成功 MsgBox ("编码、名称为空，不可保存！") Else
Set r3 = r2.Find(.Cells(4, 3), , , 1) If Not r3 Is Nothing Then
MsgBox ("此编码已存在，不可保存。如果此信息需要修改，请点击查询后再修改")
Else
Sheets("数据存储").Rows("2:35").Insert Shift:=xlDown
.Range("c6:l39").Copy '复制“数据录入”表体信息
Sheets("数据存储").Range("c2:l2").PasteSpecial Paste:=xlPasteValues .Range("c4").Copy '复制“数据录入”编码
Sheets("数据存储").Range("a2:a35").PasteSpecial Paste:=xlPasteValues .Range("e4").Copy '复制“数据录入”名称
Sheets("数据存储").Range("b2:b35").PasteSpecial Paste:=xlPasteValues r1.ClearContents '保存数据后，清空录入界面
.Range("c4").Select End If End If End With End Sub
2. 查询功能 Sub Query() '
' 查询筛选 Macro，xiaohou制作，时间2013-9-5 ' '
Dim Erow As Integer Dim r1, r2 As Range With Sheets("数据录入") Set r1 = .Range("d6:l39") Set r2 = .Range("a6:b39")
Erow = Sheets("数据存储").[a100000].End(xlUp).Row
r1.ClearContents
'For Each ce In .[a2:x2]
'If ce <> "" Then ce.Value = "*" & ce & "*" '加上通配符*,实现模糊查询
'Next
If IsEmpty(.Range("c4")) Or IsEmpty(.Range("e4")) Then
'Or IsEmpty(.Range("b7:b41")) 添加科室不为空，未成功
MsgBox ("编码、名称为空，不可查询！") Else
Sheets("数据存储").Range("A1:l" & Erow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ .[c3:e4], CopyToRange:=.[A5:l5], Unique:=False
r2.Borders(xlDiagonalDown).LineStyle = xlNone r2.Borders(xlDiagonalUp).LineStyle = xlNone
r2.Borders(xlEdgeLeft).LineStyle = xlNone
r2.Borders(xlEdgeTop).LineStyle = xlNone
r2.Borders(xlEdgeBottom).LineStyle = xlNone
'r2.Borders(xlEdgeRight).LineStyle = xlNone r2.Borders(xlInsideVertical).LineStyle = xlNone
r2.Borders(xlInsideHorizontal).LineStyle = xlNone
r2.NumberFormatLocal = ";;;"
'For Each ce In .[a2:x2]
'If ce <> "" Then ce.Value = Mid(ce, 2, Len(ce) - 2) '取消 "*"通配符
'Next End If End With End Sub
3. 更新 Sub Update() '
'更新 Macro，xiaohou制作，时间2013-9-5
Dim arr, d As Object
Dim r As Range
Dim lr&, i&, j%
With Sheets("数据录入") '查询修改工作表数据区域写入数组arr
'arr = .Range("A7:D" & .Range("A65536").End(xlUp).Row)
arr = .Range("a6:l39")
Set r = .Range("d6:l39")
End With
Set d = CreateObject("scripting.dictionary") '定义字典对象
For i = 1 To UBound(arr) '逐行
'If Len(arr(i, 2)) <> 0 Then '排出“合计”行，即：姓名务数据
If Not d.exists(arr(i, 1) & arr(i, 2) & arr(i, 3)) Then d(arr(i, 1) & arr(i, 2) & arr(i, 3)) = arr(i, 4) & Chr(9) & arr(i, 5) _
& Chr(9) & arr(i, 6) & Chr(9) & arr(i, 7) & Chr(9) & arr(i, 8) & Chr(9) & arr(i, 9) & Chr(9) & arr(i, 10) & Chr(9) & arr(i, 11) & Chr(9) & arr(i, 12)
'上一句：如果编码和名称连接字符串字典不存在(首次出现，这里判断可能多余)，这个字符串添加到字典键值，后续的相关属性字段用制表符连接添加到字典条目
'End If Next
With Sheets("数据存储")
lr = .Range("A100000").End(xlUp).Row '数据存储工作表数据行数
'.Range("C2:D" & lr).SpecialCells(xlCellTypeConstants, 23).ClearContents '清除C、D列不含公式单元格的值
arr = .Range("A2:l" & lr) '数据存储工作表数据区域写入数组arr
For i = 1 To UBound(arr) '逐行
If d.exists(arr(i, 1) & arr(i, 2) & arr(i, 3)) Then '如果编码和名称连接字符串字典存在，即Sheet2中有
For j = 4 To 12 'D、E、F...列逐列
'If Not Cells(i, j).HasFormula Then Cells(i, j) = Split(d(arr(i, 1) & arr(i, 2)), Chr(9))(j - 3)
'上句：如果单元格不含公式，把Sheet2对应的数据写入这个单元格
.Cells(i+1,j)=Split(d(arr(i,1)&arr(i,2)&arr(i,3)),Chr(9))(j-4)
Next
EndIf
Next
EndWith
r.ClearContents
Sheets("
数据录入
").Cells(4,3).Select
MsgBox("
数据已更新完成，若要查看更新后的内容，请点击按钮查询")
Ⅸ Excel 如何实现用窗体录入数据到指定的单元格
1、在自己的电脑上打开EXCEL表格