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

精品资源 仓库

不是精品,我不收藏——好资源 大家共享!

 
 
 

日志

 
 

2.宏在工作中的运用  

2014-05-13 13:46:56|  分类: 【Excel VBA】 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

2.宏在工作中的运用

1.宏的定义

宏:macro

形容词:巨大的;大量的;宏观的 

名词:【电脑】巨()指令

定义:一组可以让自动执行的代码(VBA

宏的录制相当于摄像机的功能。

如果没有“宏”界面,请在“选项”-“自定义功能区”中勾选“开发工具”选项

2.宏在工作中的运用 - zibo139 - 学习笔记——备忘录

 

2.宏的运用时机

重复执行相同的操作。可以考虑用宏。

示例1     

姓名

基本工资

补助

总工资

周八皮

4500

350

4850

梁三伯

2300

200

2500

周醒池

6800

260

7060

刘得桦

5000

190

5190

元兵

1200

100

1300

程家驹

3600

500

4100

要求:

1.在每一条工资记录下插入空白行     

2.删除空行     

 

本例所用代码:

Sub 合并相同内容单元格()

    Application.DisplayAlerts = False

    Set ha = ActiveCell

        For Each Rng In Selection

                If Rng <> Rng.Offset(1) Then

                    ha.Resize(ha.Count + 1).Merge

                    Set ha = Rng.Offset(1)

                Else

                    Set ha = Union(ha, Rng)

                End If

        Next

    Application.DisplayAlerts = True

End Sub

Sub 不重复的姓名()

    Dim i%, j%, d As Object

    Set d = CreateObject("scripting.dictionary")

        arr = Selection

            For i = 1 To UBound(arr)

                  For j = 1 To 2

                    If arr(i, j) <> "" Then

                        d(arr(i, j)) = d(arr(i, j)) + 1

                    End If

                Next j

            Next i

    ActiveCell.Resize(d.Count) = Application.Transpose(Array(d.keys, d.items))

End Sub

 

总结:

优点:重复执行相同操作,提高工作效率        

缺点:不够智能化,无法交互工作,代码冗余        

解决方案:VBA     

3.宏在excel中的地位

虽然宏看起来不够灵活。但对于学习VBA编程却非常重要。                                                      

1.提高代码编写效率

2.帮助学习VBA知识


本文视频教程学习网址 http://www.51zxw.net/study.asp?vip=8662538

 

 

 

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

历史上的今天

评论

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

页脚

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