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

问题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，仅供参考！

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

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

就是文本框1的事件里写

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