【VBA】like演算子 続き

こんにちは

今回もLike演算子について語っていきます。

cellsでIf文を使うにはfindプロパティを使用すれば事足りるでしょう。

しかしながらファイル名やシート名を検索するならLikeを使用した場合がよいと思われます。

試しに以下の様なシートがある場合で見てみましょう。

この状態で"Sheet名"が一桁のものを操作したい場合、以下のプログラムで実行することができます。

サンプルプログラム

Sub test()     Dim i As Long     For i = 1 To Sheets.Count         If Sheets(i).Name Like "Sheet#" Then             MsgBox Sheets(i).Name         End If     Next i End Sub

1～2行目：省略

3行目：シート数の数だけ繰り返すFor文の開始

4行目：シート名がSheetと数字一桁の場合

6行目：シート名をメッセージボックスで表示

7行目：If文の終わり

8行目：変数iを返す

9行目：プロシージャの終了

こんな感じですね。

ちなみにSheet*にするとシート名がSheetで始まるものすべてが選択されます。Sheet1*にするとSheet1とSheet11が選択されます。

[a-z]や[0-9]はあまり使いませんね。

話は変わりますが、引越しはある程度終わりました

とはいえ洗濯機と冷蔵庫が無い状態ですがｗ

つめたい飲み物が飲みたいｗ