Как распечатать рабочий лист с кругами проверки в 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?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!