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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение макроса для простановки 1 под шейпами - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение макроса для простановки 1 под шейпами (Макросы/Sub)
Изменение макроса для простановки 1 под шейпами
radioamator Дата: Вторник, 05.02.2019, 23:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Вечер добрый.
Возникла проблема с макросом.
Помогите, если кто может - решить ее.

В общем суть такая. На листе есть несколько фигур.
Если щелкать по ним, то под этими фигурами прописываются "1".
Но макросы сейчас имеют примерно вот такой вид - для каждого шейпа:
[vba]
Код

Option Explicit

Sub Макрос1()
  SetOnes ActiveSheet.Shapes("Фигура 1")
End Sub

Sub SetOnes(sh)
  Range(sh.TopLeftCell, sh.BottomRightCell).Value = 1
End Sub
[/vba]

То есть для каждого шейпа - приходится назначать свой отдельный макрос.

Подскажите - как макросом прописать 1 - под всеми этими шейпами, в названии которых имеется слово "Фигура" ?
К сообщению приложен файл: 0134017.xls(47.5 Kb)
 
Ответить
СообщениеВечер добрый.
Возникла проблема с макросом.
Помогите, если кто может - решить ее.

В общем суть такая. На листе есть несколько фигур.
Если щелкать по ним, то под этими фигурами прописываются "1".
Но макросы сейчас имеют примерно вот такой вид - для каждого шейпа:
[vba]
Код

Option Explicit

Sub Макрос1()
  SetOnes ActiveSheet.Shapes("Фигура 1")
End Sub

Sub SetOnes(sh)
  Range(sh.TopLeftCell, sh.BottomRightCell).Value = 1
End Sub
[/vba]

То есть для каждого шейпа - приходится назначать свой отдельный макрос.

Подскажите - как макросом прописать 1 - под всеми этими шейпами, в названии которых имеется слово "Фигура" ?

Автор - radioamator
Дата добавления - 05.02.2019 в 23:08
Karataev Дата: Вторник, 05.02.2019, 23:23 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1327
Репутация: 524 ±
Замечаний: 0% ±

Excel
Макрос для кнопки, которая у Вас на листе.


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
СообщениеМакрос для кнопки, которая у Вас на листе.

Автор - Karataev
Дата добавления - 05.02.2019 в 23:23
radioamator Дата: Вторник, 05.02.2019, 23:50 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Karataev, спасибо
 
Ответить
СообщениеKarataev, спасибо

Автор - radioamator
Дата добавления - 05.02.2019 в 23:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение макроса для простановки 1 под шейпами (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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