EXECL 编程解释 请解释以下内容，最近二天研究这些，弄得头晕，有请专业人士解困的方法，谢谢！

来源：蜘蛛抓取(WebSpider) 时间：2016-10-03 23:51 标签： 解困房
问题补充&&
本页链接：
其实你自己可尝试录宏得到你要的(每改变单元格格式一个选项 录一个)Sub Macro2()'' Macro2 Macro' 快捷键: Ctrl+y
'执行宏Macro2 的快捷式
Range(&B2:E13&).Select
'选定&B2:E13&单元格
With Selection
'With语句 Selection 即单元格 &B2:E13&
.HorizontalAlignment = xlCenter '单元格格式--对齐 - 文本的对齐方式 - 水平居中
.VerticalAlignment = xlCenter
'单元格格式--对齐 - 文本的对齐方式 - 垂直居中
.WrapText = False
'单元格格式--对齐 - 文本文本 - 自动换行
.Orientation = 0
'单元格格式--对齐 - 文本的对齐方式 - 文本方向角度
.AddIndent = False
'单元格格式--对齐 - 文本的对齐方式 - 等距分布
.IndentLevel = 0
'单元格格式--对齐 - 文本的对齐方式 - 缩进(I)
.ShrinkToFit = False
'单元格格式--对齐 - 文本控制 - 缩小字体填充
.ReadingOrder = xlContext
'单元格格式--对齐 - 从左到右文字方向 - 根据内容
.MergeCells = False
'单元格格式--对齐 - 文本控制 - 合并单元格
'With语句结束
Selection.NumberFormatLocal = &#,##0_ & '单元格格式-- 数字 - 分类 - 自定义&#,##0_ &
Columns(&D:D&quo怠法糙盒孬谷茬贪长楷t;).ColumnWidth = 7.75
'D列列宽 = 7.75
Columns(&D:L&).Select
'选定D列到L列
Selection.ColumnWidth = 7.6
'选定的(D列到L列)列宽 = 7.6
Range(&N13&).Select
'选定&N13&单元格(光标定在N13)End Sub另外，如果是缺省的是可以删除的。比如上面的With语句可以简化为：
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = ......余下全文>>
LaoLwu &10-22 23:26
查看"其他编程语言"分类更多问题
猜你感兴趣问题补充&&
本页链接：
比如上面的With语句可以简化为;););单元格格式--对齐 - 文本的对齐方式 - 等距分布
.ColumnWidth = 7.6
Range(&单元格格式--对齐 - 文本的对齐方式 - 文本方向角度B2.75
Columns(&quot:D&quot.Select
&#39:E13&N13& Macro2 Macro'单元格格式--对齐 - 文本的对齐方式 - 缩进(I)单元格格式--对齐 - 从左到右文字方向 - 根据内容#; 快捷键其实你自己可尝试录宏得到你要的(每改变单元格格式一个选项 录一个)Sub Macro2()&#39.WrapText = False
&#39.Orientation = 0
&#39,##0_ &选定&quot.ColumnWidth = 7;With语句结束
Columns(&选定D列到L列
SWith语句 Selection 即单元格 &quot.Select
&#39.MergeCells = False
'选定&'选定的(D列到L列)列宽 = 7.Select
'N13&#;D;单元格格式--对齐 - 文本控制 - 缩小字体填充B2;单元格格式--对齐 - 文本控制 - 合并单元格
'单元格格式--对齐 - 文本的对齐方式 - 水平居中
:E13&quot:E13&D列列宽 = 7;单元格
With Selection
'单元格格式--对齐 - 文本的对齐方式 - 垂直居中
,##0_ &quot.IndentLevel = 0
'B2.HorizontalAlignment = xlCD.VerticalAlignment = xlCenter
With Selection
&#39.HorizontalAlignment = xlCenter ' '单元格格式--对齐 - 文本文本 - 自动换行
.NumberFormatLocal = &单元格格式-- 数字 - 分类 - 自定义&quot.6
');执行宏Macro2 的快捷式
Range(&quot，如果是缺省的是可以删除的.ReadingOrder = xlContext
&#39:L&quot.AddIndent = False
'单元格(光标定在N13)End Sub另外.ShrinkToFit = False
LaoLwu &10-22 23:26
猜你感兴趣

我要回帖

更多关于 解困房 的文章

 

随机推荐