110,537
社区成员
发帖
与我相关
我的任务
分享
Sub 宏1()
Range("A1:E1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
End Sub
var excelApp = new Excel.Application();
excelApp.Range["A1:E1"].Select();
excelApp.Selection.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;
excelApp.Selection.VerticalAlignment = Excel.XlVAlign.xlVAlignBottom;
excelApp.Selection.WrapText = false;
excelApp.Selection.Orientation = 0;
excelApp.Selection.AddIndent = 0;
excelApp.Selection.IndentLevel = 0;
excelApp.Selection.ShrinkToFit = false;
excelApp.Selection.ReadingOrder = Excel.Constants.xlContext;
excelApp.Selection.MergeCells = false;
excelApp.Selection.Merge(Missing.Value);
excelApp.Selection.Interior.Pattern = Excel.Constants.xlSolid;
excelApp.Selection.Interior.PatternColorIndex = Excel.Constants.xlAutomatic;
excelApp.Selection.Interior.ThemColor = Excel.XlThemeColor.xlThemeColorDark1;
excelApp.Selection.Interior.TintAndShade = -0.249977111117893;
excelApp.Selection.Interior.PatternTintAndShade = 0;