判断 C1 单元格是否为 文本 "PO#" , 如果是则执行 Range("C1") = 100, 如果不是， 则跳出程序， 并用 msg box 显示文本 "你已完成表格整理"。根据这些信息写一段代码

根据您的要求，以下是一段 VBA 代码，用于判断单元格 C1 是否为文本 "PO#"，并执行相应的操作：

Sub CheckCellValue()
    Dim ws As Worksheet
    Dim cellValue As String
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 将 "Sheet1" 替换为你要操作的工作表名称
    
    ' 获取 C1 单元格的值
    cellValue = ws.Range("C1").Value
    
    ' 判断单元格的值是否为 "PO#"
    If cellValue = "PO#" Then
        ' 如果是 "PO#"，将 C1 单元格的值设置为 100
        ws.Range("C1").Value = 100
    Else
        ' 如果不是 "PO#"，显示提示信息并跳出程序
        MsgBox "你已完成表格整理"
        Exit Sub
    End If
    
    ' 这里可以继续执行其他操作
    
End Sub

在这段代码中，我们首先获取了工作表中 C1 单元格的值，并将其存储在 `cellValue` 变量中。然后，我们使用条件语句判断 `cellValue` 是否等于 "PO#"。如果是，我们将 C1 的值设置为 100。如果不是，我们显示一条提示信息，并使用 `Exit Sub` 跳出程序。你可以根据需要在条件语句下方继续编写其他操作。