Пользовательский формат ячейки

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

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

Пользовательский формат ячейки (Макросы/Sub)

lebensvoll

Дата: Суббота, 13.03.2021, 15:46 | Сообщение № 1

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

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

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

Excel 2010

Добрый день, всем!!!
Помогите пжл.
Имеется код "пользовательского формата ячейки:
[vba]

Код

'код пользовательского формата ячейки
    If Target.Address(0, 0) = "B11" Then
        t_ = Split(Target, "-")
        If UBound(t_) Then
            Application.EnableEvents = 0
            Target = "Протокол № " & Format(t_(0), "0\-") & t_(1)
            Application.EnableEvents = 1
        End If
    End If

[/vba]
Все работает на ура!!! НО, в ходе работы столкнулись с одной проблемой "нештатной"
Оператору нужно иногда указывать № протокола через точку
Примерно сейчас он действует так
Протокол № 7-7 (первое значение это порядковый номер и второе значение это сутки)
НО иногда нужно указать
Протокол № 7.1-7
Возможно ли его дополнить как то!?

Всем заранее спасибо!!!

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

Кто бы ты ни был, мир в твоих руках

Ответить

Апострофф

Дата: Суббота, 13.03.2021, 16:32 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

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

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

Excel 1997

lebensvoll, а зачем тут вообще SPLIT и FORMAT? Запишите так -
[vba]

Код

'код пользовательского формата ячейки
    If Target.Address(0, 0) = "B11" Then
        Application.EnableEvents = 0
        Target = "Протокол № " & Target
        Application.EnableEvents = 1
    End If

[/vba]