我只是想知道在使用MergeCells腳本時是否可以將文本設定為VERTICAL TEXT。
MergeCells 的輸出類似于 Official Town Fiesta 和 Bonifacio Day。但是，所需的輸出必須類似于 All Saints' 和 All Souls' Day 列。
Sub MergeCells()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "123"
With Selection
.Merge
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.ShrinkToFit = True
.Orientation = 90
End With
ActiveSheet.Protect "123", AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True
Application.ScreenUpdating = True
End Sub
uj5u.com熱心網友回復：
改變
.Orientation = 90
到
.Orientation = xlVertical
有關更多詳細資訊，請參閱XlOrientation 列舉檔案。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/405392.html
標籤：