Código de programación Wordvba

¿Atenuado? ¿I? ¿Como? Bytes

¿Para qué? ¿I? =?2?¿Adónde ir? 150? Ciclos de 2 a 150.

ActiveCell. rango("A1:C1"). ¿elegir? Seleccione tres celdas cuyos vértices sean la celda actualmente activa.

Seleccionar. ¿Autocompletar? destino:=CeldaActiva. Rango("A1:C27 "),? Tipo:=? _

xlFillCopy '? Rellenar automáticamente celdas objetivo, esquema

ActiveCell. rango("A1:C27"). ¿elegir? Seleccione tres celdas.

Ventana activa. ¿Pequeño pergamino? Abajo:=-45 grados

ActiveCell. desplazamiento(0,?5).rango("A1"). ¿elegir? La unidad A1 se mueve 5 unidades lateralmente hacia la derecha.

ActiveCell. ¿Fórmula 1C1? =?" =IZQUIERDA(RC[-1],5)"? Ingrese la fórmula a la izquierda de la celda de desplazamiento seleccionada (el rango de valores es 1 celda de desplazamiento horizontal a la izquierda y el número es 5).

ActiveCell. ¿elegir? Celdas seleccionadas

Seleccionar. ¿Autocompletar? destino:=CeldaActiva. Rango("A1:A27 "),? Tipo:=? _

xlFillDefault? Rellene automáticamente las celdas de destino con el formato inicial.

ActiveCell. rango("A1:A27"). ¿elegir? ? A1:A27 con la celda activa como vértice? Región

Ventana Actividad. ¿Pequeño pergamino? Abajo:=-30 '¿Desplazarse hacia arriba? Línea 30

ActiveCell. desplazamiento(0,?1).rango("A1"). ¿elegir? Mueve la celda actualmente activa una columna hacia la derecha.

ActiveCell. ¿Fórmula 1C1? =?" =DERECHA(RC[-2],5)"? ¿La fórmula de la celda actualmente activa es igual a? =derecha(Mover la celda actual hacia la izquierda 2 columnas hasta la celda correspondiente, 5)

ActiveCell. Escoger

Seleccionar. ¿Autocompletar? destino:=CeldaActiva. Rango("A1:A27 "),? Tipo:=? _

xlFillDefault

ActiveCell. rango("A1:A27"). Seleccione

la ventana activa. ¿Pequeño pergamino? Abajo:=-9

ActiveCell. desplazamiento(27,?-6).rango("A1"). Seleccione

la ventana activa. ¿Pequeño pergamino? Abajo:=-21

Entonces

¿finalizar? Submarino

¿Hay algo más que no entiendas? ¿además? 191180776 te lo dice.