Общее значение для нескольких макросов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Общее значение для нескольких макросов (Макросы/Sub)

creyc-alvlad

Дата: Вторник, 26.02.2019, 15:04 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

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

К сообщению приложен файл: 9151885.xlsm (13.2 Kb)

Сообщение отредактировал creyc-alvlad - Вторник, 26.02.2019, 15:35

Ответить

Pelena

Дата: Вторник, 26.02.2019, 15:10 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

_Boroda_

Дата: Вторник, 26.02.2019, 15:27 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

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

Ответить

creyc-alvlad

Дата: Вторник, 26.02.2019, 15:38 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Цитата Pelena, 26.02.2019 в 15:10, в сообщении № 2 ()

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

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

Цитата Pelena, 26.02.2019 в 15:10, в сообщении № 2 ()

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

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

Ответить

creyc-alvlad

Дата: Вторник, 26.02.2019, 18:15 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Цитата _Boroda_, 26.02.2019 в 15:27, в сообщении № 3 ()

Еще так можно

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

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

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