用vba写一个子程序设置一个名字为py的excel表的第一列的字体为红色

以下是一个使用VBA编写的子程序，用于设置名为“py”的Excel表的第一列的字体为红色：

Sub SetFontColor()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 检查是否存在名为“py”的工作表
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("py")
    On Error GoTo 0
    
    ' 如果工作表存在，则设置第一列的字体颜色为红色
    If Not ws Is Nothing Then
        Set rng = ws.Range("A:A")
        rng.Font.Color = RGB(255, 0, 0) ' 设置字体颜色为红色
    End If
End Sub

要使用此子程序，请按下快捷键Alt+F11，打开VBA编辑器。然后，将上述代码复制粘贴到一个模块中。接下来，可以在Excel中按下快捷键Alt+F8，选择“SetFontColor”并点击“运行”按钮，即可设置名为“py”的Excel表的第一列的字体为红色