VBA单纯性表制作

《VBA单纯性表制作》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Sub宏1()''宏1宏''Cells.SelectSelection.DeleteShift:=xlUpWithSelection.Font.Name="微软雅黑".Size=11EndWithSelection.RowHeight=18Range("A1").SelectDimiAsIntegerDimk(26)AsStringFori=1To26k(i)=Chr(i+64)NextDimk1(20)AsStringFori=1To10k1(i)="X"&iNextRange("B2:G6").SelectSelection.Borders(xlDi

2、agonalDown).LineStyle=xlNoneSelection.Borders(xlDiagonalUp).LineStyle=xlNoneWithSelection.Borders(xlEdgeLeft).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithWithSelection.Borders(xlEdgeTop).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEn

3、dWithWithSelection.Borders(xlEdgeBottom).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithWithSelection.Borders(xlEdgeRight).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithWithSelection.Borders(xlInsideVertical).LineStyle=xlContinuous

4、.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithWithSelection.Borders(xlInsideHorizontal).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithSelection.Borders(xlDiagonalDown).LineStyle=xlNoneSelection.Borders(xlDiagonalUp).LineStyle=xlNoneWithSelection.Border

5、s(xlEdgeLeft).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlMediumEndWithWithSelection.Borders(xlEdgeTop).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlMediumEndWithWithSelection.Borders(xlEdgeBottom).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.

6、Weight=xlMediumEndWithWithSelection.Borders(xlEdgeRight).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlMediumEndWithWithSelection.Borders(xlInsideVertical).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithWithSelection.Borders(xlInsideHorizonta

7、l).LineStyle=xlContinuous.ColorIndex=0.TintAndShade=0.Weight=xlThinEndWithRange("B2:D2").SelectWithSelection.HorizontalAlignment=xlCenter.VerticalAlignment=xlBottom.WrapText=False.Orientation=0.AddIndent=False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=Fals

8、eEndWithSelection.MergeSelection.Borders