怎么用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中的内容改变量,触发相应的事件,并自动运行上述代码,而无需手动运行上面的代码。
猜你喜欢
- 数据分列常见功能有日期格式的转换,有规律的数据分列,固定宽度的数据分列,这篇文章将详细讲解Excel快速填充及文本与数值的互换。软件演示版本
- 在Word中排版时,经常会进行分栏设置,通过分栏能够使图文更方便的阅读,同时增加版面的活泼性,因此,分栏技巧是我们日常办公必备的技能。接下来
- PPT/WORD/EXCEL/OneNote/Publisher/Access等软件,数量多,占用资源也多,甚至有一些软件可能一两年都用不到
- 操作步骤1、打开Word中的一篇原始文档,把鼠标切入到功能区的“插入”选项卡,在“页眉和页脚”区域点击“页眉”选项组,在弹出的下拉菜单中选择
- 1、电脑打开word文档。2、打开word文档后,在插入页面,点击插入表格。3、插入表格后,选中表格,然后进入表格工具。4、在表格工具页面,
- 如何将Word 2003功能转换为Word 2007?Word 2007具有与Word 2003一样多的功能,也许还有更多功能。但是,如果您
- 上次编辑后保存的 Word 文档再次编辑或阅读时需要用 Word 打开,打开方式有多种,既可以打开 Word 后再打开,也可以直接从硬盘打开
- Word文档中快速输入特定内容的方法1、单击“文件”按钮,在打开的面板中选择“选项”。 2、此时会打开名为“Word选项”的窗口,在左侧选择
- win10srttrail.txt无法开机使用命令行修复方法?win10srttrail.txt无法开机使用命令行修复方法?在平时使用电脑过
- win7鼠标右键没反应怎么处理?最近有用户反映自己的win7鼠标在使用的过程中会突然失灵,所有需要右击的选项都是没有办法点击的,让自己没法更
- 本文介绍一下应用Excel2010快速画出甘特图的做法,虽然不是用专业软件制作,但是Excel应用画甘特图也是非常方便简洁,希望对大家有所帮
- 以太网是曾经的本地连接,电脑如果要能上网的话需要能够连上上网的设备,也就需要一个能正常的IP地址。如果遇到IP地址配置错误,或者是私有的一个
- 不想遇到太多 bug 又想早点用上新系统的果粉们,想必都已经在第一时间升级了 iOS 16 Public Beta 公测版了吧!随着 iOS
- Win10电脑日历中的节日看不清怎么办?节日是所有小伙伴都十分喜爱的,因为不仅会放假,还会有好吃的好玩的。有些小伙伴在使用电脑的时候经常会看
- word中Latex格式的公式怎么转换为可编辑的公式?word中插入了Latex格式的公式,但是这个格式是不能编辑的,怎么才能转换为Math
- 首先要搞清楚Word中标记显示为“向下小箭头”是干嘛用的?下图中红色圈选的标记。 这个标记称之为手动换行符。我们可以理解成是在一
- 给表格添加边框和底纹,可以起到美化表格的作用,如何在Word2003文档中给表格设置边框和底纹。今天,小编就教大家在Word2003中文档设
- 向文档插入图片时,不要使用手工方法来进行编号,即按下回车键另行一行,手工输入图片的编号和题注信息,正确的方法是应该采取插入题注的方法来完成。
- 很多的朋友,在Word中编辑文档时,都不会去设置页边距,都是使用默认的。但是在一些文档的编辑当中,页边距的设置是十分重要的,所以小编要来介绍
- 常常在给Word文档添加页眉页脚的时候就会突然多出一条多余的横线,这条横线根本不是自己想要的效果,那么,页眉横线怎么去掉?那么下面就由小编为