怎样用VBA从总课程表中提取个人课表
更新时间: 2025-09-30 14:46:21
1、先了解主课程表的内容,第一行主目录,第二行是日期,第一列是时间,接下来是明细内容,整个excel分两个sheet,第一页是主课程表,第二页是个人课程表
2、新建sheet3,复制sheet1,然后清楚内容,也就是将框架复制过来,然后再第三行第二列里(B3)插入函数B3=IF(总课程表!B3=物理,1,0),在excel里IF函数的意思匹配值,若为真,则显示1,为假,则显示0,将这个函数通过拖拉的方式,复制在整个课程表,就会发现有两处显示1,其余显示0
3、对比主课程表,就会发现sheet3里的两处显示1的地方,正是物理课程表,这个方式是用函数的方式来搜寻个人课程表,还需要个人修改1或者0,比较繁琐
4、我们将sheet2改为个人课程表,对着命名处点鼠标右键,在菜单列里选择【查看代码】,这个步骤就可以打开VBA编辑框
5、在VBA编辑框里,选择【个人课程表】,通用模式请用【worksheet】,在触发模式里选择BeforeDoubleClick,请注意多少要有点VBA常识,比如cells函数的意思是指单元格的值,cells(7,3)就是指第7行第3列,每行代码结束要用英式冒号:,这是基本的VBA常识,在代码行里输入Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Sheet2.Cells(7, 3) = 物理:Sheet2.Cells(3, 6) = 物理:Sheet2.Cells(11, 5) = 理综:
6、将VBA编辑框保存且关闭,等待执行完毕之后,返回主excel,就可以看到结果了,周二周五有课,周四有晚自习,其它均为空,对比主课程表,发现没有错误,就表示VBA代码正确!
怎样用VBA从总课程表中提取个人课表 相关文章
- 河北省张家口市宣化区气象台发布雷电黄...
- 福建省福州市闽侯县气象台发布雷电黄色...
- 浙江省杭州市杭州市富阳区气象台发布雷...
- 黑龙江省黑河市逊克县气象台发布霜冻蓝...
- 浙江省金华市磐安县气象台发布雷暴大风...
- 河北省张家口市康保县气象台发布雷电黄...
- 新疆维吾尔自治区气象台发布大风蓝色预...
- 浙江省台州市临海市气象台发布雷暴大风...
- 云南省玉溪市澄江市气象台发布暴雨蓝色...
- 江西省赣州市上犹县气象台发布雷电黄色...
- 浙江省温州市泰顺县气象台发布暴雨黄色...
- 辽宁省锦州市黑山县气象台发布大风蓝色...
- 贵州省贵阳市清镇市气象台发布大风蓝色...
- 河北省张家口市崇礼区气象台发布雷电黄...
- 浙江省金华市义乌市气象台发布雷电黄色...
- 辽宁省辽阳市气象台发布暴雨橙色预警信...
- 江西省南昌市安义县气象台发布雷电黄色...
- 黑龙江省黑河市逊克县气象台发布寒潮蓝...
- 新疆维吾尔自治区气象台发布寒潮蓝色预...
- 云南省红河哈尼族彝族自治州河口瑶族自...