第二页是个人课程表则显示1，还需要个人修改1或者0，第二行是日期，b3=物理，怎样用VBA从总课程表中提取个人课表其余显示0有以下方法
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代码正确！
