4000 грн на місяць

Бесплатные консультации по Excel

а что мешает на время печати включать фильтр по значению "не равно ПДВ" и выводить на печать.

А на время работы сбрасывать фильтр.
 
figaro сказав(ла):
а что мешает на время печати включать фильтр по значению "не равно ПДВ" и выводить на печать.

А на время работы сбрасывать фильтр.
Натисніть, щоб розгорнути...

вопрос в том чтобы на печать выводились строки с ПДВ но без значений
 
а пример файла можно?
 
4000 грн на місяць
я не думаю, что строка которая "с ПДВ" ему нужна :) хотя мало ли. поэтому прошу файл.
 
figaro сказав(ла):
я не думаю, что строка которая "с ПДВ" ему нужна :) хотя мало ли. поэтому прошу файл.
Натисніть, щоб розгорнути...

Увы таки нужно выводить строки с ПДВ на печать, но без значений:

timahvey сказав(ла):
Есть файл с списком на несколько страниц. В одном столбце цифровые значения стоят везде.
Как сделать так, что бы они и прежде отображались на экране монитора, но на печать выводились не все? Т.е. что бы в определенных ячейках на напечатанном листе было пусто, а значения оставались и были видны не только в графе формула.

П.С. Менять цвет на белый или печатать только выделенный диапазон не предлагать.
У меня Excel 2010

Помню, когда-то в Word можно было делать скрытый текст, который видно на экране, но на бумаге не видно. А как здесь ...
Натисніть, щоб розгорнути...
 
4000 грн на місяць
Можно сделать такие вот костыли:

По событию печать (или предварительный просмотр) выполняется такой макрос (этот код нужно разместить в объекте Книга):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
For Each Cell In Selection
If Cell.Comment Is Nothing Then
Else
Cell.Font.ColorIndex = 2
End If
Next Cell
End Sub

Этот код меняет шрифт ячеек, у которых есть примечания.

И вешаем, например, на событие перед правым кликом мыши, возврат цвета шрифта (макрос там же):

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Excel.Range, ByRef Cancel As Boolean)
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
For Each Cell In Selection
If Cell.Comment Is Nothing Then
Else
Cell.Font.ColorIndex = 0
End If
Next Cell
End Sub

Что в итоге: при печати или предварительном просмотре все ячейки с комментариями будут невидимы. При двойном клике правой кнопкой мыши - цвет шрифта восстановится.
 
figaro, спасибо! А куда вставить выбранный диапазон ячеек "у которых есть примечания" ?
Фот пример файлика (прилагаю преобразованный в 2003-й Excel)
 
Останнє редагування:
например так. Макросы нужно вставить в объект "ЭтаКнига". В окне редактора Visual Basic.

В примере, я добавил комментарии для ячеек перед ячейками со значением СПД.

Значок комментариев у тебя виден?

В ячейках с комментариями:
При печати - шрифт изменится на белый.
При правом клике - шрифт изменится на черный.
 

Вкладення

4000 грн на місяць
ТО что нужно! :оплески::кінь2:
figaro сказав(ла):
Значок комментариев у тебя виден?
Натисніть, щоб розгорнути...
Да, красный треугольник есть.
Главный вопрос: как так помечать самому ячейки?

К примеру, сейчас же нужно помечать ячейки перед НДС.
 
правая кнопка мыши - в контекстном меню "Вставить примечание".
 
Останнє редагування:
пока есть косяк:
когда нажимаешь правой кн. мыши (без разницы на какой ячейке) выделяется вся книга (как при Ctrl+A) и поставить примечание можно только на первую ячейку.

По логике, надо:
1) ставить пометки на ячейки
2) вставлять макрос

А если нужно изменить:
1)удалять макрос и 1), 2) как с начала

ИМХО: не совсем удобно.
 
Останнє редагування:
4000 грн на місяць
timahvey сказав(ла):
пока есть косяк:
когда нажимаешь правой кн. мыши (без разницы на какой ячейке) выделяется вся книга (как при Ctrl+A) и поставить примечание можно только на первую ячейку.

По логике, надо:
1) ставить пометки на ячейки
2) вставлять макрос

А если нужно изменить:
1)удалять макрос и 1), 2) как с начала

ИМХО: не совсем удобно.
Натисніть, щоб розгорнути...

Вариант решения.

Функциональные клавиши справа от таблицы

P.S. В диалоговое окно необходимо ввести например "НДС" (без кавычек), т.е. один из вариантов присутствующих в колонке D
 

Вкладення

согласен :)

вносим коррекцию.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Target = ActiveCell.Address

Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select

For Each Cell In Selection
If Cell.Comment Is Nothing Then
Else
Cell.Font.ColorIndex = 2
End If
Next Cell

Range(Target).Select

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Excel.Range, ByRef Cancel As Boolean)

Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select

For Each Cell In Selection
If Cell.Comment Is Nothing Then
Else
Cell.Font.ColorIndex = 0
End If
Next Cell

Target.Select

End Sub
 

Вкладення

работает!
ну а на счет кнопочек: «печатать все» и «печатать "без НДС"»
это было бы вообще сказка ))

А пока и так устраивает.
Еще раз: большое спасибо!:клас:
 
4000 грн на місяць
чаще нужно как печатать?
 

Вкладення

последняя версия покатит? :)
 
4000 грн на місяць
да. Благодарю )



Minenko_VI сказав(ла):
Вариант решения.

Функциональные клавиши справа от таблицы

P.S. В диалоговое окно необходимо ввести например "НДС" (без кавычек), т.е. один из вариантов присутствующих в колонке D
Натисніть, щоб розгорнути...

Спасибо большое, Minenko_VI :yahoo:
Только сейчас обратил внимание на файл :краснеет:
 
Останнє редагування:
timahvey сказав(ла):
ну а на счет кнопочек: «печатать все» и «печатать "без НДС"»
Натисніть, щоб розгорнути...
«печатать все» после «печатать "без НДС"» у вас не работает ;)

Реализация на вашей совести, от мну только правки:
Код: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Msg = "Все печатать?"
    ans = MsgBox(Msg, vbYesNo, "Печать...")

    Set rngSelection = Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)) '!!!

    For Each Cell In rngSelection
        If Cell.Comment Is Nothing Then
        Else
            Cell.Font.ColorIndex = (ans - vbYes) * 2 ';)
        End If
    Next Cell

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
                                           ByVal Target As Excel.Range, ByRef Cancel As Boolean)

    Set rngSelection = Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell))

    For Each Cell In rngSelection
        If Cell.Comment Is Nothing Then
        Else
            Cell.Font.ColorIndex = 0
        End If
    Next Cell

End Sub

п.с. в больших таблицах можно работать непосредственно коллекцией Comments, а не искать их во всех ячейках
 
Ви повинні увійти або зареєструватися, щоб відповісти.
Назад
Зверху Знизу