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

Вход

Регистрация

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

 

= Мир MS Excel/Общее значение для нескольких макросов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Общее значение для нескольких макросов (Макросы/Sub)
Общее значение для нескольких макросов
creyc-alvlad Дата: Вторник, 26.02.2019, 15:04 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

Пример во вложении, в нем два макроса, общее значение "i", оно указано в третьем.
Надеюсь, понятно изложил суть проблемы. Подобной темы не смог найти.
Заранее спасибо!
К сообщению приложен файл: 9151885.xlsm(13.2 Kb)


Сообщение отредактировал creyc-alvlad - Вторник, 26.02.2019, 15:35
 
Ответить
СообщениеДобрый День!
Просьба помочь в данной ситуации:
в книге Excel есть несколько макросов для разных действий, но некоторые команды общие, повторяются и ссылаются на количество символов и, при необходимости изменить это количество символов, приходится его искать во всех макросах и корректировать.
Как можно проставить общее значение этих символов для нескольких макросов? Значение необходимо проставить именно в VBA, в ячейке Excel ставить значение, а потом кидать на нее ссылку не вариант.

Пример во вложении, в нем два макроса, общее значение "i", оно указано в третьем.
Надеюсь, понятно изложил суть проблемы. Подобной темы не смог найти.
Заранее спасибо!

Автор - creyc-alvlad
Дата добавления - 26.02.2019 в 15:04
Pelena Дата: Вторник, 26.02.2019, 15:10 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13782
Репутация: 3027 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Объявить переменную как Public
Здесь можно подробнее почитать
[p.s.]Пример не приложился[/p.s.]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Объявить переменную как Public
Здесь можно подробнее почитать
[p.s.]Пример не приложился[/p.s.]

Автор - Pelena
Дата добавления - 26.02.2019 в 15:10
_Boroda_ Дата: Вторник, 26.02.2019, 15:27 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14486
Репутация: 5788 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Еще так можно
[vba]
Код
Function Znath()
    Znath = 2
End Function

Sub makr1()
    c = Znath
End Sub

Sub makr2()
    cссс = Znath
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще так можно
[vba]
Код
Function Znath()
    Znath = 2
End Function

Sub makr1()
    c = Znath
End Sub

Sub makr2()
    cссс = Znath
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 26.02.2019 в 15:27
creyc-alvlad Дата: Вторник, 26.02.2019, 15:38 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Объявить переменную как Public
Здесь можно подробнее почитать


Спасибо, изучаю.

P.S.
Пример не приложился


Что-то пошло не так. приложил.
 
Ответить
Сообщение
Объявить переменную как Public
Здесь можно подробнее почитать


Спасибо, изучаю.

P.S.
Пример не приложился


Что-то пошло не так. приложил.

Автор - creyc-alvlad
Дата добавления - 26.02.2019 в 15:38
creyc-alvlad Дата: Вторник, 26.02.2019, 18:15 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Еще так можно

Излишнее цитирование удалено администрацией

Не совсем то что нужно - это работает только если макросы находятся в одном модуле.

Получилось по ссылке от Pelena, респект. прикрепил пример, вдруг кому полезно будет.
Всем спасибо!
К сообщению приложен файл: 8407990.xlsm(13.7 Kb)
 
Ответить
Сообщение
Еще так можно

Излишнее цитирование удалено администрацией

Не совсем то что нужно - это работает только если макросы находятся в одном модуле.

Получилось по ссылке от Pelena, респект. прикрепил пример, вдруг кому полезно будет.
Всем спасибо!

Автор - creyc-alvlad
Дата добавления - 26.02.2019 в 18:15
_Boroda_ Дата: Вторник, 26.02.2019, 19:21 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14486
Репутация: 5788 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
это работает только если макросы находятся в одном модуле.

Да ладно! С чего Вы взяли?
Смотрите файл
К сообщению приложен файл: 789278396.xlsm(12.9 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
это работает только если макросы находятся в одном модуле.

Да ладно! С чего Вы взяли?
Смотрите файл

Автор - _Boroda_
Дата добавления - 26.02.2019 в 19:21
creyc-alvlad Дата: Вторник, 26.02.2019, 20:07 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Излишнее цитирование удалено администрацией

Вы правы, работает, это я не вразумил, что Function нужно переименовать.
Спасибо, буду знать.
К сообщению приложен файл: 6746439.xlsm(13.7 Kb)
 
Ответить
СообщениеИзлишнее цитирование удалено администрацией

Вы правы, работает, это я не вразумил, что Function нужно переименовать.
Спасибо, буду знать.

Автор - creyc-alvlad
Дата добавления - 26.02.2019 в 20:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Общее значение для нескольких макросов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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