资产管理在企事业单位都比较重视，特别是一些固定资产比较多的部门，十分需要一个详细的管理过程。
以前曾经做过一个资产管理的Excel表格，完成了80%功能，一直感觉总不是十分完美。
这次要做一个十分过得去的资产管理应用，以便应用于实际当中。
管理首页
首页分类项目基本就是这样，后续可能会增加，但也不会太多。
毕竟公司不大的话，只需要一些核心功能即可。
也和财务沟通了一下，发现这一块并不作为主要管理项目来操作，一年只进行一次。
可是，综合办公部却有这方面的需求，所以，拿来完善一下。
添加资产
添加资产页是主要页面，针对资产明细表来操作。
基本上实现了准确无误添加，下一步，做些微小修改，就可以了。
这个添加只是对表进行录入操作，实际没什么特别的地方。
资产停用
既然有新增资产，就会有停用和退出。
这方面的制作做了比较多的时间，不过经过整合，停用和退出用了一个过程来进行，省略了不少代码。
过程代码图
过程代码
SubSetZCZT(VAsString,ztAsString)
IfVBA.Len(V)=0ThenExitSubDimwAsWorksheetSetw=ThisWorkbook.Worksheets(资产清单)w.ActivateDimiRowAsInteger,iColAsIntegeriRow=w.Range(B).End(xlUp).RowDimRxAsRange,RAsRange,RvAsRangeSetRx=w.Range(B2:BiRow)SetR=Rx.Find(V,lookat:=True)IfNotRIsNothingThenSetRv=w.Range(MR.Row)IfRv.ValueztThenIfRv.Value=退出ThenMsgBoxVVBA.vbCrLf已经退出，不能操作！,vbInformation,提示:GoToERv.Value=ztMsgBoxVVBA.vbCrLfzt成功！,vbInformation,提示ThisWorkbook.SaveElseMsgBoxVVBA.vbCrLf已经zt，不用重复操作。,vbInformation,提示EndIfElseMsgBoxVVBA.vbCrLf没有找到,vbInformation,提示EndIfE:Setw=NothingSetR=NothingSetRx=NothingSetRv=NothingEndSub
停用过程调用
PrivateSubCommandButton4_Click()
DimVAsString,ztAsStringzt=停用V=VBA.UCase(VBA.Trim(Me.ComboBox1.Value))CallSetZCZT(V,zt)ComboBox1.Value=EndSub
资产转移
资产转移也是一项常用的功能，也做了一些相对多的代码编辑。
还有一些条件限制没有完成，后面加一些条件限制，不然，可能会出现不可知的错误。
总结
整体构架已经完成，接下来就是要对不足的地方进行细节微调，以方便操作使用。
还有就是对测试错误进行一些容错处理，不过大多所能想到的错误都已经做了处理。
不过，对于交付使用还是不很放心，因为不知道使用者会不会出现用着不方便的问题，或者不习惯等等。
软件编程和使用是两个不同的概念。
就算编程再好，使用者也是千差万别，总有一些人和你唱反调。
当然了，并不是程序做得不好，根本原因是使用者一开始就抱有一种拒绝的态度。
这个我深有体会，因为我也曾被外派学习某个软件系统使用培训，那个系统用PHP制作的网页应用，已经做到尽量完美，但在实际应用过程中，效果并不理想，为什么呢？因为，所有被培训人员当中，对于软件使用并不十分了解，更不关心软件在某些方面对工作起到些什么优势。
而我呢，作为一个码控，确实理解了软件的所有操作方法，并对整个流程很快了解。
但是，有一种如果我做决不这样做的想法。
所以，对此也不再关心。
而今，再也没有用到过那个软件，可能推广方面也没有了下文。
这就是一个脱离实际应用的应用软件。很多心血之后变成了一场空，软件给你的感觉就是既陌生又熟悉，既实际又虚无。
欢迎