注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

宁夏城市印象

宁夏

 
 
 

日志

 
 

Exelhome免费在线培训中心课时1培训小结(原创)  

2011-05-07 10:19:04|  分类: 学科研究 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

以下内容已在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

  评论这张
 
阅读(496)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017