Red de conocimiento informático - Conocimiento de la instalación - Solicite un fragmento de código excel vba

Solicite un fragmento de código excel vba

Aquí está el código VBA para sus necesidades:

``

Sub FormatTable()

Dim MyTable As Range

Set MyTable = Range("A1：W100") ' Si el rango de su tabla es diferente, debe modificarlo usted mismo

Utilice MyTable

' 1. Ordene por columna E en orden ascendente

.Sort key1:=.Columns("E"), order1:=xlAscending, Header:=xlYes

' 2. Inserta tres columnas después de la columna E y escribe el contenido

.Columns("E").Offset(0, 1).Resize(1, 3).Insert

.Range("F2").Value = "Monto de retiro"

.Range("G2").Value = "Saldo de cuenta"

.Range("H2").Value = "Handler"

' 3. Desde columna E Extrae el contenido de las tres columnas de FGH

.Columns("F").Offset(1, 0).FormulaR1C1 = "=RC[-1]"

.Columns("G ").Offset(1, 0).FormulaR1C1 = "=RC[-1]"

.Columns("G").Offset(1, 0).FormulaR1C1 = " =RC[-1 ]"

Con .Fuente

.Nombre = "Canción"

.Tamaño = 9

Terminar con

.Range("A4").Resize(.Rows.Count - 3, .Columns.Count).Interior.Pattern = xlSolid

'7.Pattern = xlSolid

' 7. Inserte una tabla dinámica en la Hoja2 y la fuente de datos es A1 en la Hoja1: W100

With Sheets("Sheet2").PivotTableWizard

.SourceData = MiTabla.Dirección

.PivotTableWizard = MiTabla.Dirección

.

.TableDestination = Hojas("Hoja2").Rango("A1").Dirección

.RowGrand = False

.ColumnGrand = False

.CompactLayoutRowHeader = "Fila"

.CompactLayoutColumnHeader = "Columna"

.CompactLayoutPageHeader = "Página"

Terminar con

Terminar con

End Sub

``

Este Este fragmento de código hará la mayor parte de lo que necesita, incluida ordenar, insertar columnas y completar contenido, extraer datos y cambiar los colores de la tabla.

colores, dar formato a números, cambiar fuentes y rellenos, e insertar tablas dinámicas. Este código debe modificarse ligeramente para que se ajuste a su propia tabla.

上篇: La forma correcta de remojar limón y azúcar de roca 下篇: ¿Con qué empresa firmó Li Yuchun?

Artículos populares