1.本节课主要讲的是VBA基础-2.5BeforeDoubleClick，主要讲的是点击日期后面记录报道的时间点。

2.选中日期后面的空格，在点击【开发工具】-【Visual Basic】，选择sheet1，将模式选择BeforeDoubleClick。

3.在代码处在写上Set Rng=Range("b2",[a1].End(xLDown)(1,4) Set rng1=Intersect(Rng,Target)。

4.在代码处在添加上Set rng1=Intersect(rng,Target) If Not rng1 Is Nothing Then。

5.在代码下面在添加上If Target.EntireRow.Range("a1").Value=Date Then Target=Format(Now,"h:m:s")

6.当代码写完以后，在点击日期下面的空格就会出现当时的时间记录下来。

1.本节课主要讲的是VBA基础-2.6BeforeRightClick在点击【开发工具】-【Visual Basic】，选择sheet1禁用右键菜单，将模式选择BeforeRightClick。

2.本节课主要要实现的是除了表格以外的地方点击右键会出现窗口，在表格内容区域点击右键什么也没有。

3.在点击窗口，在代码处写上Dim rng As Range Set rng=Intersect([a1:d10],Target) If Not rng Is Nothing Then。

4.在代码下面在添加上Cancel=True Else Cancel=False。

5.下面讲的是内容右键选择合并单元格的命令会将相同的进行合并。

6.就可以点击【开发工具】-【Visual Basic】，在下面写入代码。

1.本节课主要讲的是VBA基础-2.8AfterSave，在点击【开发工具】-【Visual Basic】，在选择此工作表，在选择AfterSave模式，在代码处写上arr=Range（“b2，[d2].End(xIDown))。

2.在代码处将不需要的代码删除，在代码处在添加Fori=1 To UBound（arr） ReDim Preserve arr1（1 To i）。

3.在代码处在添加arr（i）=arr（i,1)+arr（i,2)+arr（i,3) Next [e2].Resize(UBound(arr),1)=Application.Transpose(arr1)。

4.在将上面的代码变成绿色，在下面在添加上For n=2To UBound（arr）Step2 n=n&","&n+&":"&n+1。

5.在将代码处的进行换行，在下面在添加上r1=(Left(r,Len(r)-1))。

6.在给代码的下面在添加上Range（r1).Color=RGB(80,230,101)。

7.在将表格的颜色去掉，在将合计一列的数字删除，将表格保存。

8.在点击一下表格会发现把合计算了出来，还隔一行就会出现绿色，这是代码的结果。

9.在对立面一行的代码进行修改，r=r&"a"&n&","&"e"n&","。

10.这样在将表格的颜色取消，在重新点击会发现绿色的区域只出现在有内容的部分。

1.本节课主要讲的是VBA基础-2.9BeforeClose，本节课要讲的是在关闭表格是弹出密码窗口。

2.在点击【开发工具】-【Visual Basic】，选择workbook，在将模式选择BeforeClose。

3.在代码处在写上dim x Do x=InputBox("主人刚离开一会，请输入密码“） Loop Until=123。

4.最后，在给代码处的密码处添加上“”，这样当点击关闭时必须输入上密码不然窗口关不掉。

5.就算点击关闭密码的窗口也是关不掉的。

1.本节课主要讲的是VBA基础-2，点击【开发工具】-【Visual Basic】，选择ThisWorkbook，在将模式选择【BeforePrint】。

2.在代码处在写上If ActiveSheet.Name<>"成绩表"Then Cancel=True。

3.在下面在输入写入密码的代码，Do x=InputBox("请输入打印密码“） Loop Until x="123"。

4.最终在给代码添加上End If。

5.在点击【文件】-【打印】的时候会弹出输入打印密码的密码数字。

6.讲成绩表的下面在添加上Cancel=False，这样在点击除了成绩表以外的表格就不需要密码。