怎么用excelvba开发学生管理系统

~

经过不断完善，我们的系统已经能够自由地将中输入的信息灵活地导入中。

现在，让我们能够查询中的数据，并将查询结果自动显示到中。

为此，我们建立一张与完全相同的工作表，将其命名为。

现在的工作簿有三张表，如下图所示。

命名动态名称

使用公式命名动态名称。单击“公式”功能区选项卡中的“定义名称”，调出“新建名称”对话框，将名称命名为“姓名”，在“引用位置”输入公式：

=OFFSET(员工信息数据库!$C$1,1,0,COUNTA(员工信息数据库!$C:$C)-1,1)

单击“确定”完成名称的定义，如下图所示。

这样，当在表中增加信息时，名称定义的内容会自动扩展。

定义数据有效性

在的单元格B3（即姓名单元格）定义数据有效性。过程如下图所示。

提取员工信息

下面，我们来编写程序。当在单元格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

‘在表中找到与表中单元格B3(即姓名单元格）内容相同的单元格

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的下拉列表中选择姓名，然后运行上面的程序，将自动查找该姓名的相关信息并填充表格。

注：当我们学习了工作表事件后，可以在事件中调用上面的代码，当单元格B3中的内容改变量，触发相应的事件，并自动运行上述代码，而无需手动运行上面的代码。

---

三江侗族自治县17047963639： EXCEL中如何用VBA实现 - ？
闻健玉川： 方法/步骤如下: 1、双击打开桌面的EXCEL; 2、单击右上角的OFFICE图标,找到EXCEL选项,单击打开;3、勾选在功能区显示“开发工具”选项卡,单击确定按钮完成修改.4、单击菜单栏的开发工具,然后找到Visual Basic单击打开便可以进行相关的VBA编程.

三江侗族自治县17047963639： excel中vba怎么用 - ？
闻健玉川： 1 打开 Microsoft Office Excel 2007,点击 “开始” ->“Excel 选项”.2 在弹出的对话框中,选择“常规”选项卡,并在右侧点选“在功能区显示'开发工具'选项卡”,并单击“确定＂.3 在单元格A1中输入“弧度”,单元格B1中输入“角...

三江侗族自治县17047963639： excel怎么使用VBA - ？
闻健玉川： excel使用VBA主要是通过宏运行的模式 一般要求来说 如果你没有VBA知识 建议用excel公式 VBA的代码在excel开发工具界面 可以在常规选项中 开发工具可见处打勾 就可以看到visual basic 和 宏两个选项 进去就能输入代码

三江侗族自治县17047963639： excel中生成的vba代码怎么使用 - ？
闻健玉川： 在excel中可以添加VBA代码,通过打开“开发工具”,点击打开VB编辑器,进入VBA编写代码.1开发工具 2VB编辑器 3选择工作,双击 4在代码窗中输入代码

三江侗族自治县17047963639： 怎在EXCEL中使用VBA语言编程？
闻健玉川： )打开新工作簿,确认其他工作簿已经关闭. 2)选择A1单元格.调出“常用”工具栏. 3)选择“工具”—“宏”—vb 编辑器

三江侗族自治县17047963639： excel 可以开发管理系统吗 - ？
闻健玉川： 可以是可以,管理系统与Excel结合的优势在于管理系统会有很多数据需要录入到表格中,Excel本身的填报录入这部分是非常友好和方便的. 但是管理系统还需要对录入的数据进行管理,Excel本身在数据管理这块是短板,Excel本身没有数据库...

三江侗族自治县17047963639： 想学VBA,可是不知道这是什么来的,请问excel怎么开发VBA环境? - ？
闻健玉川： 在excel里,按Alt+F11就进入vba开发环境了

三江侗族自治县17047963639： excel中使用VBA对话框 - ？
闻健玉川： 用VBA内置函数inputbox来输入文本,使您的“班级”成为变量.用msgbox来回返M2单元格中的结果值.DIM bj AS Stringbj=inputbox(＂请输入您的文本＂,＂请输入＂)Sheets(＂ET...

三江侗族自治县17047963639： Excel2003 使用VBA 如何创造自己的Personal.xls - ？
闻健玉川： 例成绩放A1:A14 ★先建一列(如B列)放名次,用公式 =rank(该生成绩,所有成绩的绝对地地址) 例 在B1中写 =RANK(A1,$A$1:$A$14),然后填充柄填充该列 ★算学生的30%人数,总人数可count算,也可直接写 例 在A16中写 =COUNT(A1:A14)*0.3 ★建一列(如C列)放前30%学生的成绩,用=if(该生名次例 在C1中写 =IF(B1 ●●以上三步可以合并起来直接写=IF(RANK(A1,A$1:A$14) ★最后=average(C1:C14)即可,如觉得C列不美观可隐藏该列(格式-列-隐藏) 以此类推,注意绝对地址 其实这么做也很麻烦,仅供参考

三江侗族自治县17047963639： 弗雷特法在Excel中如何用VBA编写 - ？
闻健玉川： 在选项对话框中勾选“显示开发工具”,看图就是了.然后在开发工具面板中就可以 打开vba.在vba中添加一个普通模块,在模块里编写函数.比如:function MaxValue(a as integer,b as integer) as integer MaxValue=iif(a>b,a,b) end function 这个函数在表格界面上的插入函数命令中也会列出来的,在用户定义分类中.