Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Не выводить на печать данные ячейки
 
#1
26.10.2015 17:36:49
Здравствуйте.
Скажите, возможно ли как-то не выводить на печать ячейку с записью, не скрывая ее по строкам и столбцам?
 
 
 
#2
26.10.2015 17:40:04
на событие
Private Sub Workbook_BeforePrint(Cancel As Boolean)
прописать удаление значения (или закрашивания белым), после этого все возвращать к исходному виду
 
 
 
#3
26.10.2015 17:55:11
Получается так
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sheets("Лист1").Select
    Range("B1").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
End Sub
А какое событие при возврате на лист, необходимо восстановить .
 
 
 
#4
26.10.2015 20:09:31
можно на активацию нужного листа (+ бонус в виде упрощения Вашего макроса)
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Sheets("Лист1").Range("B1").Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sh
    If .Name = "Лист1" Then
        With .Range("B1").Font
            .ThemeColor = .....
            .TintAndShade = .....
        End With
    End If
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
26.10.2015 21:41:05
Цитата
Sanja написал:
можно на активацию нужного листа (+ бонус в виде упрощения Вашего макроса)
Спасибо Sanja. Только у меня ералаш, ячейка имеет условное форматирование если отрицательное значение то текст красный, если положительное то черный, а тут чтобы сделать текст невидимым еще и белый через код подключается…
 
 
 
#6
27.10.2015 07:42:52
Цитата
Серега_ написал:
Только у меня ералаш, ячейка имеет условное форматирование
М.б. попробовать задать формат ячейки =";;;" ? Тогда текст будет не белый, а просто невидимый.
Код
Private Sub Workbook_SheetActivate(ByVal Sh As Object)With Sh
    If .Name = "Лист1" Then
        Sh.Range("B1").NumberFormat = ";;;"
    End If
End With
End Sub
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#7
27.10.2015 08:45:13
...
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Лист1").Range("B1").FormatConditions(1).Font.ColorIndex = 2
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Лист1" Then Range("B1").FormatConditions(1).Font.ColorIndex = 3
End Sub
 
 
 
#8
27.10.2015 17:05:40
Цитата
Михаил Лебедев написал: М.б. попробовать задать формат ячейки =";;;" ?
Здравствуйте.

Насчет невидимости не знал, да, это вариант, будем пробовать.
Благодарю Михаил Лебедев.
Спасибо всем.
 
 
 
Страницы: 1
Читают тему
Наверх