用VBA写一个单元格H2:I13居中对齐,并添加框线,自动换行的代码
时间: 2023-04-05 13:01:53 浏览: 76
Sub CenterAlign()
Range("H2:I13").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Borders.LineStyle = xlContinuous
End With
End Sub
相关问题
用VBA写一个单元格H2:I13居中对齐,并添加框线的代码
Sub CenterAndBorder()
Range("H2:I13").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With
End Sub
用vba 写一个清楚单元格内容的代码
以下是使用 VBA 清空单元格内容的代码:
```vb
Sub ClearCellContent()
' 选择要清空内容的单元格
Range("A1").Select
' 清空选定单元格的内容
Selection.ClearContents
End Sub
```
您可以将“Range”中的单元格引用更改为您要清空内容的单元格。如果要清空多个单元格的内容,您可以将范围更改为包含多个单元格的范围,例如 Range("A1:B10")。