资产管理如何做，用Excel vba，很简单，你还等什么

资产管理在企事业单位都比较重视，特别是一些固定资产比较多的部门，十分需要一个详细的管理过程。

以前曾经做过一个资产管理的Excel表格，完成了80%功能，一直感觉总不是十分完美。

这次要做一个十分过得去的资产管理应用，以便应用于实际当中。

管理首页

首页分类项目基本就是这样，后续可能会增加，但也不会太多。

毕竟公司不大的话，只需要一些核心功能即可。

也和财务沟通了一下，发现这一块并不作为主要管理项目来操作，一年只进行一次。

可是，综合办公部却有这方面的需求，所以，拿来完善一下。

添加资产

添加资产页是主要页面，针对资产明细表来操作。

基本上实现了准确无误添加，下一步，做些微小修改，就可以了。

这个添加只是对表进行录入操作，实际没什么特别的地方。

资产停用

既然有新增资产，就会有停用和退出。

这方面的制作做了比较多的时间，不过经过整合，停用和退出用了一个过程来进行，省略了不少代码。

过程代码图

过程代码

Sub SetZCZT(V As String, zt As String)If VBA.Len(V) = 0 Then Exit SubDim w As WorksheetSet w = ThisWorkbook.Worksheets("资产清单")w.ActivateDim iRow As Integer, iCol As IntegeriRow = w.Range("B65535").End(xlUp).RowDim Rx As Range, R As Range, Rv As RangeSet Rx = w.Range("B2:B" & iRow)Set R = Rx.Find(V, lookat:=True)If Not R Is Nothing Then    Set Rv = w.Range("M" & R.Row)    If Rv.Value <> zt Then    If Rv.Value = "退出" Then MsgBox V & VBA.vbCrLf & "已经退出，不能操作！", vbInformation, "提示": GoTo E100        Rv.Value = zt        MsgBox V & VBA.vbCrLf & zt & "成功！", vbInformation, "提示"        ThisWorkbook.Save    Else        MsgBox V & VBA.vbCrLf & "已经" & zt & "，不用重复操作。", vbInformation, "提示"    End IfElse    MsgBox V & VBA.vbCrLf & "没有找到", vbInformation, "提示"End IfE100:Set w = NothingSet R = NothingSet Rx = NothingSet Rv = NothingEnd Sub

停用过程调用

Private Sub CommandButton4_Click()      Dim V As String, zt As String      zt = "停用"      V = VBA.UCase(VBA.Trim(Me.ComboBox1.Value))      Call SetZCZT(V, zt)      ComboBox1.Value = ""End Sub

资产转移

还有一些条件限制没有完成，后面加一些条件限制，不然，可能会出现不可知的错误。

总结

整体构架已经完成，接下来就是要对不足的地方进行细节微调，以方便操作使用。

还有就是对测试错误进行一些容错处理，不过大多所能想到的错误都已经做了处理。

不过，对于交付使用还是不很放心，因为不知道使用者会不会出现用着不方便的问题，或者不习惯等等。

软件编程和使用是两个不同的概念。

就算编程再好，使用者也是千差万别，总有一些人和你唱反调。

当然了，并不是程序做得不好，根本原因是使用者一开始就抱有一种拒绝的态度。

这个我深有体会，因为我也曾被外派学习某个软件系统使用培训，那个系统用PHP制作的 页应用，已经做到尽量完美，但在实际应用过程中，效果并不理想，为什么呢？因为，所有被培训人员当中，对于软件使用并不十分了解，更不关心软件在某些方面对工作起到些什么优势。

而我呢，作为一个码控，确实理解了软件的所有操作方法，并对整个流程很快了解。

但是，有一种如果我做决不这样做的想法。

所以，对此也不再关心。

而今，再也没有用到过那个软件，可能推广方面也没有了下文。

这就是一个脱离实际应用的应用软件。很多心血之后变成了一场空，软件给你的感觉就是既陌生又熟悉，既实际又虚无。

、收藏、转发

如果需要也可以私信，免费获取vba 源代码