Как распечатать лист с кругами проверки данных в Excel?
В некоторых случаях мы обводим недопустимые данные кружками, чтобы выделить их, но при печати листа эти круги не отображаются. Сталкивались ли вы с такой проблемой в Excel? Сегодня я покажу вам несколько простых способов её решения.
Печать листа с кругами проверки данных путём вставки их как изображения
Печать листа с кругами проверки данных с помощью кода VBA
Печать листа с кругами проверки данных путём вставки их как изображения
В Excel нельзя напрямую распечатать круги проверки данных, но вы можете скопировать диапазон с такими кругами как изображение и затем отправить его на печать.
1. Выделите диапазон данных, круги которого вы хотите распечатать.
2. Нажмите клавиши Ctrl + C на клавиатуре, чтобы скопировать выделенное. Затем перейдите на новый лист, щёлкните по любой ячейке правой кнопкой мыши и выберите Вставить специально > Изображение. См. снимок экрана:
3. Теперь выделенная область вставлена как изображение, и при печати новый лист с кругами будет успешно распечатан.
Печать листа с кругами проверки данных с помощью кода VBA
Если вам не нравится вставлять диапазон данных как изображение, на помощь придёт следующий код VBA.
1. После настройки проверки данных нажмите и удерживайте клавиши Alt + F11 в Excel, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Затем нажмите Вставка > Модуль и вставьте следующий макрос в окно Модуль.
Код VBA: добавление красных кругов вокруг недопустимых данных
Sub AddValidationCirclesForPrinting()
'Update 20140724
Dim Rng As Range
Dim WorkRng As Range
Dim xCount As Integer
Dim xShape As Shape
On Error Resume Next
Set WorkRng = Application.ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
If WorkRng Is Nothing Then
Exit Sub
End If
xCount = 0
For Each Rng In WorkRng
If Not Rng.Validation.Value Then
Set xShape = Application.ActiveSheet.Shapes.AddShape(msoShapeOval, Rng.Left - 2, Rng.Top - 2, Rng.Width + 4, Rng.Height + 4)
xShape.Fill.Visible = msoFalse
xShape.Line.ForeColor.SchemeColor = 10
xShape.Line.Weight = 1.25
xCount = xCount + 1
xShape.Name = "InvalidData_" & xCount
End If
Next
Exit Sub
End Sub
3. Затем нажмите клавишу F5, чтобы выполнить этот код — недопустимые данные будут обведены красным овалом (см. снимок экрана):
4. При печати этого листа красные круги также будут распечатаны.
Примечание:
Этот код VBA создаёт круги, которые не удаляются стандартной функцией Excel Очистить круги проверки. Если вы хотите удалить такие круги, используйте приведённый ниже код.
Код VBA: удаление кругов проверки данных на листе
Sub RemoveValidationCircles()
'Update 20140724
Dim xShape As Shape
For Each xShape In Application.ActiveSheet.Shapes
If xShape.Name Like "InvalidData_*" Then
xShape.Delete
End If
Next
End Sub
Связанная статья:
Как в Excel обвести ячейки с недопустимыми данными?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек