excel宏没有那什么神秘、高深的。
如果是vba要专门学习一下,编辑宏很简单,宏就是一套组合拳,每次启动宏就把这套组合拳表演一遍。
工具----宏-----录制新宏--然后输入你的组合拳即要实现的功能,比如把一单元格加边框、字体变红、变成黑体字----输入完后点弹出的小对话框的停止按钮
这样宏就录完了,另外选定一个单元格,工具----宏-----找到刚录制的宏---双击
看看刚选的单元格发生了什么变化。很有趣的 呵呵
有什么不懂的,可以找我
解释如下:
Private Sub Worksheet_Change(ByVal Target As Range) 工作表变化事件
If Target.Column < 21 And Target.Row > 130 Then 如果列数小于21 并且行数大于130,开始执行下面的
If Target = "" Then 如果修改的单元格等于空
Target.Offset(-124, 0) = "" 往前推124行,同一列的单元格置空
Exit Sub 退出过程
End If
If Target.Column < 2 Then 如果是A列
Target.Offset(-124, 0) = Target 往前推124行,同一列的单元格置为当前单元格的值
Else
MaxD = Cells(128, Target.Column) 获取128行,目标列的值
MinD = Cells(130, Target.Column) 获取130行,目标列的值 If Target > MaxD Then 如果当前单元格大于MaxD的值
Target.Offset(-124, 0) = MaxD - Round((0.01 * Rnd() + 0.01), 3)MaxD 的值减去一个0.01以上的随机数填充 往前推124行,同一列的单元格
ElseIf Target < MinD Then 如果当前单元格大于MinD的值
Target.Offset(-124, 0) = MinD + Round((0.01 * Rnd() + 0.01), 3)MinD 的值加上一个0.01以上的随机数填充 往前推124行,同一列的单元格
Else
Target.Offset(-124, 0) = Target
End If
End If
End If
End Sub
1、Excel VBA 从基础入门到实战技巧教程
2、Exvel VBA从入门到精通
3、Excel VBA程序开发自学宝典
4、Excel VBA实战技巧精粹
宏还用学,不就是开始录制,停止录制两步操作!
你是要学VB吧