Массовое переименование label на форме

Posted by obzor under VBA

Возникла потребность изменить на форме VBA кучу label-ов. Есть текст «руб.» нужно — «грн.»
Переименовывать каждую отдельно конечно можно, но муторно, да и ненадежно, можно пропустить, а их, надписей таких, много.
В коде всё это делается просто, а вот на форме — не знаю как.

Aleksandr H.

Если caption = «.руб» тогда для всех выбранных label меняется легко через Properties

Я попробовал изменить файл vbaProject.bin черз Notepad++ (там встречаются captions), но при попытке открыть файл xlsm из него удаляется vbaProject.bin

DMITRIY_78

Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "Label" Then
            Ctrl.Value =".руб"
        End If
    Next

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel
• При открытии файла Excel запрашивается восстановление