前沿拓展：

ubound

a是數(shù)組，ubound是取數(shù)組下標(biāo)上界的函數(shù)，還有另外一個(gè)相關(guān)函數(shù)lbound，是取數(shù)組下標(biāo)下界的函數(shù)。

取數(shù)組的上下標(biāo)，或者說(shuō)數(shù)組橫向、縱向各有多少的個(gè)值；

假設(shè)一個(gè)數(shù)組：arr （a1,a2,b1,b2,c1,c2)

a = UBound(arr, 1) 第二個(gè)參數(shù)=1，表示取數(shù)組的縱向有多少個(gè)值，a=3

b = UBound(arr, 2) 第二個(gè)參數(shù)=2，表示取數(shù)組的橫向有多少個(gè)值，b=2

在VB中，史生面盾葉濟(jì)題刑過(guò)山色注釋有2種方式。

1、以Rem關(guān)鍵字開(kāi)頭，并且Rem下?lián)艉蚱绽l滿關(guān)鍵字與注釋內(nèi)容之間要加一個(gè)空格。水學(xué)該注釋可以是單獨(dú)的一行，也可以寫在其他語(yǔ)句行的后面。如果在其他語(yǔ)句行后使用Rem關(guān)鍵字，則必須使用冒號(hào)（:）與語(yǔ)句隔開(kāi)。

2、食主速飛觀對(duì)蒸斤切使用一個(gè)撇號(hào)（'）來(lái)代替Rem關(guān)鍵字。若使用撇號(hào)，則在其他語(yǔ)句行使用時(shí)不必加冒號(hào)。

以上內(nèi)容六答集奏李思排狀構(gòu)參考：百度百科-Visual Basic

勞動(dòng)密集性企業(yè)有一個(gè)很重要的工資結(jié)算方法，那就是計(jì)件工資。

對(duì)于一些人員崗位不固定，計(jì)件金額不固定等情況下，工資的計(jì)算是一個(gè)十分麻煩的事情。

本文將介紹一個(gè)計(jì)件工資統(tǒng)計(jì)結(jié)算的解決方法。

上圖為**作主頁(yè)

幾個(gè)功能按鈕，和一個(gè)列表框，列表框內(nèi)是分別不同生產(chǎn)線或者車間單元工作表。

這里制作了一個(gè)自動(dòng)生成工作表的功能，如下圖所示：

由于員工不是固定的，工作步序也不是固定的，如休實(shí)現(xiàn)不同工段，日期和生產(chǎn)型號(hào)款式進(jìn)行人員添加，最終形成生產(chǎn)工資結(jié)算表。

新建工資表實(shí)際上是窗體中的一些信息，進(jìn)行工作表的構(gòu)建過(guò)程。

根據(jù)窗體表單中各控件的值，進(jìn)行工作表內(nèi)容的添加**作，重點(diǎn)問(wèn)題在于對(duì)于工作表的不同單元格準(zhǔn)確**，并做一些公式添加和合并等。

最終效果如下圖所示：

根據(jù)生成的結(jié)算表，我們將統(tǒng)計(jì)出某人在不同工段的生產(chǎn)工作，自動(dòng)計(jì)算出其某月的工資。

如下圖所示：

這樣，就把非固定人員在非固定崗位進(jìn)行的工作準(zhǔn)確地統(tǒng)計(jì)出來(lái)了，解決了計(jì)件工資統(tǒng)計(jì)工作的一個(gè)麻煩。

十分適用于人員流動(dòng)性大，工序復(fù)雜的工廠進(jìn)行工資結(jié)算。

代碼：

Private Sub SelectSheetList(xSheet As Worksheet, xStr As String)
'查詢姓名 款式表內(nèi)容
Application.ScreenUpdating = False
Dim s As Worksheet
Set s = ActiveSheet
Dim xArr, xi As Long
Dim ir As Long, ic As Long, sc As Long
xArr = xSheet.Range("A1").CurrentRegion
ir = xSheet.Cells(xSheet.Rows.Count, 1).End(xlUp).Row
ic = 1
For xi = LBound(xArr, 1) To UBound(xArr, 1)
If xArr(xi, ic) = xStr Then '如果找到了
For sc = 3 To UBound(xArr, 2) – 1
If xArr(xi, sc) <> 0 Then '如果有計(jì)件
'添加計(jì)件數(shù)
s.Rows(4).Insert
s.Range("A4").Value = xSheet.Name
s.Range("B4").Value = xArr(3, sc)
s.Range("C4").Value = xArr(xi, sc)
s.Range("D4").Value = xArr(xi, sc) * xArr(4, sc)
End If
Next sc
End If
Next xi
Erase xArr
Set s = Nothing
Application.ScreenUpdating = True
End Sub

本文示例是為解決實(shí)際問(wèn)題而編寫的，不過(guò)可以根據(jù)不同工廠需求進(jìn)行擴(kuò)展應(yīng)用。

歡迎關(guān)注、收藏

—END—

拓展知識(shí)：

前沿拓展：

ubound

a是數(shù)組，ubound是取數(shù)組下標(biāo)上界的函數(shù)，還有另外一個(gè)相關(guān)函數(shù)lbound，是取數(shù)組下標(biāo)下界的函數(shù)。

取數(shù)組的上下標(biāo)，或者說(shuō)數(shù)組橫向、縱向各有多少的個(gè)值；

假設(shè)一個(gè)數(shù)組：arr （a1,a2,b1,b2,c1,c2)

a = UBound(arr, 1) 第二個(gè)參數(shù)=1，表示取數(shù)組的縱向有多少個(gè)值，a=3

b = UBound(arr, 2) 第二個(gè)參數(shù)=2，表示取數(shù)組的橫向有多少個(gè)值，b=2

在VB中，史生面盾葉濟(jì)題刑過(guò)山色注釋有2種方式。

1、以Rem關(guān)鍵字開(kāi)頭，并且Rem下?lián)艉蚱绽l滿關(guān)鍵字與注釋內(nèi)容之間要加一個(gè)空格。水學(xué)該注釋可以是單獨(dú)的一行，也可以寫在其他語(yǔ)句行的后面。如果在其他語(yǔ)句行后使用Rem關(guān)鍵字，則必須使用冒號(hào)（:）與語(yǔ)句隔開(kāi)。

2、食主速飛觀對(duì)蒸斤切使用一個(gè)撇號(hào)（'）來(lái)代替Rem關(guān)鍵字。若使用撇號(hào)，則在其他語(yǔ)句行使用時(shí)不必加冒號(hào)。

以上內(nèi)容六答集奏李思排狀構(gòu)參考：百度百科-Visual Basic

勞動(dòng)密集性企業(yè)有一個(gè)很重要的工資結(jié)算方法，那就是計(jì)件工資。

對(duì)于一些人員崗位不固定，計(jì)件金額不固定等情況下，工資的計(jì)算是一個(gè)十分麻煩的事情。

本文將介紹一個(gè)計(jì)件工資統(tǒng)計(jì)結(jié)算的解決方法。

上圖為**作主頁(yè)

幾個(gè)功能按鈕，和一個(gè)列表框，列表框內(nèi)是分別不同生產(chǎn)線或者車間單元工作表。

這里制作了一個(gè)自動(dòng)生成工作表的功能，如下圖所示：

由于員工不是固定的，工作步序也不是固定的，如休實(shí)現(xiàn)不同工段，日期和生產(chǎn)型號(hào)款式進(jìn)行人員添加，最終形成生產(chǎn)工資結(jié)算表。

新建工資表實(shí)際上是窗體中的一些信息，進(jìn)行工作表的構(gòu)建過(guò)程。

根據(jù)窗體表單中各控件的值，進(jìn)行工作表內(nèi)容的添加**作，重點(diǎn)問(wèn)題在于對(duì)于工作表的不同單元格準(zhǔn)確**，并做一些公式添加和合并等。

最終效果如下圖所示：

根據(jù)生成的結(jié)算表，我們將統(tǒng)計(jì)出某人在不同工段的生產(chǎn)工作，自動(dòng)計(jì)算出其某月的工資。

如下圖所示：

這樣，就把非固定人員在非固定崗位進(jìn)行的工作準(zhǔn)確地統(tǒng)計(jì)出來(lái)了，解決了計(jì)件工資統(tǒng)計(jì)工作的一個(gè)麻煩。

十分適用于人員流動(dòng)性大，工序復(fù)雜的工廠進(jìn)行工資結(jié)算。

代碼：

Private Sub SelectSheetList(xSheet As Worksheet, xStr As String)
'查詢姓名 款式表內(nèi)容
Application.ScreenUpdating = False
Dim s As Worksheet
Set s = ActiveSheet
Dim xArr, xi As Long
Dim ir As Long, ic As Long, sc As Long
xArr = xSheet.Range("A1").CurrentRegion
ir = xSheet.Cells(xSheet.Rows.Count, 1).End(xlUp).Row
ic = 1
For xi = LBound(xArr, 1) To UBound(xArr, 1)
If xArr(xi, ic) = xStr Then '如果找到了
For sc = 3 To UBound(xArr, 2) – 1
If xArr(xi, sc) <> 0 Then '如果有計(jì)件
'添加計(jì)件數(shù)
s.Rows(4).Insert
s.Range("A4").Value = xSheet.Name
s.Range("B4").Value = xArr(3, sc)
s.Range("C4").Value = xArr(xi, sc)
s.Range("D4").Value = xArr(xi, sc) * xArr(4, sc)
End If
Next sc
End If
Next xi
Erase xArr
Set s = Nothing
Application.ScreenUpdating = True
End Sub

本文示例是為解決實(shí)際問(wèn)題而編寫的，不過(guò)可以根據(jù)不同工廠需求進(jìn)行擴(kuò)展應(yīng)用。

歡迎關(guān)注、收藏

—END—

拓展知識(shí)：