日记首页V1.0


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


	标题：vba中单元格位置对齐技巧

Sub 单元格对齐技巧() &nbsp;&nbsp;&nbsp; Dim myRange As Range &nbsp;&nbsp;&nbsp; Set myRange = Range("A1")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '指定任意单元格Cells(ii, j) 替换变量 &nbsp;&nbsp;&nbsp; With myRange &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Value = "ExcelVBA实用技巧大全"&nbsp; &nbsp;"复制代码时，不要MsgBox &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .HorizontalAlignment = xlRight &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "水平右对齐。" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .HorizontalAlignment = xlLeft &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "水平左对齐。" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .HorizontalAlignment = xlCenter &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "水平居中。" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .HorizontalAlignment = xlDistributed &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "水平分散对齐。" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .VerticalAlignment = xlTop &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "垂直靠上。" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .VerticalAlignment = xlBottom &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "垂直靠下。" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .VerticalAlignment = xlCenter &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "垂直居中。" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .HorizontalAlignment = xlGeneral &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .VerticalAlignment = xlGeneral &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "恢复默认。" &nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp; Set myRange = Nothing &nbsp;&nbsp;&nbsp; End&nbsp;Sub <hr>&nbsp;&nbsp;&nbsp; With Selection &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveSheet.UsedRange.HorizontalAlignment = xlRight&nbsp; '对已用区域右对齐 &nbsp;&nbsp;&nbsp; End With