各教学单位：
为深入贯彻教育部关于推进教育数字化战略行动，积极探索人工智能技术在本科教育教学管理中的应用，提升教学管理服务水平，现面向全校教学管理人员征集人工智能应用场景。具体事宜通知如下：
一、征集目的
通过征集本科教育教学管理中的人工智能应用场景，推动人工智能技术与教学管理的深度融合，提升学校教学管理的智能化水平，为师生提供高效、智能的教学支持服务。
二、征集对象
本科教学管理人员。
三、应用场景
本次征集的应用场景应围绕但不限于以下方面：教学管理、学生管理、教师发展、校园服务、数据分析等。
示例：本科“二次授位”后，需要在excel表格中将部分学生的“授位结论”由改为“不授学位”改为“二次授位”，目前的方式是通过VLOOKUP函数，查找二次授位通过同学的学号，然后进行筛选并人工将“不授学位”改为“二次授位”，操作比较繁琐且容易出错。
解决方式：和大模型对话（本示例为智谱清言），以下为提示词“我有个excel表，sheet1的数据里面，C列为学号，M列为 第一次授位结论，分别为授予学位和不授学位；shee2的数据里面A列是学号，C列是 二次授位的数据，请写一个vba程序，把通过学号查找sheet2里面 二次授位的学生，然后在sheet1里面的M列 把 “不授学位”改成“二次授位””。
大模型会输出一段VBA代码（见附件1），然后将VBA代码嵌入EXCEL（具体方式见附件2），即可实现一键查找替换。
四、征集时间
长期
五、提交方式
扫码填报。
教务处
2024年12月10日
附件1：大模型输出的VBA代码
Sub UpdateDegree()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lastRow1 As Long
Dim lastRow2 As Long
Dim i As Long
Dim j As Long
Dim studentID1 As Variant
Dim studentID2 As Variant
Dim degreeConclusion As Variant
' 设置工作表
Set ws1 = ThisWorkbook.Sheets("sheet1")
Set ws2 = ThisWorkbook.Sheets("sheet2")
' 获取两个工作表的最后一行
lastRow1 = ws1.Cells(ws1.Rows.Count, "C").End(xlUp).Row
lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
' 遍历sheet1的学号
For i = 2 To lastRow1
studentID1 = ws1.Cells(i, "C").Value
degreeConclusion = ws1.Cells(i, "M").Value
' 如果当前行的授位结论为"不授学位"，则查找sheet2中的二次授位信息
If degreeConclusion = "不授学位" Then
For j = 2 To lastRow2
studentID2 = ws2.Cells(j, "A").Value
' 如果找到对应的学号，且二次授位数据不为空，则更新sheet1的授位结论
If studentID1 = studentID2 And ws2.Cells(j, "C").Value <> "" Then
ws1.Cells(i, "M").Value = "二次授位"
Exit For
End If
Next j
End If
Next i
End Sub
附件2： VBA代码如何使用
要运行VBA程序，您需要按照以下步骤操作：
1. 打开Excel文件： 打开包含您想要修改的sheet1和sheet2的Excel工作簿。
2. 进入VBA编辑器：
o 在Excel中，按下Alt + F11键，这将打开VBA编辑器。
o 或者，您可以在Excel的菜单栏中选择“开发者”选项卡，然后点击“Visual Basic”按钮进入VBA编辑器。
o 插入新模块：
o 在VBA编辑器中，右键点击工作簿名称（在“项目”窗口中），选择“插入” -> “模块”。
o 这将创建一个新模块，您可以在其中编写代码。
3. 复制粘贴代码：
o 将上面提供的VBA代码复制粘贴到新模块的代码窗口中。
4. 运行程序：
o 在VBA编辑器中，按下F5键或选择“运行” -> “运行子程序/用户定义的函数”。
o 弹出的“宏”对话框中，选择UpdateDegree，然后点击“运行”。
5. 返回Excel：
o 程序运行完成后，关闭VBA编辑器，返回到Excel工作簿。
o 检查sheet1中的M列，看看“不授学位”是否已经根据sheet2中的数据更新为“二次授位”。
