Vba新手入门的实例课程十五讲

wk0227

很好的资料，谢谢！

lrlxxqxa

小老鼠真是费心了，十分感谢！

ccnahaha

新人报道,感谢小老鼠前辈的资料,学习了

xiaowen147

不管能不能学会，先收藏了再说
谢谢老师

佛山小老鼠

大家晚上好，我们现在上课
第二讲 录制宏 修改宏 保存宏 指定宏  自定义按钮 加载宏

补充的：
    怎样删除个人宏工作薄？

        答：个人宏保存在此路径下的文件夹里C:\Documents and Settings\Administrator\Application ，Data\Microsoft\Excel\XLSTART我们删除相应的文件 但要注意，如果操作系统不一样，可能有点差别

    怎样把工作薄存为加载宏？

         答：第一步：文件菜单，另存为，打开另存为对话框，找到保存类型为Microsoft Office Excel 加载宏（*.xla), 文件名为“佛山小老鼠” 确定
      第二步：工具菜单，加载宏，打开加载宏对话框，勾起“佛山小老鼠“加载宏前面的勾，确定
      第三步：Alt+F11,进入VBE编辑窗口，就可以看到“佛山小老鼠”这个加载宏，你也可以在里添加和修改代码

   加载宏有什么好处？

         答：一.可以保护VBA代码，呵呵，不过这种保护也是相对的，因为在EXCEL里VBE的工程代码很容易被破解，但可以限制不懂VBA的朋友去访问我们的代码和破坏我们写的代码
         
          二.加载宏工作薄不显示,这样可以使初学都和普通工作薄混淆

         三.我们把我们的代码放在加载宏工作薄里,可以方便在其它工作薄里使用,如自定义函数代码放在加载宏工作薄,那么在所能的工作薄里都能使用且不用受工作薄名称的限定,,呵呵,这样是不是很方便啊.

              四.自由自在的加载加载宏工作薄. 方法:工具菜单，加载宏，打开加载宏对话框，勾起“某某加载宏“加载宏前面的勾，确定,这样就加载了这个宏,反之就取消那个加载宏 (备注,记得把宏的安全性设置为低")

     怎样设置宏的安全性?

           答:工具菜单,宏,安全性,安全性分为几种,不过建议大家选择安全级别为中,选择中会询问你是否启用宏?,选择高和非常高,就直接把宏给宏禁了,不会询问你,呵呵,不过我是设置为低,因为我不怕宏病毒.(备注,我们也可以从注册表里修改,我收藏一个工具,在附件里,有兴趣的朋友可以去下载,名字叫做"方便快速设置宏的安全级别"
代码如下制作方法如下：

1. 把下面的代码复制到记事本中然后另存为.reg即可，win7和winxp均可用
   
2. Windows Registry Editor Version 5.00
   
3. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\Security]
   
4. "Level"=dword:00000001
   
5. 自己总结的，
   
6. dword:00000001为低
   
7. dword:00000002为中
   
8. dword:00000001为高
   
9. 
   
10. "Level"=””,为正常的
    

复制代码

怎样加密工程？

    呵呵，这是每一个程序员都要学会的，当你代码写好之后，你是否想加密工程？，为了不让别人随便修改我们的代码，当然有必要，不过，在VBE窗口的工程加密是很脆弱的，如果大家想把自己的代码加密的比较安全，那就要封装成DLL文件，就要通过如VB来封装，我做过一个，做成了COM加载宏，我也上传上来，文件夹名叫做“佛山小老鼠工具栏”，这里我们只介绍简单的工程保护，因为VB我也外行。
     方法1：前台的工具菜单，保护，保护并共享工作薄，输入密码
    方法2：后台，在VBE窗口里，把工程收拢起来，点其前面的“-”号，再把光标放到你要保护的工程对象上，单击鼠标的右键，VBAProject属性（E）... ,===保护选项卡===勾起那个"查看时锁定工程" 在密码文本中输入密码,两次确定OK了,

   怎样解密工程？
    方法：是论坛Idhyob老师精心制作的，在此谢谢这位Idhyob老师，解密工具在附件里，名字叫“VBA加密解密器.rar”同样也可以加密


1.        录制选择性粘贴的宏
方法:打开工作薄”选择性粘贴的宏(未做的)”备注这个工作薄在课件里 选择工作表1选择工具菜单宏录制宏，跳出一个对话框，绝对引用确定后选择区域B3:C7单击鼠标的右键复制选择区域H3:I7选择性粘贴加确定双击单元格E3, 单击单元格E4停止录制
ALT+F11,打开VBE编辑窗口,这就是刚才录制的宏代码，

1. 1#  Sub Macro1()'
   
2. 2#  ' Macro1 Macro
   
3. '3#   宏由 999宝藏网 录制，时间: 2011-2-7
   
4. 4#      Range("B3:C7").Select
   
5. 5#      Selection.Copy
   
6. 6#     Range("H3:I7").Select
   
7. 7#    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
   
8.         False, Transpose:=False
   
9. 8#  End Sub

复制代码

代码解析:第四行代码单元B3:C7选中,第五行代码复制B3:C7,第六行代码单元格H3:I7选中,第7行代码选择性粘贴,加
然后把宏指定给一个椭圆,试试

2.        录制一个清除数据的宏
方法: 选择工具菜单宏录制宏，跳出一个对话框，绝对引用选择区域B3:C7,按Delete键然停止录制
ALT+F11,打开VBE编辑窗口,这就是刚才录制的宏代码，

1. 1#  Sub Macro2()' Macro2 Macro
   
2. ' 宏由 雨林木风 录制，时间: 2010-11-24
   
3. 2#      Range("B3:C7").Select
   
4. 3#      Selection.ClearContents
   
5. 4#  End Sub

复制代码

代码解释: 第二行单元格B3:C7选中;第三行清除选中的单元格里的数字
然后把宏指定给一个椭圆,试试

4. 修改宏:
修改第2个宏

1. 1#  Sub 汇总()
   
2. 2#    Range("B3:C7").Copy
   
3. 3#    Range("H3:I7").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
   
4. 4#    Application.CutCopyMode = 0
   
5. 5#  End Sub

复制代码

代码解释第二行复制单元格B3:C7;第三行把复制的数据选择性粘贴到单元格H3:I7, Operation:=xlAdd的意思是选择加;第四行代码取消复制模式,也就是那个虚线框
5. 保存宏
一种是保存在当前工作薄,一种是保存在个人宏工作薄,另一种保存新工作薄

  

6. 自定义按钮
视图菜单工具栏自定义命令选项卡类别宏按住左键不放,把自定义按钮那个笑脸拖到常用工具栏上把光标放在那个笑脸上(前提条件是不要关闭自定义工具栏单击鼠标右键命名更改按钮图像指定宏(指定你要实现的此功能
  



7. 指定宏:
可以把宏指定给图片,自选图形。

呵呵,  这一节课哆嗦了好多,看来这个小老鼠有点"八婆",大家再见,下节课见 晚安

第三讲 VBA的语法基础  108楼 http://club.excelhome.net/thread-691838-11-1.html

[ 本帖最后由 佛山小老鼠 于 2011-3-15 01:09 编辑 ]

佛山小老鼠

图1是相对引用，图2是绝对引用 用鼠标点击切换相对和绝对引用

[ 本帖最后由 佛山小老鼠 于 2011-3-14 00:35 编辑 ]

佛山小老鼠

你点击确定之后才能看我截的那个图

佛山小老鼠

和函数的相对引用，绝对引用类似，你选择了绝对引用就总是引用那个单元格，如果你选择了相对，当你执行宏时，就一下要注意自己光标所在的单元格了，你最好是自己两种状态录制一下，体会一下

下面是一个附件，你看一下，可能就会明白

[ 本帖最后由 佛山小老鼠 于 2011-3-14 00:50 编辑 ]

HCF229007

谢谢佛山小老鼠的奉献。

angelnaonao

正愁着呢，谢谢楼主分享