MSCBSC 移动通信论坛
搜索
登录注册
网络优化工程师招聘专栏 4G/LTE通信工程师最新职位列表 通信实习生/应届生招聘职位
  MSCBSC 移动通信论坛 » 设计之家 » EXCEL在通信领域的VBA编写宏！解决实际工作中的问题！

 19  1/2 12››
  • 阅读：10849
  • 回复：18
关注楼主
[原创] EXCEL在通信领域的VBA编写宏！解决实际工作中的问题！
笨笨通信
初级会员
鎵嬫満鍙风爜宸查獙璇�


 发短消息    关注Ta 

积分 78
帖子 14
威望 4754 个
礼品券 0 个
专家指数 8
注册 2015-11-10
专业方向  无线设计
回答问题数 0
回答被采纳数 0
回答采纳率 0%
#1
  大 中 小
使用道具  
发表于 2016-12-09 15:39:42  只看楼主 


1、宏工具名称：提取文件名


功能介绍：提取定定文件夾下的文件名，不包含子文件夾


描述：本EXCEL宏是本人在工作中为了提高效率自己编写的，以提高工作效率，在此分享给通信一线的工作的人员，后期还会不断更新新的宏工具，以提高工作效率，请大家关注：

如需交流请发邮件给我，我的邮箱：zhiqiang1102003@163.com


更新日期 2016年12月9日


[[i] 本帖最后由 笨笨通信 于 2016-12-9 15:40 编辑 [/i]]

查看积分策略说明
附件下载列表：
2016-12-9 15:39:21  下载次数: 167
提取文件名(不含字文件夹).rar (14.33 KB)
扫码关注5G通信官方公众号,免费领取以下5G精品资料
  • 1、回复“LTBPS”免费领取《《中国联通5G终端白皮书》》
  • 2、回复“ZGDX”免费领取《中国电信5G NTN技术白皮书》
  • 3、回复“TXSB”免费领取《通信设备安装工程施工工艺图解》
  • 4、回复“YDSL”免费领取《中国移动算力并网白皮书》
  • 5、回复“5GX3”免费领取《 R16 23501-g60 5G的系统架构1》
  • 6、回复“iot6”免费领取《【8月30号登载】物联网创新技术与产业应用蓝皮书——物联网感知技术及系统应用》
  • 7、回复“6G31”免费领取《基于云网融合的6G关键技术白皮书》
  • 8、回复“IM6G”免费领取《6G典型场景和关键能力白皮书》

    • 对本帖内容的看法？ 我要点评

     
    [充值威望，立即自动到帐] [VIP贵宾权限+威望套餐] 另有大量优惠赠送活动，请光临充值中心
    充值拥有大量的威望和最高的下载权限，下载站内资料无忧
    沐雨有事
    VIP会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    积分 -334
    帖子 112
    威望 23180 个
    礼品券 0 个
    专家指数 -894
    注册 2014-6-18
    专业方向  通信类
    来自 广西
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #2
      大 中 小
    使用道具  
    发表于 2016-12-10 19:47:00  QQ
    技术问题，回答得专家指数，快速升级
    干啥子的呢。。。

    对本帖内容的看法？ 我要点评

     
    [立即成为VIP会员，百万通信专业资料立即下载，支付宝、微信付款，简单、快速！]
    菜单栏
    银牌会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    纪念勋章·七周年   纪念勋章·九周年  
    积分 4612
    帖子 846
    威望 3842 个
    礼品券 169 个
    专家指数 382
    注册 2012-3-9
    专业方向  LTE/优化分析/VBA
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #3
      大 中 小
    使用道具  
    发表于 2016-12-12 14:39:26 
    DOS tree 文件夹文件名称都一起出来了

    对本帖内容的看法？ 我要点评

     
    最新通信职位：广东通信人才网 | 北京通信人才网 | 上海通信人才网 | 南京通信人才网 | 西安通信人才网 | 重庆通信人才网 | 中国通信人才网
    jianfeng1116
    钻石会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    纪念勋章·六周年  
    积分 10881
    帖子 1736
    威望 77217 个
    礼品券 20 个
    专家指数 -66
    注册 2008-10-15
    专业方向  网优技术
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #4
      大 中 小
    使用道具  
    发表于 2016-12-13 09:20:29 
    试用一下！

    对本帖内容的看法？ 我要点评

     
    热点： 通信招聘职位 | 网络优化全集 | WCDMA精品 | TD-SCDMA学习资料 | EVDO | MGW媒体网关资料
    冰封下的火焰
    银牌会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    积分 3226
    帖子 108
    威望 2355 个
    礼品券 8 个
    专家指数 0
    注册 2008-11-20
    专业方向  无线基站
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #5
      大 中 小
    使用道具  
    发表于 2016-12-13 10:20:05 
    谢谢，试试看看!

    对本帖内容的看法？ 我要点评

     
    最新通信职位：广东通信人才网 | 北京通信人才网 | 上海通信人才网 | 南京通信人才网 | 西安通信人才网 | 重庆通信人才网 | 中国通信人才网
    应无所往
    初级会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    积分 88
    帖子 18
    威望 2987 个
    礼品券 5 个
    专家指数 -2
    注册 2014-3-10
    专业方向  网优
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #6
      大 中 小
    使用道具  
    发表于 2016-12-13 10:35:33 
    提取文件名..不用那么麻烦...dir就够了

    对本帖内容的看法？ 我要点评

     
    [2分钟拥有VIP权限和充足威望，可下载站内任何资料] [快速找到一份高薪的通信行业职位]
    jqw111
    高级会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    活动·摄影达人  
    积分 1814
    帖子 322
    威望 3847 个
    礼品券 25 个
    专家指数 164
    注册 2009-8-29
    专业方向  网优
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #7
      大 中 小
    使用道具  
    发表于 2016-12-14 11:43:08 
    这个没必要吧 dir >1.txt就搞定了

    对本帖内容的看法？ 我要点评

     
    热点： 通信招聘职位 | 网络优化全集 | WCDMA精品 | TD-SCDMA学习资料 | EVDO | MGW媒体网关资料
    shine2012
    初级会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    纪念勋章·六周年  
    积分 418
    帖子 481
    威望 3094 个
    礼品券 25 个
    专家指数 -1987
    注册 2011-6-11
    专业方向  网络优化
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #8
      大 中 小
    使用道具  
    发表于 2016-12-14 13:40:20 
    谢谢，试试看看!

    对本帖内容的看法？ 我要点评

     
    [2分钟拥有VIP权限和充足威望，可下载站内任何资料] [快速找到一份高薪的通信行业职位]
    crj713
    银牌会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    公益·环保勋章   纪念勋章·五周年   C友·五周年坛徽   纪念勋章·九周年  
    积分 4509
    帖子 899
    威望 6323 个
    礼品券 24 个
    专家指数 14
    注册 2009-12-1
    专业方向  移动通信
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #9
      大 中 小
    使用道具  
    发表于 2016-12-15 09:57:00 
    感觉没什么用。

    对本帖内容的看法？ 我要点评

     
    热点： 通信招聘职位 | 网络优化全集 | WCDMA精品 | TD-SCDMA学习资料 | EVDO | MGW媒体网关资料
    5th-Generat
    银牌会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    积分 4508
    帖子 656
    威望 815 个
    礼品券 35 个
    专家指数 24
    注册 2008-1-24
    专业方向  人力资源
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #10
      大 中 小
    使用道具  
    发表于 2016-12-15 11:46:13 
    dir tree copy format ，老司机们暴露年龄了，懂这些DOS命令的人，都快奔四了吧

    对本帖内容的看法？ 我要点评





    活着是偶然，死亡是必然。
     
    [2分钟拥有VIP权限和充足威望，可下载站内任何资料] [快速找到一份高薪的通信行业职位]
    htyjump
    金牌会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    公益·慈善勋章   专家·初级勋章   纪念勋章·九周年   纪念勋章·十周年  
    积分 9609
    帖子 1739
    威望 18381 个
    礼品券 335 个
    专家指数 662
    注册 2008-1-11
    专业方向  TD/LTE网络优化
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #11
      大 中 小
    使用道具  
    发表于 2016-12-15 13:42:34 
    DIR *.*/B >LIST.TXT
    另存为bat文件就可以了

    对本帖内容的看法？ 我要点评





    123
     
    热点： 通信招聘职位 | 网络优化全集 | WCDMA精品 | TD-SCDMA学习资料 | EVDO | MGW媒体网关资料
    gy12222
    金牌会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    财富勋章·财运连连   活动·第一届通信技术杯   纪念勋章·六周年   纪念勋章·九周年  
    积分 9246
    帖子 622
    威望 889 个
    礼品券 49 个
    专家指数 -30
    注册 2008-9-27
    专业方向  无线通信
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #12
      大 中 小
    使用道具  
    发表于 2016-12-16 14:05:06 
    取消单元格合并，且向下填充！

    Private Sub CXHB()
    Dim i As Range
    For Each i In ActiveSheet.UsedRange
    If i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Then
    i.MergeArea.Select
    i.MergeArea.UnMerge
    ' MsgBox (i.MergeArea.Address)
    Selection.FillDown
    End If
    Next i
    End Sub

    对本帖内容的看法？ 我要点评





    [img]http://ip.godiy8.com/sign.php?t=gbk&s=4&txt=我的理想我做主！[/[/img]
     
    [2分钟拥有VIP权限和充足威望，可下载站内任何资料] [快速找到一份高薪的通信行业职位]
    gy12222
    金牌会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    财富勋章·财运连连   活动·第一届通信技术杯   纪念勋章·六周年   纪念勋章·九周年  
    积分 9246
    帖子 622
    威望 889 个
    礼品券 49 个
    专家指数 -30
    注册 2008-9-27
    专业方向  无线通信
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #13
      大 中 小
    使用道具  
    发表于 2016-12-16 14:07:45 
    Excel 提取多个excel表格中特定单元格数据，汇总到一个表里。（例如统计一个文件夹下每个单验报告里的基站名称、经纬度到一个表里），这个谁有？

    对本帖内容的看法？ 我要点评





    [img]http://ip.godiy8.com/sign.php?t=gbk&s=4&txt=我的理想我做主！[/[/img]
     
    [2分钟拥有VIP权限和充足威望，可下载站内任何资料] [快速找到一份高薪的通信行业职位]
    lunzihome
    初级会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    积分 100
    帖子 20
    威望 3177 个
    礼品券 0 个
    专家指数 0
    注册 2016-10-27
    专业方向  asdf
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #14
      大 中 小
    使用道具  
    发表于 2017-01-18 10:01:31 
    For Each i In ActiveSheet.UsedRange
    －－范围太广啊。。。应该以选中的区域做为范围
    For each i in selection.cells

    对本帖内容的看法？ 我要点评

     
    [2分钟拥有VIP权限和充足威望，可下载站内任何资料] [快速找到一份高薪的通信行业职位]
    kingtrousers
    高级会员
    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    积分 2242
    帖子 387
    威望 459 个
    礼品券 5 个
    专家指数 -8
    注册 2009-7-9
    专业方向  网规网优
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
    #15
      大 中 小
    使用道具  
    发表于 2017-05-02 17:30:46 
    :lol

    对本帖内容的看法？ 我要点评

     
    [2分钟拥有VIP权限和充足威望，可下载站内任何资料] [快速找到一份高薪的通信行业职位]
     19  1/2 12››

    快速回复主题    
    标题 [原创] EXCEL在通信领域的VBA编写宏！解决实际工作中的问题！" tabindex="1">
    内容
     上传资料请点左侧【添加附件】

    (勾选中文件为要删除文件)

    当前时区 GMT+8, 现在时间是 2024-04-23 21:45:08
    渝ICP备11001752号  Copyright @ 2006-2016 mscbsc.com  本站统一服务邮箱：mscbsc@163.com

    Processed in 0.724428 second(s), 46 queries , Gzip enabled
    TOP
    清除 Cookies - 联系我们 - 移动通信网 - 移动通信论坛 - 通信招聘网 - Archiver