Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Пользовательский формат ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Пользовательский формат ячейки (Макросы/Sub)
Пользовательский формат ячейки
lebensvoll Дата: Суббота, 13.03.2021, 15:46 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 995
Репутация: 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)


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеДобрый день, всем!!!
Помогите пжл.
Имеется код "пользовательского формата ячейки:
[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
Возможно ли его дополнить как то!?

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

Автор - lebensvoll
Дата добавления - 13.03.2021 в 15:46
Апострофф Дата: Суббота, 13.03.2021, 16:32 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 328
Репутация: 94 ±
Замечаний: 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]


Сообщение отредактировал Апострофф - Суббота, 13.03.2021, 16:35
 
Ответить
Сообщениеlebensvoll, а зачем тут вообще SPLIT и FORMAT? Запишите так -
[vba]
Код
'код пользовательского формата ячейки
    If Target.Address(0, 0) = "B11" Then
        Application.EnableEvents = 0
        Target = "Протокол № " & Target
        Application.EnableEvents = 1
    End If
[/vba]

Автор - Апострофф
Дата добавления - 13.03.2021 в 16:32
lebensvoll Дата: Суббота, 13.03.2021, 16:38 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 995
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Апострофф, Спасибо за ответ, сейчас проверю
с учетом того что я в макросах не силен!!!
Сей макрос мне когда то прописывал : _Boroda_,


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеАпострофф, Спасибо за ответ, сейчас проверю
с учетом того что я в макросах не силен!!!
Сей макрос мне когда то прописывал : _Boroda_,

Автор - lebensvoll
Дата добавления - 13.03.2021 в 16:38
lebensvoll Дата: Суббота, 13.03.2021, 16:39 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 995
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Апострофф, hands СПАСИБО!!!


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеАпострофф, hands СПАСИБО!!!

Автор - lebensvoll
Дата добавления - 13.03.2021 в 16:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Пользовательский формат ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!