vbscript VBA：格式1

Posted 2021-05-21

range().NumberFormatLocal = "G/通用格式" '如果想输入保留后两位的数字，要先转为通用格式，再转为数字的格式
'"G/通用格式 ""m"""  '添加有“ m”后缀的格式
.NumberFormatLocal = "0.00_ " '保留后两位
.NumberFormatLocal = "@" '文本格式

[1]字体属性
ActiveCell.Font.Bold = True
ActiveCell.Font.Underline = True

只对某个单元格的几个字符设置可用Characters取数，如：
 ActiveCell.Characters(Start:=1, Length:=1).Font.Bold=true
 
 字体属性（字体、字号、加粗、斜体、颜色）
 Set myFont = myRange.Font
 With myFont
    .Name = "华文新魏"
    .Size = 15
    .Bold = True
    .Italic = True
    .ColorIndex = 3
End With

[1]行或列，添加边框
行的上边框
    With Rows("84:84").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With

列的左边框
    With Columns("L:L").Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With

完整代码：
    Rows("84:84").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone