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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос записи значений выделенных ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос записи значений выделенных ячеек (Макросы/Sub)
Макрос записи значений выделенных ячеек
rever27 Дата: Среда, 19.08.2015, 09:08 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Имеется колонка B. В ней есть значения. Нужен макрос, чтобы:
После выделения мышью нескольких значений с помощью ctrl (в примере 4 значения выделены синем) и нажатию кнопки макроса, в колонке D должны появиться эти значения.
К сообщению приложен файл: 8392987.xlsx (9.7 Kb)
 
Ответить
СообщениеИмеется колонка 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]

"Черт возьми, Холмс! Но как??!!"
Ю-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]


Сообщение отредактировал 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]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[offtop]Так и не поняла связь исходной задачи с найденным решением %) [/offtop]
Автор - Pelena
Дата добавления - 19.08.2015 в 09:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос записи значений выделенных ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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