Здравствуйте.Проблема следующая - есть лист,в нем таблица с данными,и к некоторым ячейкам прикреплен свой числовой формат.Нужно заменить его значение только в тех ячейках,к которым он прикреплен.Например, 0"а" заменить на 0"1" , 0"б" на 0"2" и т.п. [moder]А пример покажите?[/moder]
пример приложил. есть число 226а ,которое на самом деле 226 и 226б ,которое тоже 226. Собственно задача заключается в замене числового формата с букв на соответствующие цифры,т.е. а на 1,б на 2 и т.п.
Здравствуйте.Проблема следующая - есть лист,в нем таблица с данными,и к некоторым ячейкам прикреплен свой числовой формат.Нужно заменить его значение только в тех ячейках,к которым он прикреплен.Например, 0"а" заменить на 0"1" , 0"б" на 0"2" и т.п. [moder]А пример покажите?[/moder]
пример приложил. есть число 226а ,которое на самом деле 226 и 226б ,которое тоже 226. Собственно задача заключается в замене числового формата с букв на соответствующие цифры,т.е. а на 1,б на 2 и т.п.lamak58
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]
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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
