Как преобразовать тире в минус

Что делает макрос: Этот макрос проходит через целевой диапазон и фиксирует все отрицательные знаки минус, так что они появляются перед номером, а не в конце.

Как макрос работает

В этом макросе, мы используем две переменные объекта Range, чтобы пройти через наш целевой диапазон. Оператор For Each активирует каждую ячейку в целевом диапазоне. Каждый раз, когда активируется ячейка, мы преобразуем значение ячейки в двойной числовой тип данных с помощью функции CDbl. Тип данных выводит любые отрицательные знаки перед числом.

Код макроса

Sub PreobrazovatTireVMinus()
'Шаг 1: Объявляем переменные
Dim MyRange As Range
Dim MyCell As Range
'Шаг 2: Сохранить книгу перед тем, как изменить данные?
Select Case MsgBox("Перед изменением данных. " & _
"Сохранить книгу?", vbYesNoCancel)
Case Is = vbYes
ThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
'Шаг 3: определение целевого диапазона
Set MyRange = Selection
'Шаг 4: Запускаем цикл по диапазону
For Each MyCell In MyRange
'Шаг 5: Преобразование значения к двойному числовому типу.
If IsNumeric(MyCell) Then
MyCell = CDbl(MyCell)
End If
'Шаг 6: Получаем следующую ячейку в диапазоне
Next MyCell
End Sub

Как это код работает

  1. Шаг 1 объявляет две переменные объекта Range.
  2. При выполнении макроса, он уничтожает стек отката.
  3. Шаг 3 заполняет переменную MyRange целевым диапазоном.
  4. Шаг 4 начинает цикл через каждую ячейку в целевом диапазоне.
  5. После того, как клетка активируется, Шаг 5 использует IsNumeric функцию, чтобы проверить, является ли значение числом. Затем мы передаем значение ячейки с помощью функции CDbl. Она эффективно преобразует значение двойного числового типа данных, ставя знак минус впереди.
  6. Шаг 6 повторяет цикл, чтобы получить следующую ячейку. После просмотра всех ячеек в целевом диапазоне макрос заканчивается.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

  1. Активируйте редактор Visual Basic, нажав ALT + F11.
  2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
  3. Выберите Insert➜Module.
  4. Введите или вставьте код.
Оцените статью
Добавить комментарий