ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 606|回复: 3
打印 上一主题 下一主题

[求助] 批量excel文件格式调整(规整,两行)

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
发表于 2019-9-8 12:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助,我有用VBA生成的一系列文件,格式规整,但是不知道如何调整单元格的格式。请求帮助,谢谢。

1.    调整本文件夹内的所有文件的格式(共两行)
2.    所有有内容的单元格加边框线
3.    所有单元格宽度为85像素(除了第一列和第四列单元格宽度是45像素)
4.    所有单元格自动换行
5.    所有单元格内容居中
6.    所有字体为宋体
7.    所有字号为11号
8.    所有单元格文字为黑色
9.    第一行文字加粗
10.  第一行单元格填充浅灰色
11.  第二行单元格无填充色

批量文件格式调整模板.zip

23.43 KB, 下载次数: 1

TA的精华主题

TA的得分主题

2
发表于 2019-9-8 14:58 | 只看该作者

TA的精华主题

TA的得分主题

3
发表于 2019-9-8 15:13 | 只看该作者
这么多表格  就为了打印或者查看么  还不如弄一个总台账 另一个sheet显示 结果  格式都是统一的 不用打开关闭那么多工作簿了  与excel是工具的意义背道而驰

TA的精华主题

TA的得分主题

4
 楼主| 发表于 2019-9-8 17:56 | 只看该作者
deadzlq 发表于 2019-9-8 14:58
对象和方法不熟悉,可以用录制宏反查

谢谢。录制宏给我了启发。但是不知道形成的编码如何整合到另一个sub中。。。
Sub 独立格式调整专用()
'独立运作成功,但是整合到上一个失败,未能全自动
    Columns("A:E").Select  '选择列,范围需要根据实际情况调整
    Selection.ColumnWidth = 11.63  '所有选择的列调整宽度,数值自行调整,请提前测试合适的宽度'
    Rows("1:2").Select  '选择前两行
    With Selection  '
        .HorizontalAlignment = xlCenter  '居中
        .VerticalAlignment = xlCenter  '居中
        .WrapText = True    '自动换行
    End With  '
    Range("A1:E2").Select  '选择区域,手动根据实际情况自行调整
    Selection.Borders.LineStyle = 1  '所选区域边框线实线
End Sub
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-12-11 15:51 , Processed in 1.427420 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表