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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » фильтрация пользовательского числового формата (Формулы/Formulas)
фильтрация пользовательского числового формата
lamak58 Дата: Вторник, 28.06.2016, 11:09 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте.Проблема следующая - есть лист,в нем таблица с данными,и к некоторым ячейкам прикреплен свой числовой формат.Нужно заменить его значение только в тех ячейках,к которым он прикреплен.Например, 0"а" заменить на 0"1" , 0"б" на 0"2" и т.п.
[moder]А пример покажите?[/moder]

пример приложил.
есть число 226а ,которое на самом деле 226 и 226б ,которое тоже 226. Собственно задача заключается в замене числового формата с букв на соответствующие цифры,т.е. а на 1,б на 2 и т.п.
К сообщению приложен файл: 9044074.xlsx(10Kb)


Сообщение отредактировал lamak58 - Вторник, 28.06.2016, 11:25
 
Ответить
СообщениеЗдравствуйте.Проблема следующая - есть лист,в нем таблица с данными,и к некоторым ячейкам прикреплен свой числовой формат.Нужно заменить его значение только в тех ячейках,к которым он прикреплен.Например, 0"а" заменить на 0"1" , 0"б" на 0"2" и т.п.
[moder]А пример покажите?[/moder]

пример приложил.
есть число 226а ,которое на самом деле 226 и 226б ,которое тоже 226. Собственно задача заключается в замене числового формата с букв на соответствующие цифры,т.е. а на 1,б на 2 и т.п.

Автор - lamak58
Дата добавления - 28.06.2016 в 11:09
Manyasha Дата: Вторник, 28.06.2016, 12:37 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1586
Репутация: 662 ±
Замечаний: 0% ±

Excel 2007, 2010
lamak58, макросом подойдет?
[vba]
Код
Sub replaceFormat()
    For Each cell In ActiveSheet.UsedRange
        If cell.NumberFormat Like "0""?""" Then
            lett = Mid(cell.NumberFormat, 3, 1)
            cell.NumberFormat = "0""" & Asc(lett) - 223 & """"
        End If
    Next cell
End Sub
[/vba]
К сообщению приложен файл: 9044074-1.xlsm(17Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеlamak58, макросом подойдет?
[vba]
Код
Sub replaceFormat()
    For Each cell In ActiveSheet.UsedRange
        If cell.NumberFormat Like "0""?""" Then
            lett = Mid(cell.NumberFormat, 3, 1)
            cell.NumberFormat = "0""" & Asc(lett) - 223 & """"
        End If
    Next cell
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 28.06.2016 в 12:37
lamak58 Дата: Вторник, 28.06.2016, 12:54 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Маняша огромное спасибо,работает как часы! hands
 
Ответить
СообщениеМаняша огромное спасибо,работает как часы! hands

Автор - lamak58
Дата добавления - 28.06.2016 в 12:54
Мир MS Excel » Вопросы и решения » Вопросы по Excel » фильтрация пользовательского числового формата (Формулы/Formulas)
Страница 1 из 11
Поиск:

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