rever27
Дата: Среда, 19.08.2015, 09:08 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация:
0
±
Замечаний:
20% ±
Excel 2010
Имеется колонка B. В ней есть значения. Нужен макрос, чтобы: После выделения мышью нескольких значений с помощью ctrl (в примере 4 значения выделены синем) и нажатию кнопки макроса, в колонке D должны появиться эти значения.
Имеется колонка B. В ней есть значения. Нужен макрос, чтобы: После выделения мышью нескольких значений с помощью ctrl (в примере 4 значения выделены синем) и нажатию кнопки макроса, в колонке D должны появиться эти значения. rever27
Ответить
Сообщение Имеется колонка B. В ней есть значения. Нужен макрос, чтобы: После выделения мышью нескольких значений с помощью ctrl (в примере 4 значения выделены синем) и нажатию кнопки макроса, в колонке D должны появиться эти значения. Автор - rever27 Дата добавления - 19.08.2015 в 09:08
Pelena
Дата: Среда, 19.08.2015, 09:25 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19188
Репутация:
4421
±
Замечаний:
±
Excel 365 & Mac Excel
Может, так подойдёт? [vba]Код
Sub qqq() If Intersect(Selection, Range("B2").CurrentRegion) Is Nothing Then Exit Sub Range("D:D").Clear Selection.Copy Range("D2") End Sub
[/vba]
Может, так подойдёт? [vba]Код
Sub qqq() If Intersect(Selection, Range("B2").CurrentRegion) Is Nothing Then Exit Sub Range("D:D").Clear Selection.Copy Range("D2") End Sub
[/vba] Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Может, так подойдёт? [vba]Код
Sub qqq() If Intersect(Selection, Range("B2").CurrentRegion) Is Nothing Then Exit Sub Range("D:D").Clear Selection.Copy Range("D2") End Sub
[/vba] Автор - Pelena Дата добавления - 19.08.2015 в 09:25
rever27
Дата: Среда, 19.08.2015, 09:33 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация:
0
±
Замечаний:
20% ±
Excel 2010
Pelena , хотелось бы в Память сохранить, потому что потом по этим названиям искать листы в книге через цикл и отображать их [vba]Код
Sheets(mySheet).Visible = IIf(Sheets(mySheet).Visible, False, True)
[/vba] Upd. Pelena , Спасибо, вопрос решился методом тыка ) [vba]Код
If Selection.Count > 1 Then For Each iCell In Selection Sheets(iCell).Visible = IIf(Sheets(iCell).Visible, False, True) Next End If
[/vba]
Pelena , хотелось бы в Память сохранить, потому что потом по этим названиям искать листы в книге через цикл и отображать их [vba]Код
Sheets(mySheet).Visible = IIf(Sheets(mySheet).Visible, False, True)
[/vba] Upd. Pelena , Спасибо, вопрос решился методом тыка ) [vba]Код
If Selection.Count > 1 Then For Each iCell In Selection Sheets(iCell).Visible = IIf(Sheets(iCell).Visible, False, True) Next End If
[/vba]rever27
Сообщение отредактировал rever27 - Среда, 19.08.2015, 09:46
Ответить
Сообщение Pelena , хотелось бы в Память сохранить, потому что потом по этим названиям искать листы в книге через цикл и отображать их [vba]Код
Sheets(mySheet).Visible = IIf(Sheets(mySheet).Visible, False, True)
[/vba] Upd. Pelena , Спасибо, вопрос решился методом тыка ) [vba]Код
If Selection.Count > 1 Then For Each iCell In Selection Sheets(iCell).Visible = IIf(Sheets(iCell).Visible, False, True) Next End If
[/vba]Автор - rever27 Дата добавления - 19.08.2015 в 09:33
Pelena
Дата: Среда, 19.08.2015, 09:55 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19188
Репутация:
4421
±
Замечаний:
±
Excel 365 & Mac Excel
[offtop]Так и не поняла связь исходной задачи с найденным решением [/offtop]
[offtop]Так и не поняла связь исходной задачи с найденным решением [/offtop] Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение [offtop]Так и не поняла связь исходной задачи с найденным решением [/offtop] Автор - Pelena Дата добавления - 19.08.2015 в 09:55