Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как сделать копирование ячейки в строке двойным нажатием? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как сделать копирование ячейки в строке двойным нажатием? (Формулы/Formulas)
Как сделать копирование ячейки в строке двойным нажатием?
Dmitry1992_92 Дата: Понедельник, 25.12.2017, 13:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Извиняюсь за такие "простецкие" вопросы, просто в инете не могу найти то что мне нужно.
Имеется код на странице:

[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then Exit Sub
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lr, 1).Value = Cells(Target.Row, Target.Column)
End With
End Sub
[/vba]

На данный момент копируется ячейка при двойном нажатии из столбца №4

Вопрос: что нужно изменить в данном коде чтобы ячейка копировалась не из столбца, а из строки? Например из строки №12.
Я так понимаю что за это отвечает [vba]
Код
If Target.Column = 4 Then Exit Sub
[/vba] что нужно тут переименовать?
 
Ответить
СообщениеИзвиняюсь за такие "простецкие" вопросы, просто в инете не могу найти то что мне нужно.
Имеется код на странице:

[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then Exit Sub
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lr, 1).Value = Cells(Target.Row, Target.Column)
End With
End Sub
[/vba]

На данный момент копируется ячейка при двойном нажатии из столбца №4

Вопрос: что нужно изменить в данном коде чтобы ячейка копировалась не из столбца, а из строки? Например из строки №12.
Я так понимаю что за это отвечает [vba]
Код
If Target.Column = 4 Then Exit Sub
[/vba] что нужно тут переименовать?

Автор - Dmitry1992_92
Дата добавления - 25.12.2017 в 13:28
китин Дата: Понедельник, 25.12.2017, 13:51 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4928
Репутация: 786 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 12 Then Exit Sub
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lr, 1).Value = Cells(Target.Row, Target.Column)
End With
End Sub
[/vba]
Только вы малость неправы:
[vba]
Код
If Target.Column = 4 Then Exit Sub
[/vba]
Это если изменения происходят в столбце 4 то ничего не произойдет.
[vba]
Код
Exit Sub
[/vba]
из других столбцов будет копироваться в столбец 1


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 12 Then Exit Sub
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lr, 1).Value = Cells(Target.Row, Target.Column)
End With
End Sub
[/vba]
Только вы малость неправы:
[vba]
Код
If Target.Column = 4 Then Exit Sub
[/vba]
Это если изменения происходят в столбце 4 то ничего не произойдет.
[vba]
Код
Exit Sub
[/vba]
из других столбцов будет копироваться в столбец 1

Автор - китин
Дата добавления - 25.12.2017 в 13:51
Dmitry1992_92 Дата: Понедельник, 25.12.2017, 16:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, Спасибо, теперь всё получилось!
 
Ответить
Сообщениекитин, Спасибо, теперь всё получилось!

Автор - Dmitry1992_92
Дата добавления - 25.12.2017 в 16:21
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как сделать копирование ячейки в строке двойным нажатием? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!