Excel vba里怎么设置单元格的内容对齐方式
材料/工具:Office2013
1、Excel中有数据如下图所示，将其中的文字设置为水平居中对齐：
2、按下Alt+F11，打开VBA编辑界面，双击源数据所在的工作表：
3、输入代码
Sub 鱼木混猪()
Range("A1:A4").HorizontalAlignment = xlCenter
End Sub
4、然后点击“运行子程序”按钮：
5、关闭VBA编辑界面，返回Excel中就可以看到文字水平对齐方式变成了居中对齐
1、首先打开需要设置对齐方式的Excel vba界面。
2、选择区域或单元格右对齐：Selection.HorizontalAlignment = Excel.xlRight。
3、选择区域或单元格左对齐：Selection.HorizontalAlignment = Excel.xlLeft。
4、选择区域或单元格居中对齐：Selection.HorizontalAlignment = Excel.xlCenter。
5、固定区域的对齐方式的代码：Range("A1:A9").HorizontalAlignment = Excel.xlLeft。
已赞过
已踩过<
具体步骤如下：
1、首先打开需要编辑的Excel表格，进入到编辑页面中。
2、然后点击打开开发者工具中的“Visual Basic”。
3、然后在弹出来的窗口中点击打开插入中的“模块”选项。
4、然后在弹出来的窗口中点击输入下面的代码：
Sub cell()
Dim icell As Integer, hcell As Integer
For icell = 4 To 35
If UCase(Cells(icell, 1).Value) = "SAT" Or UCase(Cells(icell, 1).Value) = "SUN" Then
Cells(icell, 1).Value = UCase(Cells(icell, 1).Value)
For hcell = 1 To 21
Cells(icell, hcell).Interior.Color = RGB(200, 200, 200)
Cells(icell, 1).HorizontalAlignment = xlCenter
Cells(icell, 1).VerticalAlignment = xlCenter
Cells(icell, 1).Font.Bold = True
Next
End If
Next
End Sub就可以了。
使用HorizontalAlignment属性控制水平对齐，此属性的值可设为以下常量之一：
xlCenter
xlDistributed
xlJustify
xlLeft
xlRight
使用VerticalAlignment属性控制垂直对齐，此属性的值可设为以下常量之一：
xlBottom
xlCenter
xlDistributed
xlJustify
xlTop
例如下面的代码使选中部分水平居中、垂直居中：
Sub 宏1()
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End Sub
你录制一段宏就可以从代码中看到了.
以下以H1到H7的为例:
Range("H1:H7").VerticalAlignment = xlCenter '竖向居中
Range("H1:H7").VerticalAlignment = xlTop '靠上对齐
Range("H1:H7").HorizontalAlignment = xlCenter '横向居中
Range("H1:H7").HorizontalAlignment = xlLeft '左对齐
Range("H1:H7").HorizontalAlignment = xlRight '靠右对齐
