不懂VBA也编程

Magic_sh · 发表于 2009-2-20 12:58

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

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

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

已在5楼回复。
——山菊花

dahaocai · 发表于 2009-2-20 19:31

一个问题请教,就是我想:
把我的正确答案放到sheet2里进行对比批改,而且在C1设置"对卷密码"并等于sheet2！F1的"对卷密码"，
如果不输入密码,不能即时批改（考试或做作业用）,等上交给我时,我输入密码后才对全部进行批改；如
果在C1输入密码后又可以即时进行批改（平时练习用）。
再说一声，谢谢了！上面的代码太精彩了，如果再完成我上面的要求，那简直是太完美了！！

Sheet1!E:E输入答案，正确答案为Shet2!C:C。代码供参考。
——山菊花
dahaocai_如何用VB实现IF函数.zip (7.08 KB, 下载次数: 98)

2009-2-23 08:49 上传
点击文件名下载附件

cc_yzc · 发表于 2009-2-20 23:20

支持学习。

yushufang · 发表于 2009-2-21 19:14

家里能人高手太多了，谢谈各位提供的好资料

terence121 · 发表于 2009-2-23 13:39

多谢楼主分享！！！！！！！！！

曾杰 · 发表于 2009-2-24 09:57

谢谢啊山菊花老师很牛

cz-nemo · 发表于 2009-2-24 10:17

谢谢山菊花老师

wwjjjj · 发表于 2009-2-24 10:32

呵呵，标题很有意思，学习了

daluguo999 · 发表于 2009-2-24 12:59

学习感谢有这么好的资料

dahaocai · 发表于 2009-2-24 18:12

谢谢山菊花老师

		自动登录	找回密码
密码			免费注册

不懂VBA也编程

关于高亮显示行和列的问题

272楼 dahaocai 的帖子