请帮助解释下高亮显示的运行代码

DC.Direct

这是以前斑竹提供的单元格显示高亮的运行代码，当前活动的单元格行值写在B1，列值写在B2，然后在单元格中设置条件格式。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next Application.EnableEvents = False

Sheet1.Range("$B$1") = Target.Row Sheet1.Range("$B$2") = Target.Column Application.EnableEvents = True

End Sub

下面这个是看到Rowen的SP库存分布中，找到的显示高亮的运行代码。看的不是太明白。

' 将行号列标输入 A1,B1 Sub GetSeletionRowAndColumn() ActiveWorkbook.Names.Add Name:="ActiveRx", RefersT=ActiveCell.Row ActiveWorkbook.Names.Add Name:="ActiveCx", RefersT=ActiveCell.Column End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) GetSeletionRowAndColumn ' 将行号列标输入 A1,B1

End Sub

ActiveRx和ActiveCx是定义的名称。我试了半天这两个名称是怎么定义的呢？

请Rowen和众高手们能详细解释下，这个运行过程。谢谢。

DC.Direct

http://club.excelhome.net/viewthread.php?tid=24816

这是Rowen的例子。

taller

以下是引用DC.Direct在2004-9-23 16:45:00的发言：

这是以前斑竹提供的单元格显示高亮的运行代码，当前活动的单元格行值写在B1，列值写在B2，然后在单元格中设置条件格式。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next Application.EnableEvents = False

Sheet1.Range("$B$1") = Target.Row '当前单元格的行号 Sheet1.Range("$B$2") = Target.Column '当前单元格的列号 Application.EnableEvents = True

End Sub

下面这个是看到Rowen的SP库存分布中，找到的显示高亮的运行代码。看的不是太明白。

' 将行号列标输入 A1,B1 Sub GetSeletionRowAndColumn() '添加名称 ActiveWorkbook.Names.Add Name:="ActiveRx", RefersTo : =ActiveCell.Row '当前行 ActiveWorkbook.Names.Add Name:="ActiveCx", RefersTo : =ActiveCell.Column '当前列 End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) GetSeletionRowAndColumn ' 将行号列标输入 A1,B1

End Sub

ActiveRx和ActiveCx是定义的名称。我试了半天这两个名称是怎么定义的呢？

请Rowen和众高手们能详细解释下，这个运行过程。谢谢。

[此贴子已经被作者于2004-9-23 17:16:46编辑过]

DC.Direct

RefersT=ActiveCell.Row 这是什么意思呢？RefersT

这个编写后，不能在两个同样表间进行复制当前高亮行，一复制当前行就出错。

[此贴子已经被作者于2004-9-23 17:20:38编辑过]

DC.Direct

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveWorkbook.Names.Add Name:="ActiveRx", RefersT=Target.Row ActiveWorkbook.Names.Add Name:="ActiveCx", RefersT=Target.Column End Sub

我改了下，虽然在两个同样表间进行复制当前高亮行，复制当前行不立即发生出错了。但显示上很奇怪。过了会则发生应用程序错误，是什么问题呢？

[此贴子已经被作者于2004-9-23 17:37:29编辑过]

Rowen

ActiveWorkbook.Names.Add Name:="ActiveRx", RefersT=Target.Row 是自动添加或修改了一个名称, 让当前行号保存在这个名称里, 比如选择了D4, 即令 ActiveRx=4(行号)

而这一行如果要高亮显示, 表中该单元格中有设条件格式, 当ActiveRx=ROW() 时, 改背景色为高亮.

本案原理就是利用条件格式达成目的.

列高亮显示同理.

兰色幻想

以下是引用DC.Direct在2004-9-23 17:13:00的发言： RefersT=ActiveCell.Row 这是什么意思呢？RefersT

RefersTo应该是指定的内容或区域