以下内容已在Exelhome免费在线培训中心提交。让我们一起学习，一起时步。网址：http://t.excelhome.net
一、内容回顾：
本课时是参加EH在线免费培训班11112班的第一课时，课件中的主要讲解了VBA的基础知识，内容有以下几点：
1、VBA的发展史----了解
2、VBA的用途和作品展示。讲这个知识点我觉得主要是老师让学生知识使用VBA的一些场所，如果用函数简单，就用函数，用VBA能让工作简单，就用VBA。作品展示主要让学生了解VBA的功能，增加学员学习VBA的兴趣，和学习积极性。我什么时能开发出课件中展示的这种功能的VBA就好了。
3、VBE。这一点应该是重点掌握的，主要有两个知识点，一个是怎么样快捷方便的打开VBE,讲了两个方法，我看到其它课件讲了6种方法，其实按照个人习惯，掌握一两种方法也就足够了。第二个是VBE窗口的认识，这是个重点，在深入学习VBA之前一定要掌握 这一点。
4、VBA语言的基本结构，以sub *** ()开始，以sub end结束，为了阅读方便，有一些书写规范，也可以用缩进的小软件，还有在编写时自己提示等功能。要很好的应用vba,这上点是不可少的。VBA程序的命名规范没有提到过，可有会在后面讲到的。
5、我发现原始课件是2009年做的。录制可能是近期录制的。
6、界面很清爽，在美工方面也做得很好
二、再玩一下作业代码：
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set Rng = Application.Intersect(Target, Range("a27:g35"))
If Not Rng Is Nothing Then
If Rng.Cells.Count = Target.Cells.Count Then
Target.Interior.Color = 16777444
Cancel = True
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Rng = Application.Intersect(Target, Range("a27:g35"))
If Not Rng Is Nothing Then
If Rng.Cells.Count = Target.Cells.Count Then
Target.Interior.Color = vbBlue
End If
End If
End Sub
和作业相比，在这个代码中，修改了颜色信息和单元格区域。 有一个问题，在VBA中怎么样表示颜色信息。这个应该说是不是很重要。
课件的片头设计和美工方面很不错的，也是我学习的地方。
以上内容已在Exelhome免费在线培训中心提交。让我们一起学习，一起时步。网址：http://t.excelhome.net
By:kjianwu
评论