Question

老师： 请教你2个问题，请帮帮忙！！

问题1.
如我有一组工号和姓名的数据.如何在窗体输入文本框1里面输入姓名.文本框2自动显示工号呢？
问题2
excel窗体输入时如其中有空白处没填写完整将提示不能确定输入，如何防呆
尊听你的回答！！！

Answer 1

问题1：
假定工号和姓名在工作表“数据”中，工号在A列，姓名在B列（不重复）。
则双击输入姓名的文本框，在代码窗口溃出现如下页面代码格式：Private Sub TextBox1_Change()

End Sub
在光标闪动处粘贴如下代码：
xm = TextBox1.Text '姓名
xh = Application.Match(xm, Sheets("数据").Range("B:B"), 0) ' 姓名所在的行数
TextBox2 = Sheets("数据").Cells(xh, 1) '工号
问题2：
如果利用窗体输入数据到EXCEL表格中，要求输入的有三个文本框内容，不能有一个是空白。假定其中一个是空白，则在命令按钮中加上如下判断代码防错即可。
If TextBox1="" Or TextBox2="" Or TextBox3="" Then'如果三个文本框有一个是空白
MsgBox Chr(10) & "请检查各项数据是否输入完整 ？",,"数据输入"'信息提示
Exit Sub'结束程序
End If
上述代码一是起提醒作用，二是不继续执行下一步操作。
03版EXCEL，仅供参考！

追问

看明白了，明天上班是试试，

第2个问题最后加个Exit Sub难道就可以了，我鼓捣一下午，每次提示了但还是录入到单元格了，哎，自己太菜了

Answer 2

1数据存放于何处呢? 工作表中,有无特别规定,
方法:打到姓名对应的行,得到行列号,再位移到工号位置,取值即可...
2.这个问题很容易,判断一下就好.
方法:当输入框有空值时提示错误,停止下一步操作

最好发例子过来,较容易解决.

追问

由于附件在公司，我现在在说明白一点点
问题1：
工作表录入时是我自己做的一个窗体输入.现在窗体文本只输入姓名和其他.姓名是对应到工作表如B列的.那么C的工号是我用Vlookup函数求得的.我想要的效果是在窗体输入文本框1输入姓名.文本框2自动显示工号..确定输入后C列将不会用到Vlookup函数求的工号.

追答

            如果用到窗体,就是VBA啦! 用到失去焦点事件 再来个for 查找 取值即可..

下面为附意写的,依你所讲:百度不让传超链...想骂!

Answer 3

就是文本框1的事件里写

Answer 4

输入姓名后，通过sql语句，根据姓名查询工号

追问

学生不知，请老师写一个代码.

追答

你是用sql数据库吧？
select 工号 from 表名 where 姓名=文本框里的内容