怎么用excel vba开发学生管理系统
时间:2022-07-29 14:31:24
经过不断完善,我们的系统已经能够自由地将
现在,让我们能够查询
为此,我们建立一张与
现在的工作簿有三张表,如下图所示。
命名动态名称
使用公式命名动态名称。单击“公式”功能区选项卡中的“定义名称”,调出“新建名称”对话框,将名称命名为“姓名”,在“引用位置”输入公式:
=OFFSET(员工信息数据库!$C$1,1,0,COUNTA(员工信息数据库!$C:$C)-1,1)
单击“确定”完成名称的定义,如下图所示。
这样,当在
定义数据有效性
在
提取员工信息
下面,我们来编写程序。当在单元格B3中选择某个姓名后,会调取相应的信息自动填充
程序代码如下:
Sub FindInfo()
‘声明Worksheet变量
Dim wksInfo As Worksheet
Dim wksBaseInfoCX As Worksheet
‘声明变量,代表工作表中最后一行行号
Dim lLastRow As Long
‘声明单元格对象变量
Dim rng As Range
‘给变量赋值
Set wksInfo = ThisWorkbook.Worksheets(“员工信息数据库”)
Set wksBaseInfoCX =ThisWorkbook.Worksheets(“员工基本信息表 (查询)”)
‘找到
lLastRow = wksInfo.Range(“C”& Rows.Count).End(xlUp).Row
‘在
Set rng = wksInfo.Range(“C2:C”& lLastRow).Find(What:=wksBaseInfoCX.Range(“B3”),LookAt:=xlWhole)
‘如果找到,则填充
With wksBaseInfoCX
‘如果单元格B3中有值,且在
If (.Range(“B3”).Value<> “”) And (Not rng Is Nothing) Then
.Range(“B2”).Value =rng.Offset(0, -2).Value
.Range(“F2”).Value =rng.Offset(0, -1).Value
.Range(“D3”).Value = rng.Offset(0,1).Value
.Range(“F3”).Value =rng.Offset(0, 2).Value
.Range(“B4”).Value =rng.Offset(0, 3).Value
.Range(“D4”).Value =rng.Offset(0, 4).Value
.Range(“F4”).Value =rng.Offset(0, 5).Value
.Range(“B5”).Value =rng.Offset(0, 6).Value
.Range(“F5”).Value =rng.Offset(0, 7).Value
.Range(“B6”).Value =rng.Offset(0, 8).Value
.Range(“D6”).Value =rng.Offset(0, 9).Value
.Range(“F6”).Value =rng.Offset(0, 10).Value
.Range(“B7”).Value =rng.Offset(0, 11).Value
.Range(“F7”).Value =rng.Offset(0, 12).Value
.Range(“B8”).Value =rng.Offset(0, 13).Value
.Range(“D8”).Value =rng.Offset(0, 14).Value
.Range(“F8”).Value =rng.Offset(0, 15).Value
.Range(“B9”).Value =rng.Offset(0, 16).Value
.Range(“D9”).Value =rng.Offset(0, 17).Value
.Range(“F9”).Value =rng.Offset(0, 18).Value
.Range(“B10”).Value =rng.Offset(0, 19).Value
.Range(“B11”).Value =rng.Offset(0, 20).Value
.Range(“B12”).Value =rng.Offset(0, 21).Value
Else
MsgBox “请选择姓名!”
End If
End With
End Sub
在
注:当我们学习了工作表事件后,可以在事件中调用上面的代码,当单元格B3中的内容改变量,触发相应的事件,并自动运行上述代码,而无需手动运行上面的代码。