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

Вход

Регистрация

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

 

= Мир MS Excel/Заполнение ячеек содержимым других ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение ячеек содержимым других ячеек (Макросы/Sub)
Заполнение ячеек содержимым других ячеек
rsaburow Дата: Суббота, 06.01.2024, 18:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2019
Имеется такая задача
На листе xlsx-файла второй столбец пустой, а остальные заполнены содержимым (в каждой ячейке - своим). Мне необходимо чтобы при выделении любой ячейки (кроме принадлежащих ко второму столбцу) ее содержимое копировалось в свободную ячейку второго столбца в нисходящем порядке (кликов предполагается много).
Так же есть и другие листы с заполненными ячейками. Необходимо чтобы клики на их ячейки копировали их содержание во второй столбец первого листа на общих основаниях согласно единой полседовальности кликов.
Задача вызвана потребностью организовать быстрый разбор файлов из папки загрузок в папки файлохранилища.
Если можно прошу помочь с макросом.
 
Ответить
СообщениеИмеется такая задача
На листе xlsx-файла второй столбец пустой, а остальные заполнены содержимым (в каждой ячейке - своим). Мне необходимо чтобы при выделении любой ячейки (кроме принадлежащих ко второму столбцу) ее содержимое копировалось в свободную ячейку второго столбца в нисходящем порядке (кликов предполагается много).
Так же есть и другие листы с заполненными ячейками. Необходимо чтобы клики на их ячейки копировали их содержание во второй столбец первого листа на общих основаниях согласно единой полседовальности кликов.
Задача вызвана потребностью организовать быстрый разбор файлов из папки загрузок в папки файлохранилища.
Если можно прошу помочь с макросом.

Автор - rsaburow
Дата добавления - 06.01.2024 в 18:39
i691198 Дата: Воскресенье, 07.01.2024, 11:25 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 196
Репутация: 82 ±
Замечаний: 0% ±

Добрый день. Для этой задачи лучше использовать событие двойной клик по ячейке. Например так.
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1) = Target
  Target.Interior.Color = vbYellow 'Заливка ячейки, значение которой уже скопировано
End Sub
[/vba] Макрос нужно вставить в модули всех листов из которых нужно копировать значения.
 
Ответить
СообщениеДобрый день. Для этой задачи лучше использовать событие двойной клик по ячейке. Например так.
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1) = Target
  Target.Interior.Color = vbYellow 'Заливка ячейки, значение которой уже скопировано
End Sub
[/vba] Макрос нужно вставить в модули всех листов из которых нужно копировать значения.

Автор - i691198
Дата добавления - 07.01.2024 в 11:25
rsaburow Дата: Воскресенье, 07.01.2024, 15:36 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2019
Большое спасибо! Подошло идеально
 
Ответить
СообщениеБольшое спасибо! Подошло идеально

Автор - rsaburow
Дата добавления - 07.01.2024 в 15:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение ячеек содержимым других ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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