Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Offset(0, 1).Value = Target.Value
Call RightOffset(Target)
End Sub
Private Function RightOffset(curCell As Range)
curCell.Offset(0, 1).Activate
End Function
Двойной клик по ячейке
Здраствуйте.
Можно ли сделать так, что по двойному клику по ячейке данные в ней копировались в ячейку другого листа???
Заранее благодарю.
Можно ли сделать так, что по двойному клику по ячейке данные в ней копировались в ячейку другого листа???
Заранее благодарю.
Цитата: bending
Здраствуйте.
Можно ли сделать так, что по двойному клику по ячейке данные в ней копировались в ячейку другого листа???
Заранее благодарю.
Можно ли сделать так, что по двойному клику по ячейке данные в ней копировались в ячейку другого листа???
Заранее благодарю.
В модуле кода нужного рабочего листа разместите этот код:
Код:
Огромное спасибо!!!!!
Сразу не пришло в голову, что можно сделать и проще:
Код:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Offset(0, 1).Value = Target.Value
Target.Offset(0, 1).Activate
End Sub
Cancel = True
Target.Offset(0, 1).Value = Target.Value
Target.Offset(0, 1).Activate
End Sub
А как не в соседнюю ячейку, а на другой лист переместить???
Цитата: bending
А как не в соседнюю ячейку, а на другой лист переместить???
Так, например:
Код:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
targRow = Target.Row
targColumn = Target.Column
ActiveSheet.Next.Cells(targRow, targColumn).Value = Target.Value
End Sub
Cancel = True
targRow = Target.Row
targColumn = Target.Column
ActiveSheet.Next.Cells(targRow, targColumn).Value = Target.Value
End Sub
Или так:
Код:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveSheet.Next.Range(Target.Address).Value = Target.Value
End Sub
Cancel = True
ActiveSheet.Next.Range(Target.Address).Value = Target.Value
End Sub
Спасибо, то что мне было нужно