Question

我有一个vba代码，每次发生选择更改时都会执行，但只有在我垂直而不是水平更改选择时，所述更改才有意义。因此，每次我只使用一行时，它的工作速度会慢一点，足以让我提出这个问题。有没有办法让SelectionChange事件只考虑垂直变化？

您知道，我的工作表是一个列表，可以让您突出显示＆＃34;行。＆＃34;突出显示的附加信息＆＃34;行显示在工作表顶部的几个冻结窗格中..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Rows.Count = 1 And ActiveCell.Row > 8 Then
Hoja1.Cells(4, 5).Value = Hoja1.Cells(ActiveCell.Row, 3).Value
Hoja1.Cells(5, 5).Value = Hoja1.Cells(ActiveCell.Row, 4).Value
Hoja1.Cells(6, 5).Value = Hoja1.Cells(ActiveCell.Row, 6).Value
Hoja1.Cells(7, 5).Value = Hoja1.Cells(ActiveCell.Row, 7).Value
Hoja1.Cells(5, 15).Value = Hoja1.Cells(ActiveCell.Row, 30).Value
End If
End Sub

如果选择垂直而非水平更改，则执行代码

0 个答案: