¿Cómo imprimir todas las reglas de formato condicional en una hoja de cálculo?

Por favor, sigue los siguientes pasos para imprimir todas las reglas de formato condicional en una hoja de cálculo mediante VBA.

1. Abre la hoja de cálculo específica cuyas reglas de formato condicional deseas imprimir y presiona las teclas Alt + F11 juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en la nueva ventana del módulo.

VBA: Enumerar todas las reglas de formato condicional en la hoja de cálculo 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. Haz clic en Herramientas > Referencias.
Referencias" />

4. En el cuadro de diálogo Referencias – VBAProject, por favor marca la opción Microsoft Scripting Runtime opción, y haz clic en el botón Aceptar botón. Ver captura de pantalla:

5. Ahora regresas a la ventana del módulo, por favor presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar este VBA.

Ahora se crea y añade una nueva hoja de cálculo llamada “FmCondtionalList” antes de la hoja de cálculo activa. Y obtendrás todas las reglas de formato condicional listadas en esta hoja de cálculo.

6. Haz clic en Archivo > Imprimir > Imprimir para imprimir la lista de reglas de formato condicional.

¿Cómo imprimir áreas, selección y todo el libro de trabajo en Excel rápidamente?

¿Cómo imprimir cada fila/celda en una página separada en Excel?