Цитата |
---|
Казанский написал: если сработает Set MyVar = today, тогда будет работать и With today |
aaa.today aaa.yesterday и пр. aaa. ... это все переменные одного объекта имеющего название aaa, переменные заданы в отдельном модуле следующим образом
Код |
---|
Type vars
today As Byte
yesterday As Byte
...
End Type |
В другом модуле все объекты со всеми переменными объявлены глобально
Код |
---|
Public aaa As vars
Public bbb As vars
Public ccc As vars
... |
В третьем модуле записана основная процедура расчетов, она должна происходить только с переменными типа aaa. ... либо только с переменными типа bbb. ... и так далее.
или
Прописать в модуле двадцать одинаковых блоков с aaa, bbb, ccc, и т.д. плохая идея т.к. блок имеет большой код вычислений. Вот я и пытаюсь найти способ как автоматически в зависимости от текущей необходимости подставлялись нужные три буковки после слова With
Это наверное можно решить с помощью ячейки, пусть в ячейку Range ("A1") автоматически будут прописываться три нужные буквы, тогда
With WorkSheets.Range("A1")
...
End With
В операциях будут участвовать все переменные с нужными на данный момент буквами впереди перед точкой.
Но как это сделать без привлечения таблицы excel только средствами VBA?