如何利用窗体实现查询和录入数据

lijie6 · 发表于 2024-12-20 15:07

各位老师：
下午好。想实现在窗体内有6个框，第一个框是下拉式的选择手机号，第二和第三个框直接显示对应姓名和年龄。第四个框手动填写住址，第五个框手动填写升高，第六个框手动填写体重，点回车会是确定按钮自动记录进表2里对应的位置。

Yalishanda30 · 发表于 2024-12-20 15:14

AI给的代码

lijie6 · 发表于 2024-12-20 19:49

Yalishanda30 发表于 2024-12-20 15:14
AI给的代码

按这个输入还是不行，老是提示语法错误。老师能给个成品吗？

3190496160 · 发表于 2024-12-21 10:09

Private Sub ComboBox1_Change()
Dim rn As Range
Dim r As Long, i As Long
zd = ComboBox1.Text
If zd = "" Then Exit Sub
r = Cells(Rows.Count, 1).End(xlUp).Row
Set rn = Range("a2:a" & r).Find(zd, , , , , , 1)
w = rn.Row
TextBox1.Text = Cells(w, 2)
TextBox2.Text = Cells(w, 3)
End Sub

Private Sub CommandButton1_Click()
rr = Array(ComboBox1.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text)
For i = 0 To UBound(rr)
If rr(i) = "" Then
MsgBox "请把信息录入完整！": Exit Sub
End If
Next i
With Sheet2
r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(r, 1).Resize(1, 6) = rr
End With
For i = 1 To 5
Controls("TextBox" & i) = ""
Next i
MsgBox "ok!"
End Sub

Private Sub UserForm_Initialize()
Dim r As Long, i As Long
r = Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据源为空！": Exit Sub
ar = Range("a2:a" & r)
ComboBox1.List = ar
End Sub

3190496160 · 发表于 2024-12-21 10:11

测试.rar (22.01 KB, 下载次数: 19)

lijie6 · 发表于 2024-12-21 15:47

3190496160 发表于 2024-12-21 10:11

谢谢老师！冬至快乐！吃饺子

micch · 发表于 2024-12-21 19:50

micch · 发表于 2024-12-21 21:15

简化代码，保留最基础代码

		自动登录	找回密码
密码			免费注册