2017年04月07日
ExcelVBA入門,Select Caseステートメントの使い方
おすそわけ村のザクザク長崎カステラ
![](https://www17.a8.net/0.gif?a8mat=2TGFGQ+6KYL36+3BO2+HWAG2)
![](https://www28.a8.net/svt/bgt?aid=170407754398&wid=003&eno=01&mid=s00000015509003017000&mc=1)
![](https://www13.a8.net/0.gif?a8mat=2TGFGQ+6KYL36+3BO2+HYNBL)
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
![](http://blogranking.fc2.com/ranking_banner/b_02.gif)
![にほんブログ村 IT技術ブログ ソフトウェアへ](//it.blogmura.com/software/img/software88_31.gif)
にほんブログ村
Select Case〜ステートメント
If 〜Elseステートメントと似ています。
【構文】
Select Case 変数
Case 値1
変数が値1の場合の処理
Case 値2
変数が値2の場合の処理
Case 値3
変数が値3の場合の処理
Case Else
変数が値1〜値3に満たなかった場合の処理
End Select
![a0002_012127.jpg](/yoshimatsuex/file/undefined/a0002_012127.jpg)
例)
Sub 点数2()
Select Case Sheets("sheet1").Range("b2")
Case Is < 50
Range("c2") = "不可"
Case Is < 75
Range("c2") = "良"
Case Is < 100
Range("c2") = "優"
End Select
End Sub
上記の場合も最初のIf 〜Elseステートメントと同じ結果が得られます。
![a0002_012010.jpg](/yoshimatsuex/file/undefined/a0002_012010-c71e5.jpg)
条件により繰り返したい場合に使用するステートメントですが、
色々ありますので一つずつ行きましょう。
VBAで効率アップしたい時に、一番効果が表れるのがこの繰り返しです。
Excelの作業で同じことを何度も繰り返さなければならない場面に
遭遇することがあると思います。
そのような時に「自動化出来ないか」と考えて、
VBAにたどり着くことが多いと思います。
![](https://www22.a8.net/svt/bgt?aid=160814237355&wid=001&eno=01&mid=s00000014958010005000&mc=1)
![](https://www10.a8.net/0.gif?a8mat=2NQT25+5VCWJ6+37F0+1NKF2P)
4種の「巡る」ハーブエキス配合【メグリスリコピンプラス】
![](https://www12.a8.net/0.gif?a8mat=2NQT25+5VCWJ6+37F0+1NJRXE)
![](https://www17.a8.net/0.gif?a8mat=2TGFGQ+6KYL36+3BO2+HWAG2)
![](https://www13.a8.net/0.gif?a8mat=2TGFGQ+6KYL36+3BO2+HYNBL)
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
![](http://blogranking.fc2.com/ranking_banner/b_02.gif)
![にほんブログ村 IT技術ブログ ソフトウェアへ](http://it.blogmura.com/software/img/software88_31.gif)
にほんブログ村
Select Case〜ステートメント
If 〜Elseステートメントと似ています。
【構文】
Select Case 変数
Case 値1
変数が値1の場合の処理
Case 値2
変数が値2の場合の処理
Case 値3
変数が値3の場合の処理
Case Else
変数が値1〜値3に満たなかった場合の処理
End Select
![a0002_012127.jpg](/yoshimatsuex/file/undefined/a0002_012127.jpg)
例)
Sub 点数2()
Select Case Sheets("sheet1").Range("b2")
Case Is < 50
Range("c2") = "不可"
Case Is < 75
Range("c2") = "良"
Case Is < 100
Range("c2") = "優"
End Select
End Sub
上記の場合も最初のIf 〜Elseステートメントと同じ結果が得られます。
![a0002_012010.jpg](/yoshimatsuex/file/undefined/a0002_012010-c71e5.jpg)
条件により繰り返したい場合に使用するステートメントですが、
色々ありますので一つずつ行きましょう。
VBAで効率アップしたい時に、一番効果が表れるのがこの繰り返しです。
Excelの作業で同じことを何度も繰り返さなければならない場面に
遭遇することがあると思います。
そのような時に「自動化出来ないか」と考えて、
VBAにたどり着くことが多いと思います。
![](https://www10.a8.net/0.gif?a8mat=2NQT25+5VCWJ6+37F0+1NKF2P)
4種の「巡る」ハーブエキス配合【メグリスリコピンプラス】
![](https://www12.a8.net/0.gif?a8mat=2NQT25+5VCWJ6+37F0+1NJRXE)
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/6137827
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック