主题：当系统日期大于A列的日期时，B列显示未过期，小于则显示过期

如果只是显示，可以写到drawcell事件

Select Case e.Col.Name
    Case "B列"
        If e.Row("A列") > Date.Today() Then
            e.Text = "未出售"
        Else
            e.Text = "出售"
        End If
End Select