Вместо 0 пустое значение

Alex72 Гость	#1 15.10.2012 10:22:28 Добрый день! Подскажите пожалуйста, как сделать так, чтобы на определенном листе в определенном диапазоне ячеек, вместо 0 были бы пустые ячейки?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 15.10.2012 10:35:27 Отключить в настройках "Отображать нулевые значения". Я сам - дурнее всякого примера! ...

Alex72 Гость	#3 15.10.2012 10:39:02 Нее, мне нужно в конкретном диапазоне, а в данной настройке он отключает 0 во всех ячейках, даже в которых мне не надо отключать.

VLad777 Пользователь Сообщений: 5369 Регистрация: 22.12.2012	#4 15.10.2012 10:46:58 формулой прописать =ЕСЛИ(...=0;"";...)

Alex72 Гость	#5 15.10.2012 10:48:35 А если в этой ячейке есть уже формула... Можно ли это сделать с помощью макроса?

VLad777 Пользователь Сообщений: 5369 Регистрация: 22.12.2012	#6 15.10.2012 10:55:36 выделите ячейки и поставьте формат ячейки 0;0;""

VLad777 Пользователь Сообщений: 5369 Регистрация: 22.12.2012	#7 15.10.2012 10:57:25 хочу добавить что это будет только визуальный вид, для расчета там все равно останется ноль.

Guest Гость	#8 15.10.2012 11:23:34 ЕСЛИ(0;""; СТАРАЯ_ФОРМУЛА )

Alex72 Гость	#9 15.10.2012 11:47:24 А макросом это можно сделать?

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#10 15.10.2012 11:53:39 Наверное пора показать, где на "определенном листе в определенном диапазоне ячеек"...

Alex72

Гость

#11

15.10.2012 14:09:07

На листе 2 нужно скрыть 0 (В данных ячейках стоит формула =Лист1!A1,=Лист1!A2,=Лист1!A1) Дело в том, что мне нужно, чтобы до того момента, когда я ввожу значения на листе 1, в ячейках на листе 2 было пусто, а не 0

Прикрепленные файлы

post_370835.xlsx (8.13 КБ)

LightZ

Пользователь

Сообщений: 1748 Регистрация: 22.12.2012

#12

15.10.2012 14:15:00

Private Sub Worksheet_activate()
Application.ScreenUpdating = False
Dim i&, FinalRow&
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells.EntireRow.AutoFit
For i = 1 To FinalRow
If Cells(i, 1).Value = 0 Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Прикрепленные файлы

post_370836.xls (32.5 КБ)

Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

JohnPS Пользователь Сообщений: 19 Регистрация: 01.01.1970	#13 15.10.2012 17:05:29 можно условным форматированием, если =0 сделать белый шрифт.. _______________________

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	#14 15.10.2012 17:08:00 Практически тоже самое уже предлагал KukLP (15.10.2012, 10:35) Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Читают тему