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

Вход

Регистрация

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

 

= Мир MS Excel/Что пишут в конце макроса чтобы можно было продолжить его? - Мир MS Excel

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

Excel 2010
Здравствуйте! Подскажите пожалуйста новичку в Excel.
Вопрос очень простой: У меня есть макрос на странице, который позволяет копировать данные из ячейки и вставлять на другую страницу при двойном нажатии, теперь я хочу добавить на эту страницу другой макрос чтобы он тоже же копировал данные из ячейки, но уже с другого столбца, что мне нужно написать в конце кода чтобы я мог продолжить писать другой макрос на этой же самой странице?

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


Сообщение отредактировал Dmitry1992_92 - Понедельник, 25.12.2017, 09:24
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста новичку в Excel.
Вопрос очень простой: У меня есть макрос на странице, который позволяет копировать данные из ячейки и вставлять на другую страницу при двойном нажатии, теперь я хочу добавить на эту страницу другой макрос чтобы он тоже же копировал данные из ячейки, но уже с другого столбца, что мне нужно написать в конце кода чтобы я мог продолжить писать другой макрос на этой же самой странице?

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

Автор - Dmitry1992_92
Дата добавления - 25.12.2017 в 08:59
bmv98rus Дата: Понедельник, 25.12.2017, 09:25 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1330
Репутация: 226 ±
Замечаний: 0% ±

Excel 2013/2016
To be continued. пишут :-)

Dmitry1992_92, В Вашем случае надо не дописывать , а сперва менять условие If Target.Column > 4 Then Exit Sub.
 
Ответить
СообщениеTo be continued. пишут :-)

Dmitry1992_92, В Вашем случае надо не дописывать , а сперва менять условие If Target.Column > 4 Then Exit Sub.

Автор - bmv98rus
Дата добавления - 25.12.2017 в 09:25
Pelena Дата: Понедельник, 25.12.2017, 09:28 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 13140
Репутация: 2895 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Немного подробнее объясните (а лучше в файле).
Сейчас у Вас макрос срабатывает до столбца D. А надо как? С какого другого столбца?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНемного подробнее объясните (а лучше в файле).
Сейчас у Вас макрос срабатывает до столбца D. А надо как? С какого другого столбца?

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

Excel 2010
Pelena, файл к сожалению предоставить не смогу, т.к. там много рабочей информации, могу постараться объяснить так:
хотелось чтобы при нажатии на ячейку, которая находится в столбце H, копировалась при нажатии на неё двойным щелчком и вставлялась на страницу №14 в столбец B.

И ещё хотелось бы узнать: можно ли сделать так чтобы эта ячейка вставлялась в столбец A на 14-й странице, с учетом того что в ячейке A уже есть какой-то текст? Или при копировании этот текст удалится и ставится ячейка A?


Сообщение отредактировал Dmitry1992_92 - Понедельник, 25.12.2017, 09:52
 
Ответить
СообщениеPelena, файл к сожалению предоставить не смогу, т.к. там много рабочей информации, могу постараться объяснить так:
хотелось чтобы при нажатии на ячейку, которая находится в столбце H, копировалась при нажатии на неё двойным щелчком и вставлялась на страницу №14 в столбец B.

И ещё хотелось бы узнать: можно ли сделать так чтобы эта ячейка вставлялась в столбец A на 14-й странице, с учетом того что в ячейке A уже есть какой-то текст? Или при копировании этот текст удалится и ставится ячейка A?

Автор - Dmitry1992_92
Дата добавления - 25.12.2017 в 09:45
Pelena Дата: Понедельник, 25.12.2017, 09:57 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 13140
Репутация: 2895 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Не надо весь файл, сделайте небольшой файл-пример, чтобы не получилось "а у меня не работает"
Без примера
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 8 Then
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(Lr, 2).Value = Target.Value
End With
ElseIf Target.Column <= 4 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]
Если хотите, чтобы значение добавлялось к уже имеющемуся, то замените строку
[vba]
Код
.Cells(Lr, 1).Value = Target.Value
[/vba]
на
[vba]
Код
.Cells(Lr, 1).Value = .Cells(Lr, 1).Value & " " & Target.Value
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНе надо весь файл, сделайте небольшой файл-пример, чтобы не получилось "а у меня не работает"
Без примера
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 8 Then
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(Lr, 2).Value = Target.Value
End With
ElseIf Target.Column <= 4 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]
Если хотите, чтобы значение добавлялось к уже имеющемуся, то замените строку
[vba]
Код
.Cells(Lr, 1).Value = Target.Value
[/vba]
на
[vba]
Код
.Cells(Lr, 1).Value = .Cells(Lr, 1).Value & " " & Target.Value
[/vba]

Автор - Pelena
Дата добавления - 25.12.2017 в 09:57
Dmitry1992_92 Дата: Понедельник, 25.12.2017, 10:18 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Всё супер, всё получилось! ОГРОМНОЕ спасибо!
 
Ответить
СообщениеPelena, Всё супер, всё получилось! ОГРОМНОЕ спасибо!

Автор - Dmitry1992_92
Дата добавления - 25.12.2017 в 10:18
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Что пишут в конце макроса чтобы можно было продолжить его? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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