excel-vba編程實例-資料下載頁
2025-08-04 23:47本頁面
【正文】 ells(rowIndex 1, 1), Cells(rowIndex 1, cColumns)).Select = False Range(Cells(rowIndex 1, cColumns 1), Cells(rowIndex 1, cColumns 1)).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With .Name = Arial .FontStyle = 加粗 .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .colorIndex = xlAutomatic End With With .colorIndex = 15 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With = Average With (Start:=1, Length:=7).Font .Name = Arial .FontStyle = 加粗 .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .colorIndex = xlAutomatic End With Range(Cells(rowIndex 1, cColumns), Cells(rowIndex 1, cColumns)).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With .Name = Arial .FontStyle = 加粗 .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .colorIndex = xlAutomatic End With With .colorIndex = 15 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With = Average With (Start:=1, Length:=7).Font .Name = Arial .FontStyle = 加粗 .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .colorIndex = xlAutomatic End With Range(Cells(rowIndex 1, cColumns 1), Cells(rowIndex 1, cColumns)).Select (xlDiagonalDown).LineStyle = xlNone (xlDiagonalUp).LineStyle = xlNone With (xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .colorIndex = xlAutomatic End With With (xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .colorIndex = xlAutomatic End With With (xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .colorIndex = xlAutomatic End With With (xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .colorIndex = xlAutomatic End With With (xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .colorIndex = xlAutomatic End With With (xlInsideHorizontal) 39。 .LineStyle = xlContinuous .Weight = xlThin 39。 .colorIndex = xlAutomatic End With End Sub
物理相關(guān)推薦
鄂ICP備17016276號-1