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

Вход

Регистрация

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

 

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

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

Excel 2010
Здравствуйте! Помогите пожалуйста.
Как сделать так чтобы при двойном нажатии на ячейку она копировалась и вставлялась на другую страницу?
Пример во вложении. Хотелось чтобы данные из ячеек на странице "Изделие" копировались при двойном нажатии на
них и вставлялись в таблицу которая находится на странице "Заказ".
К сообщению приложен файл: 8411841.xlsx (16.7 Kb)
 
Ответить
СообщениеЗдравствуйте! Помогите пожалуйста.
Как сделать так чтобы при двойном нажатии на ячейку она копировалась и вставлялась на другую страницу?
Пример во вложении. Хотелось чтобы данные из ячеек на странице "Изделие" копировались при двойном нажатии на
них и вставлялись в таблицу которая находится на странице "Заказ".
Автор - Dmitry1992_92
Дата добавления - 22.12.2017 в 11:44
bmv98rus Дата: Пятница, 22.12.2017, 12:03 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация: 768 ±
Замечаний: 0% ±

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

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеВы б более внимательно следили за этим и не плодили тем в других форумах.
Автор - bmv98rus
Дата добавления - 22.12.2017 в 12:03
sboy Дата: Пятница, 22.12.2017, 12:20 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 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]

Яндекс: 410016850021169
 
Ответить
СообщениеНу вот, я тут код сочиняю, а ответ уже есть...
Раз уж написал...
[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
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, Огромное спасибо!
 
Ответить
Сообщениеsboy, Огромное спасибо!
Автор - Dmitry1992_92
Дата добавления - 22.12.2017 в 12:28
китин Дата: Пятница, 22.12.2017, 12:29 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
моя попытка
[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 (21.1 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениемоя попытка
[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
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

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

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