excel用VBA編程做表格

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)

LikeIDwi()?=?Array(2,?2,?2,?4,?4,?2,?1,?1,?3,?3)

For?j?=?1?To?2

AllBo?=?0:?AllArea?=?0:?AllWeight?=?0

BoR?=?Sheets("編碼").Cells(65536,?j).End(3).Row

WorkLike?=?Left(Sheets("編碼").Cells(1,?j),?2)

If?Sheets(WorkLike?&?"生產計劃單").[B65536].End(3).Row?>?5?Then

Sheets(WorkLike?&?"生產計劃單").Rows("6:"?&?Sheets(WorkLike?&?"生產計劃單").[B65536].End(3).Row).Delete

End?If

Sheets(WorkLike?&?"生產計劃單").Range("A6:E6")?=?""

For?k?=?2?To?BoR

WokeR?=?Sheets(WorkLike?&?"生產計劃單").[B65536].End(3).Row?+?1

With?Sheets("編碼")

For?i?=?0?To?UBound(LikeID())

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

Next

End?With

With?Sheets(WorkLike?&?"生產計劃單")

.[C4]?=?Format(Now(),?"日?期：yyyy年mm月dd日hh時mm分aaaa")

.Rows(WokeR).Insert?Shift:=xlDown

.Cells(WokeR,?2)?=?Application.WorksheetFunction.VLookup(LikeID(1),?Sheets("顏色").Range("A:B"),?2,?0)?&?"?"?&?_

LikeID(2)?*?1?&?"-"?&?LikeID(3)?*?1?&?"*"?&?LikeID(4)?*?1?&?"/"?&?LikeID(8)?*?1?&?"?"?&?_

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

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

"/"?&?Application.WorksheetFunction.VLookup(LikeID(7),?Sheets("隔離層").Range("A:B"),?2,?0)

.Cells(WokeR,?3)?=?LikeID(9)?*?1

AllBo?=?AllBo?+?LikeID(9)?*?1

Area?=?LikeID(3)?/?1000?*?LikeID(4)?/?1000

AllArea?=?AllArea?+?Area?*?LikeID(8)?*?LikeID(9)

Weight?=?LikeID(2)?/?1000?*?LikeID(3)?/?1000?*?LikeID(4)?/?1000?*?2.5

AllWeight?=?AllWeight?+?Weight?*?LikeID(8)?*?LikeID(9)

.Cells(WokeR?+?1,?1)?=?"合計："

.Cells(WokeR?+?1,?3)?=?AllBo

.Cells(WokeR?+?1,?4)?=?"合計："?&?AllArea?&?"㎡?凈重"?&?Format(AllWeight,?"0.00")?&?"噸"

End?With

Next

Next

End?Sub

等了壹天壹樓沒有回答。壹樓搞好了沒？手癢。我先交了。

還有，我改了表格格式，看可以不？

再說了，妳的厚度的哪個是不是圈錯了，還是打錯了。600MM的厚度。有生產這麽厚的玻璃嗎？

對了，考慮壹個工廠發展與客戶的要求，不只會生產這幾個等級和規格等，我把他們分開表了，只要增加上內容就可以自動填寫。

還有，能加分不。寫得挺辛苦的。

上一篇:小程序怎麽開發？

下一篇:請教電腦高手