文/江觅

网络信息化在公司已经基本普及，随之而来的网络设备管理也进入一个相对重要的地位，其中网络地址管理是一项基本内容。

分析

如果没有有序地管理网络地址，那么接入网络的设备就不能正常工作。不是断网就是无法连接，这是个让人抓狂的事情。

所以，要做好网络管理，保证网络畅通，就十分必要了。

对于有些小型企业来说，基本不会专门配制专业网络技术人员，如果有，也可能是某些稍懂一点电脑知识的人代为管理。

这种情况很多，为了节省开销，也是没有办法。

且不知，一旦断网，所有工作将变成僵尸状态。工作生活中离不开网络，又不想用专业人员来对网络进行维护，这样的情况下，公司内部的网络就变成一个禁地。

因为谁也不懂，自然就没有人去管理这一方面的事情。

其实，网络管理说难吧，也不难，不难吧，那真是无从入手。

这里主要介绍一下局域网内部网络地址分配的一些内容，实际上是对一个网络地址分配表格进行操作。具体内容可以看图。

包括三个方面:1、IP地址分配2、地址查询3、统计

新接入网络设备就要给它分配一个IP地址，有些人说，我们的地址不分配照样可以用啊，当然不分配也可以，只不过是设备自动分配了而已。

为什么要人为分配呢?这里主要是因为网络安全方面着想。

如果给接入设备进行地址分配，可以及时操控避免突发网络事件发生。

比如大面积断网，或电脑病毒传播（目前似乎也没有电脑病毒了）。

还有就是合理利用和分配公司网络硬件资源，充分利用网络设备性能，不要形成大马拉小车或小马拉大车的现象，这个就十分专业了，这不做分析。

遇到大数据并发可能造成网络堵塞，可表现为玩游戏时突然停顿。

这个就十分专业了。遇到大数据并发可能造成网络堵塞，表现为玩游戏时突然停顿。

其实，网络管理最重要的一个方面是安全，在工业安全方面，网络安全已经上升到一个很重要的安全生产管理目录里面。

未来的智能工厂，网络安全成为一个必然项进行管理，工人越来越少，网络设备越来越多，怎么让这些网络设备听话，那就是独立分配一个地址来进行标识和管理。

IP地址就如人的身份证号一样，具有唯一性。

查找很简单，输入想找的IP地址就自动搜索出来了，如果没有搜索到说明此地址还没有分配，可能进行分配。

这个功能十分必要，因为在给设备进行地址分配的时候，可能要选择地址，但是不知道哪些地址已经分配，哪些没有。

当然了，这个在路由器后台里面也可以看到。

统计一目了然地列出了，所有网络设备类别的数量，可以对IP数量进行统计。

一个网络里面的数量是有限的，不可能随意分配数字。

分配前，在设置里面对地址范围进行预设，这个一般网络管理员都知道。

网络设备统计代码

PrivateSubUserForm_Initialize()DimsAsWorksheet,wAsWorksheetSets=ThisWorkbook.Worksheets(sets)s.ActivateDimsArrDimiRowAsIntegerDimsRAsRange,sRmAsRangeiRow=s.Range(H).End(xlUp).RowSetsRm=s.Range(H2:HiRow)ReDimsArr(2ToiRow)DimsObjAsObjectForEachsRInsRmIfVBA.Len(sR)0ThensArr(sR.Row)=sR.ValueSetsObj=Me.Controls.Add(Forms.Label.1,LsR.Row)WithsObj.Top=26*sR.Row+30.Left=.Caption=sR.Value.Font.Size=12.Font.Name=微软雅黑EndWithEndIfNextsRSetw=ThisWorkbook.Worksheets(网络地址)w.ActivateiRow=w.Range(D).End(xlUp).RowSetsRm=w.Range(D2:DiRow)SetsR=NothingDimxAsVariant,eAsInteger,nAsIntegerForEachxInsArre=e+1ForEachsRInsRmIfsR.Value=xThenn=n+1NextsRSetsObj=Me.Controls.Add(Forms.Label.1,Tn)WithsObj.Top=26*e+56.Left=.Caption=n.Font.Size=12.Font.Name=微软雅黑.ForeColor=RGB(,21,21)EndWithn=0NextxEndSub

展示一下统计代码，其实其它方面代码很多，就不全部贴出来了，主要是说明这个东西是如何做的一个过程，相对不是很难。

如果有需要本内容，可能私信获取下载链接。