WedX - журнал о программировании и компьютерных науках

Excel VBA - добавьте собственный числовой формат

У меня есть файл с множеством процентов, созданный вне Excel. Все эти проценты имеют один десятичный знак. При импорте в Excel Excel добавляет к процентам второй десятичный знак - похоже, это какой-то формат по умолчанию для процентов в Excel. Он просто добавляет «0».

Я хочу отформатировать все проценты с двумя десятичными знаками до одной десятичной точки. Если я сделаю это вручную, используя CTRL + H, Найти формат / заменить формат, все будет хорошо. Но я не могу сделать это через VBA / macro, даже если я запишу макрос при замене вручную. Код, сгенерированный при записи макроса, следующий:

Application.FindFormat.NumberFormat = "0.00%"
Application.ReplaceFormat.NumberFormat = "0.0%"
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Неисправность происходит при:

Application.ReplaceFormat.NumberFormat = "0.0%"

После долгих проб и ошибок я обнаружил, что новый формат должен быть в списке «Пользовательский формат». Но проценты с одним десятичным знаком по умолчанию отсутствуют. Если я вручную форматирую одну ячейку до желаемого формата, макрос работает. Конечно, я не хочу делать это с каждым файлом.

Любой вклад будет очень признателен.

Заранее спасибо!

excel vba
14.01.2015

  • Если вы установите новый настраиваемый номер для первой ячейки с помощью VBA (.range("A1").NumberFormat = "0.0%;@"), разве этот новый настраиваемый числовой формат не появится в списке для будущего использования с операцией массовой замены? 14.01.2015
  • @Jeeped Ага, похоже, это решает проблему :). Что именно делает; @? Я не знаком с этим. 14.01.2015

Ответы:


1

Если вы примените настраиваемый числовой формат к одной ячейке, она станет «перечисленной» и впоследствии будет доступна для будущего использования с операцией массовой замены. Я мог бы порекомендовать использовать что-то вроде,

 .range("A1").NumberFormat = "0.0%;@"

Эта конкретная маска формата может быть применена к любой ячейке с процентом или текстом. Если у вас есть метка заголовка столбца с текстовым значением и вы применили эту CNF, часть ;@ заставляет текст отображаться буквально (без изменений). Таким образом, вы открываете больше возможностей, где вы помещаете первую CNF. После того, как он был использован один раз, он будет доступен для операций массовой замены оставшейся части процентных значений.

14.01.2015

2

Рассмотрим простое:

Sub dural()
    Dim r As Range
    For Each r In ActiveSheet.UsedRange
        If r.NumberFormat = "0.00%" Then
            r.NumberFormat = "0.0%"
        End If
    Next r
End Sub
14.01.2015
  • Это тоже отлично работает, хотя примерно в 2 раза медленнее, чем ответ @Jeeped. Кажется, что перебор каждой ячейки в большом диапазоне медленнее, чем массовый поиск / замена. Большое спасибо! 15.01.2015
    • Новые материалы
    Объяснение документов 02: BERT
    BERT представил двухступенчатую структуру обучения: предварительное обучение и тонкая настройка. Во время предварительного обучения модель обучается на неразмеченных данных с помощью..
    Как проанализировать работу вашего классификатора?
    Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..
    Работа с цепями Маркова, часть 4 (Машинное обучение)
    Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..
    Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
    Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..
    Использование машинного обучения и Python для классификации 1000 сезонов новичков MLB Hitter
    Чему может научиться машина, глядя на сезоны новичков 1000 игроков MLB? Это то, что исследует это приложение. В этом процессе мы будем использовать неконтролируемое обучение, чтобы..
    Учебные заметки: создание моего первого пакета Node.js
    Это мои обучающие заметки, когда я научился создавать свой самый первый пакет Node.js, распространяемый через npm. Оглавление Глоссарий I. Новый пакет 1.1 советы по инициализации..
    Забудьте о Matplotlib: улучшите визуализацию данных с помощью умопомрачительных функций Seaborn!
    Примечание. Эта запись в блоге предполагает базовое знакомство с Python и концепциями анализа данных. Привет, энтузиасты данных! Добро пожаловать в мой блог, где я расскажу о невероятных..
    Для любых предложений по сайту: [email protected]