设置工作表的单元格格式

在Excel中，可以使用单元格格式设置来改变工作表中单元格的外观。以下是一些常见的单元格格式设置及其使用示例：

1. 数字符号格式：可以将数字格式化为货币、百分比等形式。

示例：将A1单元格的值设置为100，并将其格式设置为货币格式：

Range("A1").Value = 100
Range("A1").NumberFormat = "￥#,##0.00"

2. 字体设置：可以改变单元格中文本的字体、字号、颜色等。

示例：将A1单元格中的文本设置为红色、粗体、大小为16号的字体：

Range("A1").Value = "Hello"
With Range("A1").Font
    .Color = RGB(255, 0, 0)
    .Bold = True
    .Size = 16
End With

3. 对齐设置：可以改变单元格中内容的对齐方式，包括水平对齐和垂直对齐。

示例：将A1单元格中的文本水平居中对齐，垂直居中对齐：

Range("A1").Value = "Center aligned"
With Range("A1").HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
End With

4. 背景色和边框设置：可以改变单元格的背景色并添加边框。

示例：将A1单元格的背景色设置为黄色，添加一个边框：

Range("A1").Value = "Yellow background"
With Range("A1").Interior
    .Color = RGB(255, 255, 0)
End With
With Range("A1").Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .Color = RGB(0, 0, 0)
End With

5. 条件格式设置：可以根据某些条件自动改变单元格的格式。

示例：如果A1单元格的值大于100，则将其背景色设置为绿色，否则设置为红色：

Range("A1").Value = 120
With Range("A1").FormatConditions.Add(xlCellValue, xlGreater, 100)
    .Interior.Color = RGB(0, 255, 0)
End With
With Range("A1").FormatConditions.Add(xlCellValue, xlLess, 100)
    .Interior.Color = RGB(255, 0, 0)
End With

6. 日期和时间格式：可以将单元格中的值设置为日期或时间，并选择其格式。

示例：将A1单元格的值设置为当前日期，并将其格式设置为"yyyy-mm-dd"（例如：2023-01-01）：

Range("A1").Value = Date
Range("A1").NumberFormat = "yyyy-mm-dd"

这是一些常见的单元格格式设置及其使用示例。在Excel中，还有许多其他样式和格式设置可用于美化和自定义工作表。根据需要，可以使用类似的代码来设置其他格式。