物流管理是一个很有前途的实用功能，在社会发展过程当中，物流是复现一个社会经济优劣的一个重要指标。
如何让物流畅通、快速、准确到达目的地就显得十分重要。
在智能化发展的情况下，很多物流已经变得更加超前。
本节介绍，如何使用VBA在Excel平台上进行一个简单的物流过程管理。
如果是一个小型的记账型管理，完全适用。
下图为管理主页
分别有几个不同的功能按钮组成，信息录入、信息查询、资金管理、系统设置。
这其中信息录入是最常用的功能，下图为信息录入示例表单页。
信息录入完成，单击确定自动添加到工作表中保存。
表单中的字段对应着记录表字段自动提取，记录表是预先制作好的。
No.2信息查询
信息查询里，主要以运单编号来进行查询。
在文本框中输入运单号，自动搜索信息记录表，如果查找到相应运单，自动显示到列表框中，单击查询到的运单编号，右侧显示出运单信息。
系统设置
很显然上述一些操作，某些关键字段要提前进行设置，这里可以进行设置。
很重要，提前设置好，信息管理就更加方便了。
代码
Public Function GetsArr(Svalue As String)
On Error Resume Next
Dim GArr, cRang
Set w = GetSheet(infoSheetName)
w.Activate
Set cell = w.Range(w.Cells(3, 2), w.Cells(w.Cells(w.Rows.Count, 2).End(xlUp).Row, 2))
For Each xcell In cell
If Svalue = xcell.Value Then
Set cRang = w.Range(w.Cells(xcell.Row, 1), w.Cells(xcell.Row, w.Range("A2").End(xlToRight).Column))
ReDim GArr(1 To w.Range("A2").End(xlToRight).Column)
GArr = Application.WorksheetFunction.Transpose(cRang)
GetsArr = GArr
Exit For
End If
Next xcell
Set w = Nothing
Set cell = Nothing
Set xell = Nothing
End Function
此代码为提取运单信息函数，使用中出现了一些困难，不过解决了。
本信息管理中，有些内容没有给出，如运单信息处理，是否到货，图片管理等等。
不做过多介绍了，只要有一个框架，其它内容就是一个补充的过程。
(本文源码没有传，未分享使用)
欢迎关注、收藏
---END---
,
