设为首页|收藏本站|
发帖
登录 注册
西兔生活网 › 华人生活 › 海淘代购 › 物流运输信息管理，Excel VBA编程方案介绍 ...
回复 发帖
返回列表 发新帖
开启左侧

[转运物流] 物流运输信息管理，Excel VBA编程方案介绍

[复制链接]
49150 0
lovehao 发表于 2021-4-12 23:28:13 | 只看该作者 打印 上一主题 下一主题
 
No.1

物流管理是一个很有前途的实用功能，在社会发展过程当中，物流是复现一个社会经济优劣的一个重要指标。
如何让物流畅通、快速、准确到达目的地就显得十分重要。
在智能化发展的情况下，很多物流已经变得更加超前。

物流运输信息管理，Excel VBA编程方案介绍 第1张图片

本节介绍，如何使用VBA在Excel平台上进行一个简单的物流过程管理。
如果是一个小型的记账型管理，完全适用。
下图为管理主页

物流运输信息管理，Excel VBA编程方案介绍 第2张图片

分别有几个不同的功能按钮组成，信息录入、信息查询、资金管理、系统设置。
这其中信息录入是最常用的功能，下图为信息录入示例表单页。

物流运输信息管理，Excel VBA编程方案介绍 第3张图片

信息录入完成，单击确定自动添加到工作表中保存。
表单中的字段对应着记录表字段自动提取，记录表是预先制作好的。
No.2

信息查询
信息查询里，主要以运单编号来进行查询。

物流运输信息管理，Excel VBA编程方案介绍 第4张图片

在文本框中输入运单号，自动搜索信息记录表，如果查找到相应运单，自动显示到列表框中，单击查询到的运单编号，右侧显示出运单信息。
系统设置
很显然上述一些操作，某些关键字段要提前进行设置，这里可以进行设置。
很重要，提前设置好，信息管理就更加方便了。

物流运输信息管理，Excel VBA编程方案介绍 第5张图片

No.3

代码
Public Function GetsArr(Svalue As String)On Error Resume NextDim GArr, cRangSet w = GetSheet(infoSheetName)w.ActivateSet 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 IfNext xcell Set w = Nothing Set cell = Nothing Set xell = NothingEnd Function
物流运输信息管理，Excel VBA编程方案介绍 第6张图片

此代码为提取运单信息函数，使用中出现了一些困难，不过解决了。
本信息管理中，有些内容没有给出，如运单信息处理，是否到货，图片管理等等。
不做过多介绍了，只要有一个框架，其它内容就是一个补充的过程。
(本文源码没有传，未分享使用)
欢迎关注、收藏
---END---


上一篇：8000余人被“拉黑”三年！海南严打离岛免税“套代购”
下一篇：迎泽区首届跨境电商招商大会暨第二届山西跨境电商峰会成功举行
标签：物流社会发展社会经济重要指标物流管理
@
免
责
声
明
1.西兔生活网 CTLIVES 内容全部来自网络;
2.版权归原网站或原作者所有;
3.内容与本站立场无关;
4.若涉及侵权或有疑义，请点击“举报”按钮，其他联系方式或无法及时处理。
举报

关联主题
回复

使用道具 举报

 
返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

lovehao白金会员

0关注

9粉丝

380帖子

热门图文
热门帖子
排行榜
  • 日
  • 周
  • 月
活跃网友
返回顶部快速回复上一主题下一主题返回列表APP下载手机访问
Copyright © 2016-2028 CTLIVES.COM All Rights Reserved.  西兔生活网  小黑屋| GMT+8, 2024-9-12 19:16