VBA select单条判断

Sub select单条判断()

  Select Case Sheet1.[c1].Value

  Case "A"

  Sheet1.[A3] = "不怎么样"

  Case "B"

  Sheet1.[A3] = "也不怎么样"

  Case "AB"

  Sheet1.[A3] = "还是不怎么样"

  Case "O"

  Sheet1.[A3] = "O型血的你，不错"

  Case Else

  Sheet1.[A3] = "不知道的血型"

  End Select

End Sub

©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容