flysun

Code Less. Do More.

博客园 首页 新随笔 联系 订阅 管理
  9 Posts :: 11 Stories :: 1 Comments :: 0 Trackbacks
      自从vs2003开发,微软就有vsto这个office的新开发环境,但VBA的地位依然无法完全取代。最近因工作的原因,开始接触Excel VBA。一开始的时候,使用起来还是有点吃力。因为不熟悉,就算写一行简单的代码也不无从下手。比如,写一代码完成这样的一段操作:把偶数行的背景色设为红色。新手当然会写VB代码,但很可能不知道如何用代码把行的背景色设为红色,这时候有经验的就会去查MSDN或上网查,总得花点时间。
     不过有一个相当快捷的方法,可以马上把您想写代码生成出来。很简单,就是利用Excel的"录制新宏"功能.
   
  如上图所示,按下“确定”后,随便把一个单元格的背景色设为红色。

然后结束“录制新宏”的操作。打开Excel的VB编辑器,你会看下面的代码


这些代码就是把单元格的背景色设置为红色,把代码作简单的修改就可以了。
 1Sub Macro1()
 2'
 3' Macro1 Macro
 4' 宏由 flysun 录制,时间: 2008-5-19
 5'
 6
 7'
 8Dim r As Range
 9For i = 2 To 20 Step 2
10 Set r = Range("A" & i & ":F" & i)
11  With r.Interior
12        .ColorIndex = 3
13        .Pattern = xlSolid
14        .PatternColorIndex = xlAutomatic
15    End With
16Next i
17        
18End Sub
运行宏后,
Tag标签: Excel ,vba,
posted on 2008-05-19 20:21 flysun 阅读(21) 评论(0)  编辑 收藏 所属分类: vba

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      


相关链接: