¿Cómo imprimir todas las reglas de formato condicional en una hoja de trabajo?
Es fácil ver todas las reglas de formato condicional en una hoja de trabajo haciendo clic en Inicio > Formato condicional > Administrar reglas en Excel, pero ¿sabe cómo imprimir todas las reglas de formato de condición en esta hoja de trabajo? Este artículo presentará un VBA para resolver este problema.
Imprima todas las reglas de formato condicional en una hoja de trabajo
Imprima todas las reglas de formato condicional en una hoja de trabajo
Siga los pasos a continuación para imprimir todas las reglas de formato condicional en una hoja de trabajo de VBA.
1. Abra la hoja de trabajo especificada cuyas reglas de formato condicional imprimirá y presione otro + F11 teclas juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Hacer clic recuadro > Móduloy luego pegue debajo del código VBA en la nueva ventana del módulo.
VBA: enumere todas las reglas de formato condicional en la hoja de trabajo activa
Sub M_snb()
Dim xRg As Range, xCell As Range
Dim xFormat As Object
Dim xFmStr, xFmAddress As String
Dim xDic As New Dictionary
Dim xSpArr, xOperatorArr
On Error Resume Next
Set xRg = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
If xRg Is Nothing Then Exit Sub
xDic.Item("Title") = "Type|Typename|Range|StopIfTrue|Operator|Formula1|Formula2|Formula3"
If xSpArr.Count = 0 Then
xSpArr = Split("Cell Value|Expression|Color Scale|DataBar|Top 10|Icon Sets||Unique Values|Text|Blanks|Time Period|Above Average||No Blanks||Errors|No Errors|||||", "|")
xOperatorArr = Split("xlBetween|xlNotBetween|xlEqual|xlNotEqual|xlGreater|xlLess|xlGreaterEqual|xlLessEqual", "|")
End If
For Each xCell In xRg
Set xFormat = xCell.FormatConditions(1)
xFmAddress = xFormat.AppliesTo.Address
If Not xDic.Exists(xFmAddress) Then
xDic.Item(xFmAddress) = xFormat.Type & "|" & xSpArr(xFormat.Type - 1) & "|" & xFmAddress & "|" & xFormat.StopIfTrue
If Not IsEmpty(xFormat.Operator) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|" & xOperatorArr(xFormat.Operator - 1)
End If
If Not IsEmpty(xFormat.Formula1) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|'" & xFormat.Formula1
End If
End If
Next
If ActiveWorkbook.Worksheets("FmCondictionList") Is Nothing Then
Sheets.Add.Name = "FmCondictionList"
End If
Sheets("FmCondictionList").Cells(1).Resize(xDic.Count) = Application.Transpose(xDic.items)
Sheets("FmCondictionList").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"
End Sub
3. Hacer clic Herramientas > Referencias.
4. En el cuadro de diálogo Referencias - VBAProject, marque la casilla Tiempo de ejecución de secuencias de comandos de Microsoft opción, y haga clic en OK botón. Ver captura de pantalla:
5. Ahora regresa a la ventana del módulo, presione F5 o haga clic en el Ejecutar botón para ejecutar este VBA.
Ahora, una nueva hoja de trabajo llamada "FmCondtionalList”Se crea y agrega antes de la hoja de trabajo activa. Y obtendrá todas las reglas de formato condicional enumeradas en esta hoja de trabajo.
6. Hacer clic Archive > Imprimir > Imprimir para imprimir la lista de reglas de formato condicional.
Artículos relacionados:
¿Cómo imprimir áreas, selección y libro de trabajo completo en Excel rápidamente?
¿Cómo imprimir cada fila / celda en una página separada en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!