不懂VBA也编程

山菊花

用过的人都知道，VBA可以轻松地解决许多问题。
如果你不懂VBA，而且不想去学习它。我可以教给你一些方法，你只需按部就班地操作，无需理解它们是什么意思，最终目标，能用就行。
1、在Excel中玩转邮件合并 (2楼)
2、高亮显示当前行 (5楼)
3、自动输入当前日期 (16楼)
4、自动录入一个“√” (32楼)
5、自动保护录入的数据 (34楼)
6、属性框，从今以后喜欢你。(58楼)
7、保护所有工作表(86楼)
8、为工作簿创建目录(127楼)
9、插入工作表(141楼)
10、Excel2007中如何设置批注的形状?(431楼)
11、滚动条乖乖
12、自动打开“自定义筛选”对话框
13、测试工作表中公式运算的时间
14、用单元格组代替选项按钮组
15、单元格中插入系列图片
16、打印表头和选定区域
17、隐藏/取消隐藏自定义名称
18、给工作表中插入的图片改名字
19、突出显示被引用的单元格
20、如何高亮显示本周输入数据？
21、复制工作簿链接源信息
22、批量插入滚动条
23、高亮显示引用单元格
24、自动打开记录单
25、输入数据时进行信息检查
26、编辑数据时弹出一个提示
27、怎样实现自动筛选
  
隐藏跟帖

   　　

山菊花

打印准考证、成绩报告单、商品标签、入场券等，常常会使用Word的邮件合并工具。在Excel中批量打印的功能也不错，方法见附件：
xiabaoyuan_在线扳手、枪校验记录表单.zip (86.71 KB, 下载次数: 8325)

2008-11-18 12:52 上传

点击文件名下载附件

附件来自帖子：http://club.excelhome.net/viewthread.php?tid=369570

练习：

附件：下载
帖子：http://club.excelhome.net/thread-371082-1-1.html

1、选择N6单元格输入“当前行号”。
2、编写公式：
    J3=INDEX(Sheet2!B:B,N6)
    B4=INDEX(Sheet2!A:A,N6)
    F4=INDEX(Sheet2!C:C,N6)
    ……
3、从控件工具箱中添加一按钮到工作表，编辑标签文字，双击按钮，将前面文件中的代码复制到此：

1. Private Sub CommandButton1_Click()
   
2.     For i = [N7] To [N8]
   
3.     [N6] = i
   
4.     Me.PrintOut
   
5.     Next
   
6. End Sub

复制代码

将3个单元格名称修改为[N6]、[N7]、[N8]。
其中N7单元格输入“开始行号”、N8单元格输入“结束行号”。
4、添加窗体工具箱中的微调按钮到工作表，将链接单元格设为N6。
5、点击控件工具箱中的“退出设计模式”按钮，测试。

yuanhongly

支持山菊花！

占个好位 学习 。

h5519306

支持 学习 。

山菊花

用条件格式设置高亮显示当前行，难的是如何确定当前行。用VBA就很简单，鼠标右击工作表标签，选择“查看代码”，将下面的代码粘贴到VBE窗口中：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. ThisWorkbook.Names.Add "XM", Target
   
3. End Sub

复制代码

这几行代码的作用是，当选择新的单元格时，将这个单元格(或者区域)定义为名称“XM”，在条件格式设置中可以引用这个名称。

如下面的附件，将代码粘贴完成后，返回工作表中，选择A4:I15，点击菜单“格式—条件格式”，设置：
公式1：=(A4<>"")*(A4=XM)
(如果A4不为空，并且A4等于XM)
公式2：=ROW()=ROW(XM)
(如果当前的行号等于XM的行号)
考场安排.zip (8.93 KB, 下载次数: 3646)

2008-11-18 15:42 上传

点击文件名下载附件

练习：
试为附件中的考勤表设置条件格式，高亮显示当前行和列。
考勤表.zip (10.86 KB, 下载次数: 2613)

2008-11-18 16:03 上传

点击文件名下载附件

原帖由 xpm130 于 2008-11-19 21:02 发表 (23楼)
山版好,请您讲讲2楼高亮显示单元行中利用下面代码
ThisWorkbook.Names.Add "XM", Target定义名称的方法与结果与在工作表单元区域进行定义有什么不同之处好吗.我查看起来有点迷糊.
还有,当选中B6时出现如下情形,好像 ...

用代码定义名称，我们需要它的即时更新，鼠标点到什么，这个名称“XM”就更新什么。
例如，当鼠标点击F7单元格，XM便等于F7，ROW(XM)=7，设置条件格式的区域中，凡是Row()等于7(说白了就是第7行)的单元格便显示背景色。
用手工定义也可得到相同的效果，可以试试。然后比较一下，用代码的好处是什么。

当选中B6单元格时有不一样的情况出现，是因为区域中设置了两个条件格式，它符合第一个条件便显示第一种格式，符合第二个条件便显示第二个格式。
点击菜单“格式—条件格式”可看清楚。

原帖由 pxjxdsj 于 2008-12-1 14:53 发表 (98楼)


初学有一个问题？能否把 高亮显示单元格 做成 自动起动的宏，让用户的鼠标单击工作表的某一个单元格后，相应的行和列都显示一种 或者 两种背景色！

直接用VBA设置背景色，做法如下：
鼠标右键点击工作表标签，选择“查看代码”，将下面代码粘贴到光标处：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim Rng As Range
   
3. Set Rng = Target.Range("a1")
   
4. Cells.Interior.ColorIndex = 0  '清除所有背景色
   
5. Rng.EntireColumn.Interior.ColorIndex = 40  '设置当前列颜色
   
6. Rng.EntireRow.Interior.ColorIndex = 36  '设置当前行颜色
   
7. End Sub

复制代码

其中40、36为颜色索引号，不同的数值代表不同的颜色，对应索引如下：

示例： 高亮显示当前行列.zip (8.29 KB, 下载次数: 1931)

2008-12-6 09:46 上传

点击文件名下载附件

原帖由 zjyhljx 于 2009-2-16 17:39 发表 (259楼)
如果工作簿中的每张工作表都有相同效果，应该怎么做？

按Alt+F11打开VBE编辑器，在工程管理器中双击模块“ThisWorkbook”，将下面的代码粘贴到光标处：

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2. Dim Rng As Range
   
3. Set Rng = Target.Range("a1")
   
4. Cells.Interior.ColorIndex = 0  '清除所有背景色
   
5. Rng.EntireColumn.Interior.ColorIndex = 40  '设置当前列颜色
   
6. Rng.EntireRow.Interior.ColorIndex = 36  '设置当前行颜色
   
7. End Sub
   

复制代码

如下图所示：

为所有工作表设置高亮背景色.zip (6.64 KB, 下载次数: 1093)

2009-2-17 08:47 上传

点击文件名下载附件

原帖由 Magic_sh 于 2009-2-20 12:58 发表 (274楼)
山菊花楼主，你好！
关于之前有人问到的关于高亮显示行和列的问题，你提供的VBA代码如下，但我现在碰到点问题，发现使用了这个代码后，表中的“复制”和“拷贝”功能就被禁止了，不知有无办法可以解决？谢谢！

可在代码第二行(清除颜色之前就行)插入一行代码：
If Application.CutCopyMode Then Exit Sub ’如果处于选取状态则退出程序

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2. If Application.CutCopyMode Then Exit Sub '如果处于选取状态则退出程序
   
3. Dim Rng As Range
   
4. Set Rng = Target.Range("a1")
   
5. Cells.Interior.ColorIndex = 0  '清除所有背景色
   
6. Rng.EntireColumn.Interior.ColorIndex = 40  '设置当前列颜色
   
7. Rng.EntireRow.Interior.ColorIndex = 36  '设置当前行颜色
   
8. End Sub

复制代码

yuanhongly

学习了！代码与自代功能的完美结合，顶！

htqccw

好方法值得学习

linchangh

认真学习，

gzls

学习中……

laosanjie

“山菊花”是我久仰的诲人不倦的大师！ 跟着学习了！