Note: The other languages of the website are Google-translated. Back to English

¿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

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derechaImprima 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 Declarar impuestos > Imprimir > Imprimir para imprimir la lista de reglas de formato condicional.


flecha azul burbuja derechaArtículos relacionados:


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (8)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
esto no funciona. Crea la pestaña pero no completa la información de formato condicional
Este comentario fue minimizado por el moderador en el sitio
Para mí, creó una pestaña y rellenó la información, sin embargo, excluía gran parte del formato condicional que no estaba incluido. En el momento en que lo ejecuté, tenía 112 reglas de formato condicional configuradas, pero solo se mostraban 8 registros en la pestaña.
Este comentario fue minimizado por el moderador en el sitio
Lo mismo para mí: solo mostró 7 de las 14 reglas de formato condicional. ¿Hay alguna solución para eso?
Este comentario fue minimizado por el moderador en el sitio
Esto funciona muy bien, pero ¿hay alguna forma de obtener un bucle que incluya todas las pestañas?
Este comentario fue minimizado por el moderador en el sitio
L'algo est mauvais, il n'y a pas de boucle pour couvrir les cas ou un range aurait plusieurs format conditionnels.
Este comentario fue minimizado por el moderador en el sitio
Lamentablemente no funciona (excel 2013).
Este comentario fue minimizado por el moderador en el sitio
¡Funciona bien!
Solo dos notas con respecto a los comentarios anteriores:
* Se debe agregar Microsoft Scripting Library; de lo contrario, 'Dim xDic As New Dictionary' no se puede interpretar
* Si tiene más de 1 regla definida en el mismo rango, solo se enumerará la primera (el shell de código se extenderá con un ciclo de 1 a xCell.FormatConditions.Count)

¡Muchas gracias!
Este comentario fue minimizado por el moderador en el sitio
Con respecto al comentario de @Eagle, modifiqué el código para pasar a 'xCell.FormatConditions.Count' y recuperé más condiciones de formato, pero no todas.
Parece que este cambio agrega los formatos en diferentes rangos para la misma celda, pero no los mismos rangos con diferentes formatos para la misma celda.
Todavía no estoy tan familiarizado con el código que extraería estos formatos adicionales.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL