excel表格系统管理教程 工具管理Excel表格制作方法

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

'工具报废处理代码 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

提示

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

,