excel录入窗口制作，excel自制生产

Excel表格
2023-08-11

excel录入窗口制作？1、首先打开excel并输入相关信息。2、然后点击数据。3、然后选择数据有效性中的数据有效性。4、然后在允许点击序列。5、然后来源输入“男,女”。6、然后将图示的全部勾选并点击确定。7、然后就可以看到有一个下拉框。那么，excel录入窗口制作？一起来了解一下吧。

excel录入窗口式输入

打开Visual Basic界樱亮面（Alt+F11）

新建一个UserForm。根据你的需求把窗体做好含衫。

编写如下程序

Private Sub CommandButton1_Click()

Dim counter As Integer

Dim sign As Boolean

counter = 0

Row = 0

sign = False

Range("B2").Select

Do Until Selection.Offset(counter, 0).Value = "脊老宽"

If TextBox1.Text = Selection.Offset(counter, 0).Value Then

sign = True

Row = counter

End If

counter = counter + 1

Loop

If sign Then

Selection.Offset(Row, 6).Value = TextBox2.Text

Else

MsgBox ("无此用户")

End If

End Sub

Private Sub UserForm_Click()

UserForm1.Hide

End Sub

用excel做仓库

首先建立一个用户窗体UserForm1做为窗，设置两个文本框TextBox1和TextBox2，一个确定按钮，CommandButton1。代码如下

Private Sub CommandButton1_Click()

If TextBox1.Value = "管理员" And TextBox2.Value = "123" Then

Me.Hide

Sheets("简激迹做sheet1").Select

Else

ThisWorkbook.Application.Quit

End If

End Sub

在thisworkbook项输入如下代拦州袜码，就在打开文档时弹出窗。

Private Sub Workbook_Open()

UserForm1.Show 0

End Sub

excel数据录入

按"Alt+F11"启动VBA编辑器，右键→插入→用户窗口

按照下图，将控件中的按钮，和文本框画在“uaerform1”中即可。

双击“”按钮，并输入：

If TextBox1.Value = "山毁管理员" And TextBox2.Value = "123" Then

Me.Hide

Sheets("sheet1").Select

Else

ThisWorkbook.Application.QuitE

End if

双击“ThisWorkbook”并输入代码：

Private Sub Workbook_Open()

UserForm1.Show 0

End Sub

启动如果是2007版本以后，界面如下：（备注：需将文件另存碧昌为xlxm文件格式）

VBA也是容易破解的，用excel自带的帐号密码，相对更安全：保存的时候，选择“”→“逗慧备常规”，在录入密码即可。

用表格制作一个数据输入器

我想将sheet2中的表做为数据录入窗口，数据录入后自动保存到sheet3中做薯神含为数据，sheet2中红色字体部分的名称，规格等是从sheet1中引入的数据（这样做是为了减少输入量），前面蓝色部分需录入的数据，请教这样的录入窗口该怎样做。注：录入数据时先从红色字体部分筛选出需要录入的项目，然后再对应录入数据。有的会为分批几次入库，也就是分批几次录入有两种方法可以建立窗口来实现录入数据。

一种是选择你要录入数据的区域，再通过菜单“”->“记录单”，EXCEL就会弹出一个数据录入窗体。

第二数笑种方法是按“ALT+F11”进入VBA编辑器，在这里，你可以插入一个瞎闹用户窗体，这个可能对没有接触过编程的人来说有些复杂，但功能确实比前一种方法要强劲得多了。

vba做excel录入窗口

PrivateSubCommandButton1_Click()
IfMe.TextBox1<>""AndMe.TextBox2<>"岩纳"Then
IfIsNumeric(Me.TextBox2.Value)Then
DimCXrngAsRange,KAsByte
ForEachCXrngInRange("B4:B"&Range("B65536").End(xlUp).Row)
IfCXrng.Value=Me.TextBox1.TextThen
CXrng.Offset(0,6).Value=山塌Val(Me.TextBox2.Value)
K=1
ExitFor
EndIf
Next
Else
MsgBox"工资录入非数值！！"
GoTo100
EndIf
Else
MsgBox"数据录入不完整！"
GoTo100
EndIf
IfK<>1Then
粗唯没MsgBox"没有找到可用姓名！"
EndIf
100:
EndSub