Ⅰ 怎樣在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表格