Копирование ячейки на другой лист, с одновременным копированием связанных ячеек с листа1

@Maratona · Регистрация: 28.04.2020

Студворк — интернет-сервис помощи студентам

При нажатии любой ячейки из столбца С, (лист 1) должно происходить копирование ячеек из этой же строки: С, D и M на лист 2
На втором листе должна начаться нумерация строк в столбце А
Затем в столбце Е (лист2) необходимо суммировать ячейки D и C
В итоговой строке внизу столбца Е (лист2) необходимо указать сумму
Помогите, пожалуйста.

@pashulka · 30.04.2020, 14:08

Скопируйте весь нижеопубликованный код строго в модуль листа с именем "Лист1"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal r As Range, Cancel As Boolean)
    If r.Column <> 3 Then Exit Sub
    If Application.CountA(r, r(1, 2), r(1, 11)) = 0 Then Exit Sub
    
    Dim ws As Worksheet, rw&
    Set ws = Worksheets("Лист2")
    rw = ws.Cells(Rows.Count, "A").End(xlUp)(2).Row
    r.Resize(, 2).Copy ws.Cells(rw, "C")
    r(1, 11).Copy ws.Cells(rw, "M")
    ws.Cells(rw, "A") = Application.Max(ws.Columns(1)) + 1
    ws.Cells(rw, "E") = Application.Sum(r(1, 2), r(1, 11)) 'r(1,2)+r(1,11)
    ws.Cells(rw + 1, "E") = Application.Sum(ws.Columns(5))
    Cancel = True
End Sub

Копирование будет происходить только после двойного клика по ячейке столбца C и при условии, что хотя бы одна из трёх ячеек (C, D, M) заполнена.

@Maratona · 30.04.2020, 17:33 **[ТС]**

Спасибо за участие.
Скопировал код, но ничего не происходит. При попытке выполнить макрос из файла, обнаружил что макроса в списке исполняемых нет. В модуль листа1 установил. Может быть, что не так сделал

@Hugo121 · 30.04.2020, 17:41

Сообщение от pashulka

Копирование будет происходить только после двойного клика по ячейке столбца C и при условии, что хотя бы одна из трёх ячеек (C, D, M) заполнена.

- это читали?

@Maratona · 30.04.2020, 17:44 **[ТС]**

Да, ячейки заполнены. В них есть информация.

@Hugo121 · 30.04.2020, 17:45

А то, что написано до запятой - как понимаете?

@pashulka · 30.04.2020, 17:47

Maratona, Двойной клик мышкой это не выделение и не совсем нажатие.

@Maratona · 30.04.2020, 17:50 **[ТС]**

Понимаю так, что они заполнены. Вот так:
326 Товар 1 1 17 900.00 2 148.00 0.00 120 288.00 120 288.00 1.38 38.00 27.54 165 997.44
С D M

Добавлено через 2 минуты
А нельзя без двойного клика обойтись?

@pashulka · 30.04.2020, 17:52

Сообщение от Maratona

А нельзя без двойного клика обойтись?

Можно, используйте событие Private Sub Worksheet_SelectionChange(ByVal r As Range) и уберите строку #13
Тогда копирование будет происходить при выделении ячейки.

@Maratona · 30.04.2020, 19:55 **[ТС]**

Увы и ах... Ничего не происходит. Заменил событие, удалил строку 13.. Что-то не так пошло...

Pelena · 30.04.2020, 20:05

Maratona, видимо, пора уже файл приложить, где

Сообщение от Maratona

Ничего не происходит

@Maratona · 01.05.2020, 08:47 **[ТС]**

В приложении файл. Посмотрите может получится.

@pashulka · 01.05.2020, 09:09

Maratona, На что смотреть ?
В файлах .xlsx (после сохранения) макросов не бывает, поэтому Ваших косяков, не видно

но скрин события и результат выполнения трёх кликов, прилагается.

P.S. Так как столбец M содержит формулы, то после копирования мы получаем 0, и это нормально, ибо ячейки, на которые ссылается формула, не копируются.
Но если нужно сохранить значение ячейки (не формулу) и форматирование, то обычное копирование можно заменить на копирование+специальную вставку. Если форматирование не нужно, то копирование можно заменить на банальное присвоение.

Но, повторюсь, никаких проблем, там нет.

@Maratona · 01.05.2020, 09:20 **[ТС]**

Файл с макросами, не могу приложить, так как пишет что некорректный файл. Как же мне поступить, может вы пришлете ваш файл. Я попробую разобраться. По сути мне нужно сохранить значение и форматирование, по клику в ячейке столбца С.

@pashulka · 01.05.2020, 09:45

Можно было опубликовать архив (zip, rar, 7z) или сохранить как .xls

@pashulka · 01.05.2020, 09:53

В первом варианте остался мусор, вот исправленный

@Maratona · 01.05.2020, 14:26 **[ТС]**

Получилось! Огромное вам спасибо! Желаю вам счастья и крепкого здоровья!

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@Maratona 0 / 0 / 0 Регистрация: 28.04.2020 Сообщений: 8

	Excel Копирование ячейки на другой лист, с одновременным копированием связанных ячеек с листа1 30.04.2020, 13:02. Показов 2112. Ответов 16 Метки копирование, макрос, нумерация, суммирование (Все метки) При нажатии любой ячейки из столбца С, (лист 1) должно происходить копирование ячеек из этой же строки: С, D и M на лист 2 На втором листе должна начаться нумерация строк в столбце А Затем в столбце Е (лист2) необходимо суммировать ячейки D и C В итоговой строке внизу столбца Е (лист2) необходимо указать сумму Помогите, пожалуйста. 0

@Maratona 0 / 0 / 0 Регистрация: 28.04.2020 Сообщений: 8
	30.04.2020, 17:33 [ТС]
	Спасибо за участие. Скопировал код, но ничего не происходит. При попытке выполнить макрос из файла, обнаружил что макроса в списке исполняемых нет. В модуль листа1 установил. Может быть, что не так сделал Миниатюры 0

@Maratona 0 / 0 / 0 Регистрация: 28.04.2020 Сообщений: 8
	30.04.2020, 17:44 [ТС]
	Да, ячейки заполнены. В них есть информация. 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	30.04.2020, 17:45
	А то, что написано до запятой - как понимаете? 0

@pashulka 4138 / 2242 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.04.2020, 17:47
	Maratona, Двойной клик мышкой это не выделение и не совсем нажатие. 0

@Maratona 0 / 0 / 0 Регистрация: 28.04.2020 Сообщений: 8
	30.04.2020, 17:50 [ТС]
	Понимаю так, что они заполнены. Вот так: 326 Товар 1 1 17 900.00 2 148.00 0.00 120 288.00 120 288.00 1.38 38.00 27.54 165 997.44 С D M Добавлено через 2 минуты А нельзя без двойного клика обойтись? 0

@Maratona 0 / 0 / 0 Регистрация: 28.04.2020 Сообщений: 8
	30.04.2020, 19:55 [ТС]
	Увы и ах... Ничего не происходит. Заменил событие, удалил строку 13.. Что-то не так пошло... 0

@pashulka 4138 / 2242 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	01.05.2020, 09:09
	Maratona, На что смотреть ? В файлах .xlsx (после сохранения) макросов не бывает, поэтому Ваших косяков, не видно но скрин события и результат выполнения трёх кликов, прилагается. P.S. Так как столбец M содержит формулы, то после копирования мы получаем 0, и это нормально, ибо ячейки, на которые ссылается формула, не копируются. Но если нужно сохранить значение ячейки (не формулу) и форматирование, то обычное копирование можно заменить на копирование+специальную вставку. Если форматирование не нужно, то копирование можно заменить на банальное присвоение. Но, повторюсь, никаких проблем, там нет. Миниатюры 0

@Maratona 0 / 0 / 0 Регистрация: 28.04.2020 Сообщений: 8
	01.05.2020, 09:20 [ТС]
	Файл с макросами, не могу приложить, так как пишет что некорректный файл. Как же мне поступить, может вы пришлете ваш файл. Я попробую разобраться. По сути мне нужно сохранить значение и форматирование, по клику в ячейке столбца С. 0

@Maratona 0 / 0 / 0 Регистрация: 28.04.2020 Сообщений: 8
	01.05.2020, 14:26 [ТС]
	Получилось! Огромное вам спасибо! Желаю вам счастья и крепкого здоровья! 0

Копирование ячейки на другой лист, с одновременным копированием связанных ячеек с листа1

Решение