前言

工具作为一个技术人员来说就是吃饭的保障，没有工具什么都做不成，哪怕你技术再好。

就像华为一样，有设计有产品技术，但是没有光刻机，照样不能生产高端芯片。

工具在科技生产当中是个瓶颈，是无法逾越的关卡。

好的工具可能制造出优秀的产品，没有工具就会回到原始社会。

不管是思想多么先进，技术多么超前，都归零。

开场说这些，主要为了引入正题，工具管理。

这个例子只列出了生产当中用到的一些普通工具，当然了，如果你所在行业比较特殊，也可以添加，没有什么问题。

工具记录表

表内清楚地记录了工具的编号、名称、数量、使用人、新增日期、使用情况等等。

如果可以，随便加更多字段信息，比如工具型号，采购金额等。

设置表

上面说的添加信息就在设置表里操作，比如要添加一个工具型号，直接增加一列，添加型号就可以，十分方便。

设置表主要是为后面添加信息做初始化服务。

图表

这里可直观看到工具的数量情况，也算是个基本统计。

至于可用工具和报废工具情况，没做，写到这里才想到没做，没关系，后面再补做一个图即可。

工具管理

管理页打开后有四个按钮，单击操作即可。

新增工具，直接列出了设置表里的内容，没有的直接添加。

另外还有一个报废管理，工具嘛总会损坏的时候，这里可以进行报废处理，以旧换新等设置。

总体上就是这个思路，其实在工作当中，对于工具的管理并没有执行，有什么工具心里有个数就行了。

至于大型企业也许会做这样的管理，一般小型企业大概真的没有。

不知道做这个有没有用，但是对于一些十分细心的人来说，想必工具也会清点的清清楚楚吧！

好了，就说到这里，下面看一下代码。

代码片段

'工具报废处理代码
Private Sub CommandButton1_Click()
Dim Tx As String
Tx = VBA.Trim(Me.TextBox1.Value)
If VBA.Len(Tx) = 0 Then Exit Sub
Dim n As Integer
n = Me.ListView1.ListItems.Count
If n <= 0 Then Exit Sub
Dim Dv As String
Dim w As Worksheet
Set w = ThisWorkbook.Worksheets("维修工具")
Dim R As Range, Rx As Range, iRow As Integer
iRow = w.Range("B65535").End(xlUp).Row
Set R = w.Range("B2:B" & iRow)
Dim xx As Object
For Each xx In Me.ListView1.ListItems
    If xx.Selected Then
        Dv = xx.SubItems(1)
        If VBA.Len(Dv) = 0 Then Exit Sub
        For Each Rx In R
            If Rx.Value = Dv And w.Cells(Rx.Row, 8).Value <> "报废" Then
               w.Cells(Rx.Row, 8).Value = "报废"
               MsgBox Rx.Value & "报废成功！"
               Exit For
            End If
        Next Rx
    End If
Next xx
End Sub

提示

视频演示可单击下面更多链接