2013-12-09から1日間の記事一覧
これがSelect Case文です。 Sub test() Select Sheet1.Range("A1").Value Case 1 MsgBox "1です。" Case 2 MsgBox "2です" Case 3 MsgBox "3です" Case "○" MsgBox "OKです" Case "×" MsgBox "NGです" Case Else MsgBox "どれでもありません" End Select End…
これがSelect Case文です。 Sub test() Select Sheet1.Range("A1").Value Case 1 MsgBox "1です。" Case 2 MsgBox "2です" Case 3 MsgBox "3です" Case "○" MsgBox "OKです" Case "×" MsgBox "NGです" Case Else MsgBox "どれでもありません" End Select End…