不懂VBA也编程.doc

《不懂VBA也编程.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、不懂VBA也编程用过的人都知道，VBA可以轻松地解决许多问题。如果你不懂VBA，而且不想去学习它。我可以教给你一些方法，你只需按部就班地操作，无需理解它们是什么意思，最终目标，能用就行。1、在Excel中玩转邮件合并(2楼)2、高亮显示当前行(5楼)3、自动输入当前日期(16楼)4、自动录入一个“√”(32楼)5、自动保护录入的数据(34楼)6、属性框，从今以后喜欢你。(60-61楼)7、保护所有工作表(91楼)8、为工作簿创建目录(134楼)9、插入工作表(148楼)1、在Excel中玩转邮件合并打印准考证、成绩报告单、商品标签、入场券等，

2、常常会使用Word的邮件合并工具。在Excel中批量打印的功能也不错，方法见附件：xiabaoyuan_在线扳手、枪校验记录表单.zip(86.71KB)附件来自帖子：http://club.excelhome.net/viewthread.php?tid=369570练习：附件：下载帖子：http://club.excelhome.net/thread-371082-1-1.html1、选择N6单元格输入“当前行号”。2、编写公式：J3=INDEX(Sheet2!B:B,N6)B4=INDEX(Sheet2!A:A,N6)F4=INDEX(

3、Sheet2!C:C,N6)……3、从控件工具箱中添加一按钮到工作表，编辑标签文字，双击按钮，将前面文件中的代码复制到此：复制内容到剪贴板代码:PrivateSubCommandButton1_Click()Fori=[N7]To[N8][N6]=iMe.PrintOutNextEndSub将3个单元格名称修改为[N6]、[N7]、[N8]。其中N7单元格输入“开始行号”、N8单元格输入“结束行号”。4、添加窗体工具箱中的微调按钮到工作表，将链接单元格设为N6。5、点击控件工具箱中的“退出设计模式”按钮，测试。2、高亮显示当前行用条件格式设置

4、高亮显示当前行，难的是如何确定当前行。用VBA就很简单，鼠标右击工作表标签，选择“查看代码”，将下面的代码粘贴到VBE窗口中：复制内容到剪贴板代码:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)ThisWorkbook.Names.Add"XM",TargetEndSub这几行代码的作用是，当选择新的单元格时，将这个单元格(或者区域)定义为名称“XM”，在条件格式设置中可以引用这个名称。如下面的附件，将代码粘贴完成后，返回工作表中，选择A4:I15，点击菜单“格式—条件格式”，设

5、置：公式1：=(A4<>"")*(A4=XM)(如果A4不为空，并且A4等于XM)公式2：=ROW()=ROW(XM)(如果当前的行号等于XM的行号)考场安排.zip(8.93KB)练习：试为附件中的考勤表设置条件格式，高亮显示当前行和列。考勤表.zip(10.86KB)引用:原帖由xpm130于2008-11-1921:02发表(23楼)山版好,请您讲讲2楼高亮显示单元行中利用下面代码ThisWorkbook.Names.Add"XM",Target定义名称的方法与结果与在工作表单元区域进行定义有什么不同之处好吗.我查看起来有点迷糊.还有,

6、当选中B6时出现如下情形,好像...用代码定义名称，我们需要它的即时更新，鼠标点到什么，这个名称“XM”就更新什么。例如，当鼠标点击F7单元格，XM便等于F7，ROW(XM)=7，设置条件格式的区域中，凡是Row()等于7(说白了就是第7行)的单元格便显示背景色。用手工定义也可得到相同的效果，可以试试。然后比较一下，用代码的好处是什么。当选中B6单元格时有不一样的情况出现，是因为区域中设置了两个条件格式，它符合第一个条件便显示第一种格式，符合第二个条件便显示第二个格式。点击菜单“格式—条件格式”可看清楚。引用:原帖由pxjxdsj于2008-

7、12-114:53发表(98楼)初学有一个问题？能否把高亮显示单元格做成自动起动的宏，让用户的鼠标单击工作表的某一个单元格后，相应的行和列都显示一种或者两种背景色！直接用VBA设置背景色，做法如下：鼠标右键点击工作表标签，选择“查看代码”，将下面代码粘贴到光标处：复制内容到剪贴板代码:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)DimRngAsRangeSetRng=Target.Range("a1")Cells.Interior.ColorIndex=0'清除所有背景色Rng

8、.EntireColumn.Interior.ColorIndex=40'设置当前列颜色Rng.EntireRow.Interior.ColorIndex=36'设