xssfdataformat 设置单元格式为数值_VBA常用函数——单元格常用格式设置1

Part 1：字体设置

Sub test1() Set sht1 = ThisWorkbook.Worksheets("示例") Set cell1 = sht1.Range("A1") Set cell2 = sht1.Range("A2") '设置字体，大小，是否加粗，字体的颜色，对齐方式 cell1.Font.Name = "黑体" cell1.Font.Size = 16 cell1.Font.Bold = False cell1.Font.Color = RGB(255, 0, 0) cell1.HorizontalAlignment = xlCenter cell1.VerticalAlignment = xlCenter cell2.Font.Name = "Arial" cell2.Font.Size = 12 cell2.Font.Bold = True cell2.Font.Color = RGB(0, 255, 255) cell2.HorizontalAlignment = xlRight cell2.VerticalAlignment = xlBottomEnd Sub

Part 2：边框设置

Sub test2() Set sht1 = ThisWorkbook.Worksheets("示例") Set rng1 = sht1.Range("E2:H5")   '设置边框线：线型，粗细，颜色 rng1.Borders(xlEdgeRight).LineStyle = xlContinuous rng1.Borders(xlEdgeRight).Weight = xlThin rng1.Borders(xlEdgeLeft).LineStyle = xlContinuous rng1.Borders(xlEdgeLeft).Weight = xlThin rng1.Borders(xlEdgeTop).LineStyle = xlContinuous rng1.Borders(xlEdgeTop).Weight = xlThick rng1.Borders(xlEdgeTop).Color = RGB(255, 0, 0) rng1.Borders(xlEdgeBottom).LineStyle = xlContinuous rng1.Borders(xlEdgeBottom).Weight = xlMedium rng1.Borders(xlEdgeBottom).Color = RGB(0, 255, 255) rng1.Borders(xlInsideVertical).LineStyle = xlContinuous rng1.Borders(xlInsideVertical).Weight = xlMedium rng1.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng1.Borders(xlInsideHorizontal).Weight = xlThinEnd Sub

运行前

运行结果

Part 3：部分代码解读

1. 字体对应关键字：Font，通过对其属性进行设置实现特定展现形式

• 字体名称：Name
• 字体大小：Size
• 字体颜色：Color

1. 关于颜色使用RGB(红，绿，蓝)来实现最终配色，取值范围为0~255
2. 对齐方式包括两个部分：水平对齐方式，垂直对齐方式

• 可选择的对齐方式包括：xlCenter，xlLeft，xlRight,xlDistributed，xlJustify
• 关键字：水平对齐方式HorizontalAlignment，垂直对齐方式VerticalAlignment

1. 边框线型使用关键字LineStyle
2. 边框粗细使用关键字Weight，可选值：xlThin，xlMedium，xlThick
3. 边框颜色使用关键字Color，可采用RGB值表示