案例VBA宏实现LTE数据库同向覆盖小区.docx
- 文档编号:5064179
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:6
- 大小:269.92KB
案例VBA宏实现LTE数据库同向覆盖小区.docx
《案例VBA宏实现LTE数据库同向覆盖小区.docx》由会员分享,可在线阅读,更多相关《案例VBA宏实现LTE数据库同向覆盖小区.docx(6页珍藏版)》请在冰豆网上搜索。
案例VBA宏实现LTE数据库同向覆盖小区
VBA宏实现LTE数据库共站址同向覆盖小区一键输出
第一章创新背景3
第二章创新总体思路4
第三章创新方案和实施过程5
第四章创新应用成效6
第一章创新背景
随着4GLTE基站的逐步建设完善,网络构成更加复杂,覆盖呈现多样性,同一站址可能同时出现四种频段同时共存,例1.8G/2.1G/800M/TDD共站址的情况。
共站址同覆盖方向到底有哪些小区覆盖,如何能够从庞大的数据库中对同方向不同频点的小区快速筛选并进行关联,成为日常扩容、负载均衡能否高效进行的一项重要工作。
第二章创新总体思路
VBA是VisualBasic的一种宏语言,利用VBA可以在Excel内开发出功能强大的自动化程序,能够快速帮助我们处理大量复杂逻辑的重复性劳动工作,解放双手,提高工作效率。
第三章创新方案和实施过程
1.方案和实施过程
1.1准备工具
笔记本一台,配置系统WIN764位,CPUI5-4210U@1.70GHZ,内存4G,软件安装OFFICE2010。
(配置总体偏低,确保现阶段大部分电脑能够有效运行。
)
1.2方案思路
LTE扇区数据库中,共4个频点小区,其中共站址小区,均采用相同物理名称,此可作为关键字。
区分不同频点可以参照小区号段划分,此方法可以有效区分1.8G/2.1G/800M/TDD四种频点小区,而方位角则是判断是否同方向覆盖的有效条件(本创新中,将共站址同方向不同小区的方位角偏差10°以内,定义为同方向覆盖;而实际需求中,可以对方位角偏差进行随意更改)。
本次创新VBA编写中,兼顾考虑LTE扇区数据库较为庞大,故只使用LTE扇区数据库物理站点名称、小区标识CellID、扇区中文名、天线方位角作为手动添加的数据源及筛选条件。
1.3实施过程
1.3.1小区分类
从LTE扇区数据库中,分别将物理站点名称、小区标识CellID、扇区中文名、天线方位角作为数据源复制粘贴到工作表Sheet1中,如下所示:
图1.数据源
以小区标识CellID为筛选条件,对1.8G.2.1G、800M、2.6G进行分类,编写宏命令,效果如图2所示:
图2.小区分类
代码如下所示,(介于篇幅,只列出1.8G分类代码,其余频点基本类似):
SubCOPY()
Selection.AutoFilter
Selection.AutoFilter
ActiveSheet.Range("$A$1:
$DM$8663").AutoFilterField:
=2,Criteria1:
=Array(_
"180","181","182","183","184","185","186","187","188","189","190","191","50",_
"51","52","53","54","55","56","57","58","59","60","61","62","63"),Operator:
=_
xlFilterValues
Range("C1").Select
Range(Selection,Selection.End(xlDown)).Select
Selection.COPY
Sheets("1.8G").Select
Range("C1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("A1").Select
Range(Selection,Selection.End(xlDown)).Select
Application.CutCopyMode=False
Selection.COPY
Sheets("1.8G").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("D1").Select
Range(Selection,Selection.End(xlDown)).Select
Application.CutCopyMode=False
Selection.COPY
Sheets("1.8G").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
EndSub
1.3.1共站址同向小区关联
以物理站点名称、天线方位角为筛选条件,对1.8G.2.1G、800M、2.6G进行关联,编写宏命令,效果如图3所示:
图3.小区关联
代码如下所示(介于篇幅,只列出1.8G对应2.1G关联代码,其余频点小区关联基本类似):
Sub宏1()
Dimi,j,k,n,a,b,cAsInteger
Dimarr1()
Dimarr2()
k=Worksheets("1.8G").Range("A65535").End(xlUp).Row
n=Worksheets("2.1G").Range("B65535").End(xlUp).Row
arr1()=Worksheets("1.8G").Range("A2:
C"&k).Value
arr2()=Worksheets("2.1G").Range("A2:
C"&n).Value
Fori=3Tok
a=i-2
c=i-1
Forj=3Ton
b=j-2
Ifarr2(b,1)=arr1(a,1)AndAbs(arr2(b,2)-arr1(a,2))<10Then
Sheets("1.8G").Cells(c,"D")=arr2(b,3)
EndIf
Nextj
Nexti
EndSub
考虑运行性能,考虑将代码拆分为4个宏,分别独立运行,避免因数据库过于庞大,造成EXCEL运行宏命令时卡死,反应过于迟缓现象。
2.效果呈现
实际使用该工具时,只需从LTE扇区数据库中,分别将物理站点名称、小区标识CellID、扇区中文名、天线方位角作为数据源复制粘贴到工作表Sheet1中,然后依次运行宏命令:
COPY→宏1→宏2→宏3即可,生成结果只需几秒,如下所示(附有带宏命令的EXCEL)。
第四章创新应用成效
该创新成果能够偶有效支撑日常负载均衡优化、高负荷小区监测、高负荷小区扩容所需要的共站址同方向覆盖关联小区信息,原本对本地网整个数据库进行梳理,可能需要半个小时至一个小时,现在只需5-10秒,就能获取相应关联小区,工作效率提高百倍。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 案例 VBA 实现 LTE 数据库 同向 覆盖 小区