Red de conocimiento informático - Programación de la red - Pregúntale al maestro: ¿Cómo "combinar dos fragmentos de código en uno" en Excel VBA? ¡Gracias! !

Pregúntale al maestro: ¿Cómo "combinar dos fragmentos de código en uno" en Excel VBA? ¡Gracias! !

Acción de envío de SMS subescolar ()

Para Z = 199 a 201 paso 1

[q1] = Z

Continúe con el siguiente paso si se produce un error ocurre

VBA . mkdir(" C:\users\administrator\desktop/school newsletter send")

Aplicar. ScreenUpdating = False

biao = range(" A1 "). valor

Establecer sh = ActiveSheet

Establecer wb = Libros de trabajo. Añadir

Papel ("Papel 2"). Seleccione

la ventana activa. Hoja de trabajo seleccionada. Eliminar

papel ("Papel 3"). Seleccione

la ventana activa. Hoja de trabajo seleccionada. Eliminar

Hoja("Hoja1"). Nombre=彪

wb. Zhang(1). Rango("A1:I71") = sh. rango("B45:J115"). valor

wb. Zhang(1). Rango("J1:N71") = sh. rango("K45:O115"). Valor

Para I = 15 a 1 paso -1

Si Left(Cells(1,I),2) = "sujetos", entonces Columns(I).Delete.

Entonces

wb. hojas (1). rango usado. altura de fila = 18

wb. hojas (1). rango usado. ancho de columna = 6

WB guardar como " c:\users\administrator\desktop\school newsletter send\";shilling[r 12]&".xlsX "<. /p>

wb. Cerrar

Aplicación. Espere (ahora valor de tiempo (" 0:00:01 "))

Aplicar. ScreenUpdating = True

Entonces

Finalizar adaptación