Добрый день знатоки офиса! У меня вот такая проблема: Есть бланки путёвок со штампом организации, в них необходимо вписывать номер машины, номер удостоверения, фамилию водителя, вид и кол-во топлива.... всего около 10-15 параметров, если заполнять их от руки то уходит много времени, можно воспользоваться готовым бланком (электронным) но тогда печатаются весь текст и будет отсутствовать штамп предприятия... Подскажите, пожалуйста, как можно отправить документ на печать что бы печатались только введённые данные в нужные клетки, а вся остальная таблица не печаталась, т.е. вся таблица уже отпечатана нужно в неё внести готовые данные
Добрый день знатоки офиса! У меня вот такая проблема: Есть бланки путёвок со штампом организации, в них необходимо вписывать номер машины, номер удостоверения, фамилию водителя, вид и кол-во топлива.... всего около 10-15 параметров, если заполнять их от руки то уходит много времени, можно воспользоваться готовым бланком (электронным) но тогда печатаются весь текст и будет отсутствовать штамп предприятия... Подскажите, пожалуйста, как можно отправить документ на печать что бы печатались только введённые данные в нужные клетки, а вся остальная таблица не печаталась, т.е. вся таблица уже отпечатана нужно в неё внести готовые данныеyeov
Вкладка Вид страничный режим и там поиграться с синенькими линиями. не
это не то пальто.... есть готовый документ с печатью и есть его электронный вариант, нужно в электронном варианте заполнить колонки и строки которые разбросаны по всему листу.... при отправке на печать принтер печатает ВЕСЬ документсо всеми названиями ячеек и строк поверх готового документа - в итоге получается наложение двух текстов один на другой, мне этого не надо, пробовал в электронном варианте текст печатать белым цветом, а введённый текст оставлять чёрным, но сам не видишь что пишешь (непонятно в какую колонку и что заносишь)
Вкладка Вид страничный режим и там поиграться с синенькими линиями. не
это не то пальто.... есть готовый документ с печатью и есть его электронный вариант, нужно в электронном варианте заполнить колонки и строки которые разбросаны по всему листу.... при отправке на печать принтер печатает ВЕСЬ документсо всеми названиями ячеек и строк поверх готового документа - в итоге получается наложение двух текстов один на другой, мне этого не надо, пробовал в электронном варианте текст печатать белым цветом, а введённый текст оставлять чёрным, но сам не видишь что пишешь (непонятно в какую колонку и что заносишь)yeov
вариант 1: Печатать данные на пустом листе в нужном месте. вариант 2: Сделать шрифт белым после ввода данных (УФ/макрос)
Пробовал писать на пустом листе - проблематично подогнать данные, но помимо текста там ещё и строки (тоже делал белыми) вот к примеру образец, было бы неплохо найти подобный макрос который бы автоматом при отправке на печать всё лишнее объявлял (делал) белым
вариант 1: Печатать данные на пустом листе в нужном месте. вариант 2: Сделать шрифт белым после ввода данных (УФ/макрос)
Пробовал писать на пустом листе - проблематично подогнать данные, но помимо текста там ещё и строки (тоже делал белыми) вот к примеру образец, было бы неплохо найти подобный макрос который бы автоматом при отправке на печать всё лишнее объявлял (делал) белымyeov
Добрый день. Макрос создает лист, в котором нет границ ячеек и все данные, что черным стало белым [vba]
Код
Sub Print_Only_Data() Sheets.Copy before:=Sheets(1) Sheets(1).UsedRange.Borders.LineStyle = xlNone For Each cl In Sheets(1).UsedRange.Cells If cl.Font.Color = 0 Then cl.Font.Color = 16777215 Next End Sub
[/vba]
Добрый день. Макрос создает лист, в котором нет границ ячеек и все данные, что черным стало белым [vba]
Код
Sub Print_Only_Data() Sheets.Copy before:=Sheets(1) Sheets(1).UsedRange.Borders.LineStyle = xlNone For Each cl In Sheets(1).UsedRange.Cells If cl.Font.Color = 0 Then cl.Font.Color = 16777215 Next End Sub
Пока делал sboy, уже предложил похожий вариант.. ну раз сделал то вот: [vba]
Код
Sub d() Dim r As Range, r1 As Range, c As Range Sheets("стр1").Copy After:=Sheets(1) Set r = ActiveSheet.UsedRange r.Borders.ThemeColor = 1 For Each c In r If c.Font.ColorIndex = -4105 Then If r1 Is Nothing Then Set r1 = c.MergeArea Else Set r1 = Union(c.MergeArea, r1) Next r1.ClearContents End Sub
[/vba] Отличие от варианта sboy, в том что границы не удаляются а заливаются белым цветом - как результат не будет смещения, ну и немного шустрее работает .
Еще вариант - создает копию листа, но с формулами на предыдущий лист. Теперь можно менять данные на 1-м листе и они будут сразу меняться на втором. [vba]
Код
Sub d() Dim r As Range, r1 As Range, c As Range
Set r = ActiveSheet.UsedRange Sheets("стр1").Copy After:=Sheets(1)
r.Borders.ThemeColor = 1 For Each c In r If c.Font.ColorIndex = -4105 Then If r1 Is Nothing Then Set r1 = c.MergeArea Else Set r1 = Union(c.MergeArea, r1) Next r1.ClearContents End Sub
[/vba] вложение 2а ЗЫ нужно сначала нажать на кнопку.
Пока делал sboy, уже предложил похожий вариант.. ну раз сделал то вот: [vba]
Код
Sub d() Dim r As Range, r1 As Range, c As Range Sheets("стр1").Copy After:=Sheets(1) Set r = ActiveSheet.UsedRange r.Borders.ThemeColor = 1 For Each c In r If c.Font.ColorIndex = -4105 Then If r1 Is Nothing Then Set r1 = c.MergeArea Else Set r1 = Union(c.MergeArea, r1) Next r1.ClearContents End Sub
[/vba] Отличие от варианта sboy, в том что границы не удаляются а заливаются белым цветом - как результат не будет смещения, ну и немного шустрее работает .
Еще вариант - создает копию листа, но с формулами на предыдущий лист. Теперь можно менять данные на 1-м листе и они будут сразу меняться на втором. [vba]
Код
Sub d() Dim r As Range, r1 As Range, c As Range
Set r = ActiveSheet.UsedRange Sheets("стр1").Copy After:=Sheets(1)
r.Borders.ThemeColor = 1 For Each c In r If c.Font.ColorIndex = -4105 Then If r1 Is Nothing Then Set r1 = c.MergeArea Else Set r1 = Union(c.MergeArea, r1) Next r1.ClearContents End Sub
[/vba] вложение 2а ЗЫ нужно сначала нажать на кнопку.SLAVICK
Макрос менять не нужно, а вот Ваш файл - нужно. Поменяйте цвет шрифта, который нужно оставить. Макрос очищает все ячейки с черным цветом шрифта.
Макрос менять не нужно, а вот Ваш файл - нужно. Поменяйте цвет шрифта, который нужно оставить. Макрос очищает все ячейки с черным цветом шрифта.SLAVICK