Question

excel vba修改组合代码

1。给A33：J1032范围设置为文本格式
2。将内容设置为居中和垂直居中

Answer 1

设定宏名为abc , 键盘按键alt+f11打开VBA工程窗口，输入下面的代码

Sub abc()
Range("A33:j1032").Select （选定区域）
Selection.NumberFormatLocal = "@" （设定文本格式）
With Selection
.HorizontalAlignment = xlCenter （左右对齐）
.VerticalAlignment = xlCenter （垂直对齐）
End With
End Sub

输入完成后保存退出即可调用此宏。

Answer 2

Sub 宏2()
Range("A33:j1032").Select

Selection.NumberFormatLocal = "@"

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End Sub

Answer 3

都会写vba的人，这个即便是没记住，录一下就知道了
range("a33:j1032).HorizontalAlignment = xlCenter
range("a33:j1032).VerticalAlignment = xlCenter
range("a33:j1032).NumberFormatLocal = "@"

Answer 4

Sub 设置文本格式和居中()
 With [A33:j1032]
  .NumberFormatLocal = "@"
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlCenter
 End With
End Sub

录制宏之后，进行精简就好了。

Answer 5

excel vba修改组合代码如下：
VBA代码可以修改为：

Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
'或者Application.Quit
End Sub
即可。

Answer 6

Sub xx()
    With [a33:j1032]
        .NumberFormatLocal = "@"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End Sub