Сканирование содержимого - текста макроса

Вход

Регистрация

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

= Мир MS Excel/Сканирование содержимого - текста макроса - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сканирование содержимого - текста макроса (Макросы/Sub)

Сканирование содержимого - текста макроса

Grell

Дата: Пятница, 14.04.2017, 23:47 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

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

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

Excel 2007

Доброе утро, уважаемые специалисты по экселю.
Подскажите решение проблемы.

У меня на листе есть автофигура "Квадрат", к которой прикреплен простой макрос.

Как должен выглядеть макрос, который бы - сканировал содержимое module1 vba и выводил бы листинг этого простого скрипта, построчно - в столбец E, с ячейки E8 ?
(Прицепить его можно к оранжевой кнопке)

Сам я не понимаю как эту проблему решить.

К сообщению приложен файл: 34585676.xls (40.0 Kb)

Ответить

Manyasha

Дата: Суббота, 15.04.2017, 00:21 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Grell, вот так, например:
[vba]

Код

Sub t()
    Dim lr&
    [e8].CurrentRegion.ClearContents
    With ActiveWorkbook.VBProject.VBComponents(1).CodeModule
        lr = .CountOfLines
        [e8].Resize(lr) = Application.Transpose(Split(.Lines(1, lr), vbCrLf))
    End With
End Sub

[/vba]

К сообщению приложен файл: 34585676-1.xls (47.5 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Grell

Дата: Суббота, 15.04.2017, 00:47 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

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

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

Excel 2007

Manyasha, большое спасибо.
Работает.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сканирование содержимого - текста макроса (Макросы/Sub)

Страница 1 из 1
1