No.1

设备管理是一个动态过程，一些大型设备更换率相对较低，只需做一个设备管理表即可，那么如何让管理更加轻松呢！

本节介绍一下医疗设备台账管理的一些基本操作。

如下图所示，为管理主页，同里也是台账表页面。

顶部做了操作按钮，分别有台账录入，查询，打印，设备等等功能。

功能相对简单，操作也不难，一般小白都可以上手操作。

No.2

下面主要介绍一下操作功能。

设备登记

首先是设备登记，用一个表单对话窗体来进行录入。

在进行此项目之前可进行设置，对各字段初始值进行预设置。

好看下图，是录入的一个示例，有些是预设字段，有些是需要手动输入的内容。

根据不同的需求可自行设置。

查询

查询功能必不可少，同时查询结果可作为最终表格进行输出打印。

不多介绍了，主要是以"区域"字段来查询，功能还是比较单一，但已经足够使用。

设置

在使用之前，要进行一些系统设置，主要包括设备存放位置、设备名称、数量、日期、设备状态等信息。

设置一些信息的目的是在录入数据的时候，只需要选择下拉框内容就可以，不用每次键盘输入。

No.3

代码

代码处理上相对简单，主要是没有做全窗体编码，利用表进行数据实时处理，比较容易实现。

以下代码实现查询功能

Private Sub CommandButton1_Click() On Error Resume Next Dim TxValue As String TxValue = VBA.Trim(Me.ListBox1.Value) If VBA.Len(TxValue) = 0 Then Exit Sub Application.ScreenUpdating = False Set SheetQ = ThisWorkbook.Worksheets(Q) SheetQ.Activate Dim ir As Long, ic As Long ir = SheetQ.UsedRange.Rows.Count ic = 2 Dim cell As Range, Xcell As Range Dim i As Long, iArr ReDim iArr(0) Set cell = SheetQ.Range(SheetQ.Cells(3, ic), SheetQ.Cells(ir, ic)) For Each Xcell In cell If Xcell.Value = TxValue Then ActiveSheet.Rows(Xcell.Row).Hidden = False Else ActiveSheet.Rows(Xcell.Row).Hidden = True End If Next Xcell SheetQ.Range("A1").Value = TxValue & "设备清单" Set SheetQ = Nothing Application.ScreenUpdating = True End Sub

代码并不能直接拿来使用，有些变量初始化在模块里定义，可以作为编码方式参考学习。

后续可能做一些更加完善的功能，但也不一定做。

希望爱好VBA编码的朋友，学习之用。

---END---