excel做成软件录入界面（excel表格怎么样做成app软件）

本文目录

• excel表格怎么样做成app软件
• 怎样吧EXCEL的界面变成软件输入界面
• 如何通过EXCEL制作一个录入收集系统
• Excel做登录界面
• 如何在Excel中创建输入界面
• EXCEL能做个简单的应用程序吗 我想在EXCEL做个简单的应用程序具体是 1、把界面做成像系
• 2007版excel做一录入界面,然后希望一打开电子表格，首先把录入界面显示出来

excel表格怎么样做成app软件

• 打开Excel之后，按下Alt+F11组合键，打开VBA界面，在左侧空白处点击右键，选择“插入”、“用户窗体”，如下图所示。

  请点击输入图片描述

• 通过工具栏，在用户窗体上插入各种控件，制作好软件界面，如下图所示。

  请点击输入图片描述

• 然后双击左侧的“ThisWorkbook”，输入代码：

  Private Sub Workbook_Open()

  Application.Visible = False

  UserForm1.Show

  End Sub

  如下图所示。

  请点击输入图片描述

• 最后，保存Excel文件为xlsm格式，如下图所示。

  请点击输入图片描述

• 这样，打开Excel之后，就会显示软件界面，而非原本的Excel界面了，结果如下图所示。

  请点击输入图片描述

  END

总结：

• 1

  1.在VBA界面，插入“用户窗体”；

  2.在用户窗体上插入各种控件；

  3.输入代码，打开Excel时出现用户窗体；

  4.保存文件为xlsm格式；

  5.打开Excel就会显示软件界面。

怎样吧EXCEL的界面变成软件输入界面

方法/步骤首先制作一个能力或技能测试界面。在此为了讲解的需要，小编就制作一个简单的猜成语测试界面。按照所示的界面风格设置问题。选择评判列，在字体下拉列表中选择“Winding”字体。在第一个问题对应的评判单元格中输入公式：“=IF(C6="","K",IF(C6="无时无刻","J","L"))”。其中“无时无刻”就是问题的答案。利用同样的方法，在其它与问题相对应的评判单元格中输入相应的公式。结果所示。（可直接复制公式，将其中的“无时无刻”改成相应问题的答案即可。保护工作表公式区域，防止非法查看公式中含有的敏感信息。由于本文档中的所有答案全部都位于公式中，因此将公式隐藏或锁定起来就显得极有必要。首先选择所有单元格区域，在文档区域右击，选择“设置单元格格式”，从弹出的窗口中切换到保护选项卡，取消勾选“锁定”复选框，最后点击“确定”完成设置。在“开始”选项卡中点击“查找和选择”下拉列表，从弹出的列表中选择“公式”，此时所有的含有公式的单元格全部被选中。在已经选中的其中一个含有公式的单元格上右击选择“设置单元格”。在弹出的窗口中勾选“保护”选项卡下的“锁定”和“隐藏”两个复选框。切换到“审阅”选项卡，单击“保护工作表”，在弹出的保护工作表窗口中把“允许此工作表中所有用户进行”列表中的所有允许选项全部选中，这主要是为了确保只保护公式而不影响其它功能，单击确定对工作表进行保护。发布文档，提供给相关测试人员进行答题测试。经过文档的保护设置之后，就可以将文档分发出去，供测试者测试用。测试者在答题过程中，如果问题回答正确，将会出现一个笑脸在评判单元格中，否则如果没有填写则是一个正常的脸，填写错误将会得到一个悲伤的面孔。如果测试者试图想要查看公式区域中的内容，就是弹出禁止访问的对话框。

如何通过EXCEL制作一个录入收集系统

一、数据采集系统功能 录入、保存、查询、清空、修改

 二、两个界面 

1.数据录入界面：前台功能使用界面，实现“录入、保存、查询、清空、修改”；

2. 数据存储界面：后台实现数据的保存； 录入界面：

三、实现方法 1. 保存功能 Sub Save() ’ 

’保存数据 Marco，xiaohou制作，时间2013-9-5 ’ 

Dim r1, r2, r3 As Range With Sheets("数据存储") 

Set r2 = .Range("a2", ..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("数据存储")..End(xlUp).Row     

r1.ClearContents     

’For Each ce In . 

’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:= _     ., 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 . 

 ’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 

End If 

Next 

End With 

r.ClearContents 

Sheets("

数据录入

").Cells(4, 3).Select 

     MsgBox ("

数据已更新完成，若要查看更新后的内容，请点击按钮查询")

Excel做登录界面

按"Alt+F11"启动VBA器，右键→插入→用户窗口按照下图，将控件中的按钮，和文本框画在“uaerform1”中即可。双击“登录”按钮，并输入：If TextBox1.Value = "管理员" And TextBox2.Value = "123" Then Me.Hide Sheets("sheet1").Select Else ThisWorkbook.Application.QuitEEnd if双击“ThisWorkbook”并输入代码：Private Sub Workbook_Open() UserForm1.Show 0End Sub启动如果是2007版本以后，界面如下：（备注：需将文件另存为xlxm文件格式）VBA也是容易破解的，用excel自带的帐号密码，相对更安全：保存的时候，选择“工具”→“常规工具”，在录入密码即可。

如何在Excel中创建输入界面

1、首先我们打开一个excel，这里我们建议使用office excel，因为wps的excel开发工具中的VBA是灰色的，还需要我们下载相关的插件

2、接着我们在最上边的菜单栏中找到开发工具，然后找到Visual Basic，我们点击一下，就会出现一个新的页面

3、写好上面的代码之后，我们按alt+f11回到主界面，然后在开发工具的下边找到插入，我们选中按钮，然后就会自动跳出宏

4、然后我们点击一下刚才的按钮就会弹出一个框，上面的内容就是我们之前写的hello，如果你想删除这个按钮需要先用鼠标右键点击一下。

EXCEL能做个简单的应用程序吗 我想在EXCEL做个简单的应用程序具体是 1、把界面做成像系

1、上述应用程序功能，EXCEL基本可以做到。2、不会导致该EXCEL经常死机未响应。3、做这个应用程序除学会EXCEL一般的操作功能外，还要熟练掌握函数，控件，VBA等功能。4、相关学习教材，可以到EXCELHOME论坛获取。

2007版excel做一录入界面,然后希望一打开电子表格，首先把录入界面显示出来

采用vba很容易实现，设置一个表格sheet1为录入界面，也可以以对话框的形式录入，录入的数据最终写入到d15，f16，需要的话我有教程。