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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование ячеек - Мир MS Excel

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

Excel 2010
Здравствуйте! Сейчас использую следующий код:

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

т.е. копируются ячейки из 1 столбца и из 1-й строки по двойному нажатию и перемещаются в таблицу которая находится на 14-й странице. Вопрос: можно ли сделать так чтобы копировались любые ячейки из любых столбцов и строк, которые находятся на странице? Просто у меня таблица большая и не хочется писать код для каждого столбца и строки отдельно.
 
Ответить
СообщениеЗдравствуйте! Сейчас использую следующий код:

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

т.е. копируются ячейки из 1 столбца и из 1-й строки по двойному нажатию и перемещаются в таблицу которая находится на 14-й странице. Вопрос: можно ли сделать так чтобы копировались любые ячейки из любых столбцов и строк, которые находятся на странице? Просто у меня таблица большая и не хочется писать код для каждого столбца и строки отдельно.

Автор - Dmitry1992_92
Дата добавления - 09.02.2018 в 08:37
Pelena Дата: Пятница, 09.02.2018, 11:36 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12335
Репутация: 2715 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Файл с примером помог бы в понимании проблемы.
И название темы надо немного конкретизировать


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеФайл с примером помог бы в понимании проблемы.
И название темы надо немного конкретизировать

Автор - Pelena
Дата добавления - 09.02.2018 в 11:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование ячеек (Формулы/Formulas)
Страница 1 из 11
Поиск:

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