[已解决]代码不执行

灿烂事业 · 发表于 2011-10-28 07:40

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.EntireRow.Interior.ColorIndex = 4
ActiveCell.EntireColumn.Interior.ColorIndex = 6
End Sub
把上面的代码放在模块中怎么不执行

最佳答案

月排行榜 / 总排行榜

zjdh

2011-10-28 08:00

本帖最后由 zjdh 于 2011-10-28 08:01 编辑

Worksheet事件代码应放在工作表中，不放在模块中！

Book1.rar (5.51 KB, 下载次数: 3)

zjdh · 发表于 2011-10-28 08:00

本帖最后由 zjdh 于 2011-10-28 08:01 编辑

Worksheet事件代码应放在工作表中，不放在模块中！

Book1.rar (5.51 KB, 下载次数: 3)

上清宫主 · 发表于 2011-10-28 08:01

这是事件。放对位置没呢？放对地主后点相应表的格子就看到效果了

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