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

Вход

Регистрация

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

 

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

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

Excel 2010
Здравствуйте! Помогите пожалуйста.
Как сделать так чтобы при двойном нажатии на ячейку она копировалась и вставлялась на другую страницу?
Пример во вложении. Хотелось чтобы данные из ячеек на странице "Изделие" копировались при двойном нажатии на
них и вставлялись в таблицу которая находится на странице "Заказ".
К сообщению приложен файл: 8411841.xlsx(17Kb)
 
Ответить
СообщениеЗдравствуйте! Помогите пожалуйста.
Как сделать так чтобы при двойном нажатии на ячейку она копировалась и вставлялась на другую страницу?
Пример во вложении. Хотелось чтобы данные из ячеек на странице "Изделие" копировались при двойном нажатии на
них и вставлялись в таблицу которая находится на странице "Заказ".

Автор - Dmitry1992_92
Дата добавления - 22.12.2017 в 11:44
bmv98rus Дата: Пятница, 22.12.2017, 12:03 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 915
Репутация: 156 ±
Замечаний: 0% ±

Excel 2013/2016
Вы б более внимательно следили за этим и не плодили тем в других форумах.
 
Ответить
СообщениеВы б более внимательно следили за этим и не плодили тем в других форумах.

Автор - bmv98rus
Дата добавления - 22.12.2017 в 12:03
sboy Дата: Пятница, 22.12.2017, 12:20 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1268
Репутация: 338 ±
Замечаний: 0% ±

Excel 2010
Ну вот, я тут код сочиняю, а ответ уже есть...
Раз уж написал...
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Cancel = True
    With Sheets(2)
        lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lr, 1).Value = Cells(Target.Row, Target.Column)
        .Cells(lr, 2).Value = Cells(Target.Row, 5)
        .Cells(lr, 3).Value = Cells(Target.Row, 6)
    End With
End Sub
[/vba]
 
Ответить
СообщениеНу вот, я тут код сочиняю, а ответ уже есть...
Раз уж написал...
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Cancel = True
    With Sheets(2)
        lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lr, 1).Value = Cells(Target.Row, Target.Column)
        .Cells(lr, 2).Value = Cells(Target.Row, 5)
        .Cells(lr, 3).Value = Cells(Target.Row, 6)
    End With
End Sub
[/vba]

Автор - sboy
Дата добавления - 22.12.2017 в 12:20
Dmitry1992_92 Дата: Пятница, 22.12.2017, 12:28 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, Огромное спасибо!
 
Ответить
Сообщениеsboy, Огромное спасибо!

Автор - Dmitry1992_92
Дата добавления - 22.12.2017 в 12:28
китин Дата: Пятница, 22.12.2017, 12:29 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4514
Репутация: 717 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
моя попытка
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lr&, d1&, Lr1&
Lr = Range("F" & Rows.Count).End(xlUp).Row
Lr1 = Sheets("Заказ").Range("F" & Rows.Count).End(xlUp).Row
    If Not Intersect(Target, Range("A1:F" & Lr)) Is Nothing Then
        d1 = Target.Row
        Sheets("Изделие").Range("A" & d1 & ":C" & d1).UnMerge
        Sheets("Изделие").Range("A" & d1 & ",E" & d1 & ":F" & d1).Copy
        Sheets("Заказ").Range("A" & Lr1 + 1).PasteSpecial
        Sheets("Изделие").Range("A" & d1 & ":C" & d1).Merge
        Sheets("Изделие").Range("A" & d1 & ":C" & d1).HorizontalAlignment = xlLeft
    End If
End Sub
[/vba]
К сообщению приложен файл: Dmitry1992_92.xlsm(21Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениемоя попытка
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lr&, d1&, Lr1&
Lr = Range("F" & Rows.Count).End(xlUp).Row
Lr1 = Sheets("Заказ").Range("F" & Rows.Count).End(xlUp).Row
    If Not Intersect(Target, Range("A1:F" & Lr)) Is Nothing Then
        d1 = Target.Row
        Sheets("Изделие").Range("A" & d1 & ":C" & d1).UnMerge
        Sheets("Изделие").Range("A" & d1 & ",E" & d1 & ":F" & d1).Copy
        Sheets("Заказ").Range("A" & Lr1 + 1).PasteSpecial
        Sheets("Изделие").Range("A" & d1 & ":C" & d1).Merge
        Sheets("Изделие").Range("A" & d1 & ":C" & d1).HorizontalAlignment = xlLeft
    End If
End Sub
[/vba]

Автор - китин
Дата добавления - 22.12.2017 в 12:29
Dmitry1992_92 Дата: Пятница, 22.12.2017, 13:05 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, Спасибо!
 
Ответить
Сообщениекитин, Спасибо!

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

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