不懂VBA也编程

slj0507604

学习学习啊！谢谢

xljzhzhf

世上无难事，我要认真学习各位的力作。

xlsahz

山版，首先谢谢您多次的解答。但是我用了以下代码后，还是没用，在没有颜色、没有边框的单元格复制过来数据后，工作表B2：Q1501照样被破坏。
我还是百思不得其解，就进行了以下的试验：把工作表“信用评定数据表”在新工作簿复制副本，粘贴上代码，从没有颜色、没有边框的单元格复制过来数据后，会发现粘贴单元格从“原始状态——白色且无边框线条——原始状态”的变化过程，说明代码确实起了作用。但等关闭再重新打开工作表后，发觉代码又不起作用了，粘贴数据后，单元格又被破坏了！
烦请山版仔细帮我找一下病因，不胜感谢！！！

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 18:53 编辑 ]

oyxw722

"坐下来慢慢学习、"

深秋的黎明

我一直在钻研的难题，在山老师的指引之下迎刃而解，太感谢您了。我很崇拜你啊

ljx63426

强烈支持兰老师,您的帖子越看越有味道,我要慢慢消化.

kevinlearn

5楼”高亮显示当前行“中，以下代码
Set Rng = Target.Range("a1")
好像写成
Set Rng = Target
的效果是一样的，不知道有什么区别吗？
请山菊花前辈指教。。。

当选择一个单元格时，两行代码效果相同。
如果选择多个单元格时，Target.Range("a1")返回所选区域左上角的单元格。
——山菊花

宋纳

我这儿为什么不能下载啊

eyaofy

好是好，能再浅显一些就更便于初学者了。

凌云上

山版：
您好！受工资管理系统的启发，本人想建立一个人员信息数据查询表，固定或稳定的信息（如员工基本信息）可以通过序列和名称定义的方式利用vlookup姓名建立关联（如附件 ）。变动的信息（如一年几次的调薪记录）我想通过点击数据透视表字段来实现。但一直不知道要怎么样才能建立数据透视表查询字段姓名2和员工基本信息姓名1的关联。

在此，特意求助山版阿！表格见附件