Не могу задать Пользовательский формат для 20 разрядного числа (например, 89701011687061539738). Если установить Числовой формат, то происходит обнуление разрядов далее 15-го, из-за ограничения Excel: Точность представления чисел, разрядов, не более 15 разрядов. Т.е. из 89701011687061539738 получается 89701011687061500000 Если установить Текстовый формат, то не знаю как создать Пользовательский формат, который форматировал бы например так: 89701011687061539738 89701011687061539738 897010116870615(пробел или еще какой-нибуть разделитель)39738
Возможно ли решить эту задачу?
Добрый день, форумчане!
Не могу задать Пользовательский формат для 20 разрядного числа (например, 89701011687061539738). Если установить Числовой формат, то происходит обнуление разрядов далее 15-го, из-за ограничения Excel: Точность представления чисел, разрядов, не более 15 разрядов. Т.е. из 89701011687061539738 получается 89701011687061500000 Если установить Текстовый формат, то не знаю как создать Пользовательский формат, который форматировал бы например так: 89701011687061539738 89701011687061539738 897010116870615(пробел или еще какой-нибуть разделитель)39738
Pelena, придется данные вносить в одном столбце, а результат будет в другом. Как-то неудобно. Надеялся решить задачу средствами Пользовательского форматирования.
Нужно мне это всего лишь для наглядности, просмотра глазами, т.к. первые 15 символов одинаковые.
Pelena, придется данные вносить в одном столбце, а результат будет в другом. Как-то неудобно. Надеялся решить задачу средствами Пользовательского форматирования.
Нужно мне это всего лишь для наглядности, просмотра глазами, т.к. первые 15 символов одинаковые.FSerg78
Как вариант: Вводить длинные числа в ячейки, которым предварительно присвоен текстовый формат. А затем использовать код VBA:
[vba]
Код
Public Sub Диап_Ячейка_Часть_Красить()
Dim r As Range
For Each r In Selection
Ячейка_Часть_Красить r, vbRed, 16
Next End Sub
Public Function Ячейка_Часть_Красить(cell As Range, _ ByVal iColor As Long, _ ByVal Start As Long, _ Optional ByVal Length As Long) _ As Variant ' Тестом НЕ покрыта
Как вариант: Вводить длинные числа в ячейки, которым предварительно присвоен текстовый формат. А затем использовать код VBA:
[vba]
Код
Public Sub Диап_Ячейка_Часть_Красить()
Dim r As Range
For Each r In Selection
Ячейка_Часть_Красить r, vbRed, 16
Next End Sub
Public Function Ячейка_Часть_Красить(cell As Range, _ ByVal iColor As Long, _ ByVal Start As Long, _ Optional ByVal Length As Long) _ As Variant ' Тестом НЕ покрыта
Жирный и красный можно покрасить руками и просто затем скопировать ячейку и вставить куда нужно форматы А пробел можно вставить в формат, выделив нужные ячейки и запустив такой макрос [vba]
Код
Sub FormProbel() For Each d_ In Selection d_.NumberFormat = ";;;""" & Left(d_, 15) & " " & Mid(d_, 16) & """" Next d_ End Sub
[/vba]
Жирный и красный можно покрасить руками и просто затем скопировать ячейку и вставить куда нужно форматы А пробел можно вставить в формат, выделив нужные ячейки и запустив такой макрос [vba]
Код
Sub FormProbel() For Each d_ In Selection d_.NumberFormat = ";;;""" & Left(d_, 15) & " " & Mid(d_, 16) & """" Next d_ End Sub
Насколько я понимаю, макрос создает для каждой ячейки собственный формат (а ячеек может быть сотни). И применив такое форматирование уже нельзя редактировать эти данные.
Насколько я понимаю, макрос создает для каждой ячейки собственный формат (а ячеек может быть сотни). И применив такое форматирование уже нельзя редактировать эти данные.FSerg78
А потом скопировать эту ячейку, выделить остальные, нажать правую мышу, спецвставка, формат
Да. Ну и ладно, что сотни. С другой стороны - покрасить гораздо проще Редактировать можно. Только потом перезапустить макрос нужно. Или, если нужно, чтобы нормальный формат был, то скопировать пустую ячейку и вставить ее формат (см. выше) или Главная - Очистить - Очистить форматы
А потом скопировать эту ячейку, выделить остальные, нажать правую мышу, спецвставка, формат
Да. Ну и ладно, что сотни. С другой стороны - покрасить гораздо проще Редактировать можно. Только потом перезапустить макрос нужно. Или, если нужно, чтобы нормальный формат был, то скопировать пустую ячейку и вставить ее формат (см. выше) или Главная - Очистить - Очистить форматы_Boroda_