InStr を使う result = InStr([ start, ] string1, string2 [, compare ]) 引数 引数 目的 start (省略可)検索開始位置。compare を指定した場合は省略不可。 string1 検索対象文字列 string2 検索条件文字列 compare (省略可)検索条件 引数 compare に入る…

VBA での例外処理は以下の様に行う。 On Error Goto ラベル 通常処理 ....ラベル: 例外時の処理 上記の通常処理の終端では通常はExit処理かGotoによるジャンプを行う。 Exit {Sub|Function|For|Do|etc...} Goto ラベル 参照 http://www.taquino.net/cooltaq/…

SpecialCellsでは該当要素が無い場合にメソッドやプロパティを使用すると例外エラーとなる。しかし、Count=0も処理できないのはどうかと・・・。 まぁ、SpecialCells -> Range なのでしょうがないといえばしょうがないのかも知れないが。

なんかよく忘れるのでメモ Select Case 値 Case 比較値1: 処理1 Case 比較値2: 処理2 ... Case Else: 処理x End Select 以下、サンプル（あんまりいいコードじゃないが・・・） Select Case val Case 0: ' 処理なし Case 1: MsgBox "睦月" Case 2: MsgBox "…