01 Что делает макрос
Этот макрос проходит через целевой диапазон и фиксирует все знаки минус, так что они появляются перед номером, а не в конце.
В этом макросе, мы используем две переменные объекта Range, чтобы пройти через наш целевой диапазон. Оператор For Each активирует каждую ячейку в целевом диапазоне. Каждый раз, когда активируется ячейка, мы преобразуем значение ячейки в двойной числовой тип данных с помощью функции CDbl. Тип данных выводит любые отрицательные знаки перед числом.
02 Код макроса
SubPreobrazovatTireVMinus()'Шаг 1: Объявляем переменныеDimMyRangeAsRangeDimMyCellAsRange'Шаг 2: Сохранить книгу перед тем, как изменить данные?SelectCaseMsgBox("Перед изменением данных. "& _"Сохранить книгу?", vbYesNoCancel)CaseIs= vbYesThisWorkbook.SaveCaseIs= vbCancelExitSubEndSelect'Шаг 3: определение целевого диапазонаSetMyRange = Selection'Шаг 4: Запускаем цикл по диапазонуForEachMyCellInMyRange'Шаг 5: Преобразование значения к двойному числовому типу.IfIsNumeric(MyCell)ThenMyCell =CDbl(MyCell)EndIf'Шаг 6: Получаем следующую ячейку в диапазонеNextMyCellEndSub
03 Как работает макрос
1. Шаг 1 объявляет две переменные объекта Range.
2. При выполнении макрос уничтожает стек отката. Это означает, что вы не сможете отменить изменения, поэтому нужно сохранить книгу перед запуском макроса. Это делает Шаг 2.
3. Шаг 3 заполняет переменную MyRange целевым диапазоном.
4. Шаг 4 начинает цикл через каждую ячейку в целевом диапазоне. После того, как клетка активируется.
5. Шаг 5 использует функцию IsNumeric, чтобы проверить, является ли значение числом. Затем мы передаем значение ячейки с помощью функции CDbl. Она эффективно преобразует значение двойного числового типа данных, ставя знак минус впереди.
6. Шаг 6 повторяет цикл, чтобы получить следующую ячейку. После просмотра всех ячеек в целевом диапазоне макрос заканчивается.
04 Как использовать
Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:
1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
3. Выберите Insert➜Module.
4. Введите или вставьте код во вновь созданном модуле.
05 Скачать файл
Автор проекта
Дмитрий Якушев
Привет! Меня зовут Дмитрий. С 2014 года Microsoft Cretified Trainer. Вместе с командой управляем этим сайтом. Наша цель - помочь вам эффективнее работать в Excel.
Изучайте наши статьи с примерами формул, сводных таблиц, условного форматирования, диаграмм и макросов. Записывайтесь на наши курсы или заказывайте обучение в корпоративном формате.
Сайт https://akademia-excel.ru/
ИП Якушев Дмитрий Александрович
ОГРНИП: 314501721200022
ИНН: 501706813807
Образовательная лицензия № Л035-01255-50/01194039
Почта: info@akademia-excel.ru
Телефон для связи: + 7 (958) 697-73-88, + 7 (495) 145-23-86
Регистрация на сайте означает согласие с пользовательским соглашением и на получение рассылки и рекламных материалов.
Политика в отношении обработки и защиты персональных данных.
Банковские реквизиты:
Расчетный счет 40802810500000003597
Банк АО «Тинькофф Банк»
Юридический адрес Банка Москва, 123060,1-й Волоколамский проезд, д. 10, стр. 1
Корр. счет Банка 30101810145250000974
ИНН Банка 7710140679
БИК Банка 044525974
Подписывайтесь на нас в соц.сетях:
Сайт https://akademia-excel.ru/
ИП Якушев Дмитрий Александрович
ОГРНИП: 314501721200022
ИНН: 501706813807
Образовательная лицензия № Л035-01255-50/01194039
Банковские реквизиты:
Расчетный счет 40802810500000003597
Банк АО «Тинькофф Банк»
Юридический адрес Банка Москва, 123060,1-й Волоколамский проезд, д. 10, стр. 1
Корр. счет Банка 30101810145250000974
ИНН Банка 7710140679
БИК Банка 044525974
Регистрация на сайте означает согласие с пользовательским соглашением и на получение рассылки и рекламных материалов.
Политика в отношении обработки и защиты персональных данных.
Почта: info@akademia-excel.ru
Телефон для связи: + 7 (958) 697-73-88, + 7 (495) 145-23-86
Написать в тех.поддержку
Подписывайтесь:
авторизуйтесь