Excel usa programación VBA para crear tablas

Sub?usa()

¿Dim?BoR,?WokeR

¿Dim?WorkLike,?Area,?Weight,?AllArea,?AllWeight,?AllBo

¿Dim?LikeID(),?LikeIDst(),?LikeIDwi()

ReDim?LikeID(9)

LikeIDst()?=?Array( 1,?3,?5,?9,?13,?17,?19,?20,?21,?24)

Me gustaIDwi()?=?Array(2,?2,? 2,?4,?4,?2,?1,?1,?3,?3)

For?j?=?1?To?2 AllBo?=?0:?AllArea? =?0:?AllWeight?=?0 BoR?=?Sheets("Codificación").Cells(65536,?j).End(3).Row WorkLike?=?Left(Sheets("Codificación").Cells( 1,?j),?2)

If?Sheets(WorkLike?&?"Plan de producción").[B65536].End(3).Fila?>?5?Then

Hojas(WorkLike?&?"Plan de producción").Filas("6:"?&?Hojas(WorkLike?&?"Plan de producción").[B65536].End(3).Row).Eliminar fin ?If Sheets(WorkLike?&?"Production Plan").Range("A6:E6")?=?"" For?k?=?2?To?BoR

WokeR ?=?Sheets (WorkLike?&?"Plan de producción").[B65536].End(3).Row?+?1

Con?Sheets("Codificación") For?i?= ?0?To? UBound(LikeID())

LikeID(i)?=?Mid(.Cells(k,?j),?LikeIDst(i),?LikeIDwi(i)) Siguiente

Fin?Con

Con?Hojas(WorkLike?&?"Plan de producción") .[C4]?=?Formato(Ahora(),?"Fecha: aaaa Año mm mes dd día hh hora mm minuto aaaa") .Rows(WokeR).Insert?Shift:=xlDown .Cells(WokeR,?2)?=?Application.WorksheetFunction.VLookup(LikeID(1),?Sheets(" Color").Range("A :B"),?2,?0)?&?"?"?&?_

¿Me gusta(2)?*?1?&?"-" ?&?Me gustaID(3)? *?1?&?"*"?&?Me gustaID(4)?*?1?&?"/"?&?Me gustaID(8)?*?1?&?"? "?&?_

Application.WorksheetFunction.VLookup(LikeID(5),?Sheets("Rank").Range("A:B"),?2,?0)?&?" ?"?&?_

Application.WorksheetFunction.VLookup(LikeID(6),?Sheets("Packaging").Range("A:B"),?2,?0)?&?

>

"/"?&?Application.WorksheetFunction.VLookup(LikeID(7),?Sheets("Capa de aislamiento").Range("A:B"),?2,?0) .Cells(WokeR, ?3)?=?LikeID(9)?*?1 AllBo?=?AllBo?+?LikeID(9)?*?1 Área?=?LikeID(3)?/?1000?*?LikeID(4)? /?1000 AllArea?=?AllArea?+?Area?*?LikeID(8)?*?LikeID(9) ¿Peso?=?LikeID(2)?/?1000?*?LikeID(3)?/?1000? *?LikeID(4)?/?1000?*?2.5 AllWeight?=?AllWeight?+?Weight?*?LikeID(8)?*?LikeID(9) .Cells(WokeR?+?1,?1)? =?"Total:" .Cells(WokeR?+?1,?3)?=?AllBo .Cells(WokeR?+?1,?4)?=?"Total: "?&?Toda el Área?&?"㎡ ?Peso neto"?&?Formato(AllWeight,?"0.00")?&?"ton"

Fin?Con Siguiente

Siguiente

Fin? Sub

Después de esperar un día, no hubo respuesta desde el primer piso. ¿Está listo el primer piso? Picazón en las manos. Lo entregué primero.

Además, cambié el formato de la tabla, ¿está bien?

Además, ¿encerraste mal el grosor o lo escribiste mal? Espesor de 600 mm. ¿Alguien produce un vidrio tan grueso?

Por cierto, considerando el desarrollo de una fábrica y los requisitos de los clientes, no solo producirá estos grados y especificaciones, etc., los he dividido en tablas separadas y se pueden completar. automáticamente siempre que se agregue el contenido.

Además, ¿puedo conseguir puntos extra? Fue bastante difícil escribir.