不懂VBA也编程

xlsahz

山版，向你学了不少，特别是“在Excel中玩转邮件合并”一文让我在工作中改进了一个模型，我以前是用WORD来邮件合并的，碰到的问题是模型被人复制到别的电脑，就又要寻找数据源，且容易出错读不出数据；而用了Excel玩转邮件合并后，因在同一工作簿中，就不存在这个问题了，让我很受用，谢谢你了！！！
但在我的模型中，我还有一个问题没解决，要请教大师。比如在数据区（需要录入数据）A3：E100，我用“格式”把其背景设为绿色（为了醒目、美观，其它有函数公式的锁定单元格则设为“浅红色”），问题是：如果有人在别的工作表（背景不是绿色）复制数据进行粘贴，则常会改了背景的绿色，除非用“选择性粘贴—数值”，但这样会使人感到不顺手。请问山版，如何设定才能使这个区域或这些单元格永远保持设定背景绿色呢？多谢！！！

右键点击工作表标签，选择“查看代码”，将下面的代码粘贴到光标处：
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a3:e100")) Is Nothing Then Exit Sub
Range("a3:e100").Interior.ColorIndex = 10
End Sub

xlsahz

山版，您太棒了，轻而易举就解决了我的难题，您真是我的老师！
冒昧又问一下，我的表格是先设定了边框的，如果在没边框的表格中直接粘贴来数据，那就会破坏原有表格的边框，请教又该怎样设定，永远不使表格边框破坏了呢？
多谢！！！

代码增加一行：
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a3:e100")) Is Nothing Then Exit Sub
Range("a3:e100").Interior.ColorIndex = 10
Range("a3:e100").Borders.LineStyle = 1
End Sub

beyond1314

向楼主致敬，留个脚印，改天继续学

jgzeng

跟着学习了！

xlsahz

山版，还要麻烦您！在349、350楼得到您的帮助后，我用了后，确实效果很好。但是用了代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b2:q1501")) Is Nothing Then Exit Sub
Range("b2:q1501").Interior.ColorIndex = 8
Range("b2:q1501").Borders.LineStyle = 1
End Sub
在我的模型“信用评定数据表”工作表后，代码不起作用，在没有颜色、没有边框的单元格复制过来数据后，工作表B2：Q1501照样被破坏，而把代码用在新的工作簿时，却能起作用，不知什么原因，百思不得其解，只有又来请教了，谢谢！！！

出错是工作表被保护的原因，代码修改如下，假如密码为123

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b2:q1501")) Is Nothing Then Exit Sub
'撤销工作表保护
me.Unprotect ("123")
Range("b2:q1501").Interior.ColorIndex = 8
Range("b2:q1501").Borders.LineStyle = 1
'保护工作表
me.Protect ("123")
End Sub

[ 本帖最后由 xlsahz 于 2009-4-11 16:29 编辑 ]

oxxxxxu

很感谢还是努力学习吧

xupingexcel

谢谢分享。

573155831

来到EXCELHOME论坛，得到热心人的帮助，学了不少东西。也经常看到VBA，带代码什么的，我也想学，希望能更好的应用到工作中，可是不知怎么学，今天看到这帖子，决定就跟斑竹学了。

linn339q

山菊花师傅,怎样把上面的宏在Sub Macro1()    里用? 谢了!

injure

我是菜鸟。不知道从哪开始学！