Проверка на соответствие формату

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

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

Проверка на соответствие формату (Макросы/Sub)

kolommetod

Дата: Четверг, 16.01.2025, 15:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

2021

Здравствуйте, форумчане! Столкнулся с проблемой и не понимаю где ошибка. Весь код не влез в сообщение он в файле

Без блока форматирования даты
[vba]

Код

' Форматируем дату
For a = 2 To lastSheetIndex
        Set targetWs = ThisWorkbook.Sheets(a)
        ' Определяем значение для сравнения на текущем листе

        targetWs.Range("B3").Value = Trim(targetWs.Range("B3").Value)

Next a

[/vba]- все работает. В чем ошибка не могу разобраться - прошу вашей помощи! Суть: надо удалить пробелы в ячейке с датой, а потом уже выполнять главную процедуру

К сообщению приложен файл: zadacha.xlsm (61.4 Kb)

Сообщение отредактировал kolommetod - Четверг, 16.01.2025, 15:45

Ответить

_Boroda_

Дата: Четверг, 16.01.2025, 16:22 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16766

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

К сожалению, скачать файл с макросами не могу, безопасники заблокировали, но могу так сказать, что Trim для VBA убирает начальные и конечные пробелы. Вам именно это нужно?
WorksheetFunction.Trim убирает начальные, конечные и неодинарные пробелы. Если надо убрать вообще все пробелы, используйте Replace

И вообще - где конкретно ошибка возникает и в чем она заключается?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995