消費(fèi)小組創(chuàng)造產(chǎn)物，不行制止要耗費(fèi)動(dòng)力，囊括百般原資料，即使對(duì)那些動(dòng)力及源資料舉行有理統(tǒng)計(jì)，那么對(duì)于產(chǎn)物的產(chǎn)出就有了一個(gè)明顯的領(lǐng)會(huì)，是計(jì)劃層最想領(lǐng)會(huì)的消息，統(tǒng)計(jì)就顯得尤為要害。

本節(jié)就以材料耗費(fèi)為主創(chuàng)造一個(gè)統(tǒng)計(jì)表，辨別對(duì)每天的材料舉行統(tǒng)計(jì)，囊括電、氣、水之類(lèi)。

其功效是實(shí)行消息錄入，月表生存，打字與印刷，以及月度統(tǒng)計(jì)等操縱。

簡(jiǎn)直可參考下圖：

消息錄入，按照每天錄入一次，采用部分，機(jī)動(dòng)挑選出要錄入的小組消息。

個(gè)中有少許數(shù)據(jù)計(jì)劃，這邊不做引見(jiàn)了，因?yàn)槊總€(gè)本質(zhì)消費(fèi)情景各別，計(jì)劃公式要相映竄改。

如次統(tǒng)計(jì)因變量：

Private Function GetEtCount(tObjName As String) As Double Dim s As Worksheet, R As Range, Rx As Range Set s = ThisWorkbook.Worksheets("樹(shù)立") Set R = s.Range("C2:C20") Set Rx = R.Find(tObjName) If Not Rx Is Nothing Then GetEtCount = Rx.Offset(0, 1).Value Else GetEtCount = 1 End If Set s = Nothing Set R = Nothing Set Rx = NothingEnd Function按照ComboBox控件的值來(lái)采用Pages頁(yè)，舉行而對(duì)個(gè)中的TextBox舉行數(shù)據(jù)計(jì)劃。而后增添到表中相映場(chǎng)所。

Private Sub CommandButton1_Click()If VBA.Len(VBA.Trim(Me.ComboBox2.Value)) = 0 Then Exit SubDim ic()Select Case Me.ComboBox1.ListIndex Case 0 '部分 ic = Array(6, 5, 0, 7) '電列號(hào),水,蒸氣,自然氣 Case 1 ic = Array(12, 11, 13) ' Case 2 ic = Array(18, 17) ' Case 3 ic = Array(24, 0, 25)End SelectDim R As RangeDim xC As IntegerFor xC = 0 To UBound(ic) If ic(xC) <> 0 Then Set R = Cells(Me.ComboBox2.Value + 5, ic(xC)) R = GetPagesValueSum(xC) End IfNext xCThisWorkbook.SaveMsgBox "增添勝利！", vbInformation, "提醒"Set R = NothingEnd Sub本來(lái)，實(shí)行進(jìn)程很攙雜，看上創(chuàng)造了一個(gè)大略表，本質(zhì)上須要商量很多論理思緒，惟有論理通了，也就實(shí)行了機(jī)動(dòng)化操縱。

歡送關(guān)心、保藏

---END---

專(zhuān)題推薦：

江門(mén)回收廢鋁

江門(mén)回收廢銅

江門(mén)回收廢鐵

江門(mén)回收廢紙

江門(mén)廢紙回收

江門(mén)廢塑料回收

江門(mén)廢銅回收

江門(mén)廢鋁回收

江門(mén)廢鐵回收

中山廢品回收

廣東廢品回收

江門(mén)廢品回收

江門(mén)起重機(jī)安裝

江門(mén)廢品站