Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo usar vba para hacer una factura

Cómo usar vba para hacer una factura

Se recomienda usar WORD para componer la factura y luego usar la función de combinación de correspondencia para obtener los datos en la tabla EXCEL, de modo que pueda generarlos fácilmente en lotes sin usar VBA.

La siguiente es la operación cuando se usa VBA

Se proporciona el código fuente de los tres botones:

1. Sub monto total()

¿Dim?i?As?Integer

Dim?k?As?Integer

Dims

Fori?Integer

Dim ?k ?As?Entero

Atenúa

Fori?=?6?A?13

lf?Range("b"? amp;?i) ?lt ;gt;""?And?Range("c"? amp;?i)lt;gt;?""?And?Range("d"? amp;?i)lt;gt;?"" Entonces

For?k?=?1?To?Len(Range("d"? amp;?i)?*?Range("e"? amp;?i)?*?100)

Celdas(i,?13?k?-?Len(Rango("d"?&?i)*?Rango("e"?&?i)?*100))=?Medio ( Rango("d"? amp;?i)Rango("e"? amp;?i)?*?100,k,1)

Siguiente

Fin?* ? Rango("e"? amp;?i)

Siguiente

Rango("f14")=?s

Fin?Sub

2. Subrefacturación()

Rango("b2：b3").ClearContents

Rango("g2：g3")= ""

Rango("b15")? =?""

Rango("b16").ClearContents

Rango("f16").ClearContents

Range("b6：n13").ClearContents

Range("f14") = ""

Rango("g2")=?Now?*?G/Formato genérico "

Rango("g3")? =?Fecha

Fin?Sub

3, Sub**ThisSingle()

Rango ("a1：m17").Vista previa de impresión

¿Fin?

上篇: Dónde mostrar el código de pago QQ 下篇: ¿Cómo encontrar el dominio de 2x-x al cuadrado? Por cierto, ayúdame a calcular el siguiente sistema de ecuaciones: A+D = AQ1A+2D = AQ al cuadrado②.

Artículos populares