投稿/コメントを表示します。

エクセルマクロ・VBA発展編１
発展１講座第４章 - Select Case 概要

ゲストさんの投稿

(投稿ID: 1342)

Dim strEv As String
　　Select Case Range("I2").Value
　　Case Is >= 105
　　　　strEv = "超優良店舗"
　　Case Is >= 100
　　　　strEv = "優良店舗"
　　Case Is >= 95
　　　　strEv = "やや問題"
　　Case Else
　　　　strEv = "一層努力"
End Select
Range("J2").Value = strEv

感動しました。これは、即使えますね。ありがとうございます。
2015/05/19 14:38