Скрыть значения в ячейке, например промежуточные вычисления на листе, без их удаления можно открыв окно Формат ячеек:
добавив в раздел (все форматы), Тип ";;;", :
Или используя макрос:
Sub HideValues() 'Скрыть значения ячейки
On Error Resume Next
If TypeName(Selection) <> "Range" Then Exit Sub
Selection.NumberFormat = ";;;"
End Sub
Используйте еще несколько макросов, которые ускорят форматирование числовых значений:
Числовой формат, целое число с разделителем:
Sub NumberFormat() 'Установка числового формата целое число с разделителем
If TypeName(Selection) <> "Range" Then Exit Sub
Selection.NumberFormat = "#,##0" 'добавьте .00, если нужно не целое
End Sub
USD и EUR формат с двумя знаками после запятой:
Sub DollarFormat() 'Установка формата долларов
On Error Resume Next
If TypeName(Selection) <> "Range" Then Exit Sub
Selection.NumberFormat = "[$$-409]#,##0.00;[Red]-[$$-409]#,##0.00" 'удалите .00, если нужно целое
End Sub
Sub EuroFormat() 'Установка формата евро
On Error Resume Next
If TypeName(Selection) <> "Range" Then Exit Sub
Selection.NumberFormat = "[$€-2] #,##0.00;[Red]-[$€-2] #,##0.00" 'удалите .00, если нужно целое
End Sub
% формат с двумя знаками после запятой:
Sub PercentFormat() 'Установка % формата с двумя знаками после запятой
On Error Resume Next
If TypeName(Selection) <> "Range" Then Exit Sub
Selection.NumberFormat = "0.00%"
End Sub
Копируйте нужный код и сохраните его в Личной книге макросов.
Открыть редактор VBA Alt +F11, вызвать меню для выполнения или изменения макросов Alt + F8.
Спасибо, что дочитали до конца!
Если Вам было интересно, ставьте лайк, пишите, что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.
Интересное по теме Excel:
- Функции Excel: ВПР (вертикальный просмотр)
- Как переместить строку или столбец в Сводной таблице Excel
- Как напечатать заголовки таблицы Excel на каждой странице
- Как отобразить листы в файлах Excel, выгруженных из 1С
- "Умные" таблицы в Excel
- Мгновенное заполнение
- Быстрое перемещение строк и столбцов
