Preguntas sobre programación VBA

<'

' Macro1 Macro

' Tiempo de grabación de macro: 2008-9-23

'

'

'Este párrafo es para garantizar que las filas vacías se ordenen y verifiquen a partir de filas. Clave de clasificación 1:=Celda activa, Orden 1:=xlAscendente, Encabezado:=xlGuess, _

Orden personalizada:=1, MatchCase:=False, Orientación:=xlDe arriba a abajo, Método de clasificación _

:= xlPinYin, DataOption1:=xlSortNormal

'''''''''''''''''''''''

Rango (" A6").Select

'monchange se utiliza para determinar si hay un cambio en el mes, True significa que hay un cambio, False significa que no hay cambios

monchange = False

'Salir cuando se llegue a la primera fila

Hacer hasta ActiveCell.Row = 1

'Si el mes cambia, ejecuta el siguiente bucle

Hacer mientras monchange

monaver = montotal / countday

'Rellenar datos en la columna FGH

Celdas.(targetrow, 6).Value = ActiveCell.Offset (1, -1).Valor

Celdas(fila de destino, 7).Valor = mon5daver

Celdas(fila de destino, 8).Valor = monaver

targetrow = targetrow 1

countday = 0

montotal = 0

monchange = False

Bucle

countday = countday 1

montotal = montotal ActiveCell.

Si countday = 5 Entonces

mon5daver = montotal / 5

Fin Si

ActiveCell.Offset(-1, 0).Range("A1".A1").(ActiveCell.Offset(1, -1).Value) = currmon, False, True)

Bucle

Rango("F6").Seleccionar

Rango(Selección, Selección.End(xlDown )).Seleccionar

Rango(Selección, ActiveCell.Offset(0, 2)).Seleccione

Selección.Clave de clasificación 1:=ActiveCell.Offset(1,-1).

Clave de clasificación 1:=Celda activa, Orden 1:=xlAscendente, Encabezado:=xlGuess, _

Orden personalizada:=1, MatchCase:=False, Orientación:=xlDe arriba a abajo, Método de clasificación _

:= xlPinYin, OpciónDatos1:=xlSortNormal

Selección.

Hojas.Agregar

ActiveSheet.Paste

End Sub