欢迎来到天天文库
浏览记录
ID:38260519
大小:19.27 KB
页数:13页
时间:2019-06-07
《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
此文档下载收益归作者所有