日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：vba自动生成表格

<div title="点击运行该代码！" class="HtmlCode" style="cursor: pointer;" onclick="preWin=window.open('','','');preWin.document.open();preWin.document.write(this.innerText);preWin.document.close();" ;="">Sub 自动生成表格() &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rem 设置单元格内字体、颜色、大小 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim rng As Range &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y = ActiveCell.SpecialCells(xlLastCell).address &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Range("A1:" &amp; Y).Font &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Name = "黑体" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .FontStyle = "Bold" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Size = 24 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Range("A2:" &amp; Y).Font &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Name = "仿宋_GB2312" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Size = 12 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Underline = 2 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Range("A3:" &amp; Y).Font &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Name = "仿宋_GB2312" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Size = 10 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rem 设置行高、列宽 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Range("A1") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .RowHeight = Application.CentimetersToPoints(1.2) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ColumnWidth = Application.CentimetersToPoints(0.5) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Range("A2") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .RowHeight = Application.CentimetersToPoints(1) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Range("A3") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .RowHeight = Application.CentimetersToPoints(0.6) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rem 画边框 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set rng = Range("a3:" &amp; Y) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With rng.Borders &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .LineStyle = xlContinuous &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Weight = xlThin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ColorIndex = 5 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rng.BorderAround xlContinuous, xlMedium, 5 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set rng = Nothing &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Sub &nbsp;&nbsp; </div>