【Excel VBA】Excelマクロ ～ よく使用する文法編 ～

Excel VBA

 ■ 検索

 シート内の文字列検索

 * Find() => Rangeオブジェクトが返却される

 サンプル：「XXX」を見つける 

worksheet.Columns("A").Find("XXX").Row

 文字列検索

 * InStr()を使用する
  => ある文字列の中から指定した文字列を検索し、
        最初に見つかった文字位置を返却する

 サンプル：「XXX」を見つける 

Dim targetValue As String
targetValue = "abcdXXXefg"
If InStr(targetValue , "XXX") > 0 Then
   Debug.Print "検索結果：" & InStr(targetValue , "XXX")
End If

 ■ シートでループする

Dim targetWorksheet As Worksheet
For Each targetWorksheet In Worksheets
    MsgBox targetWorksheet.Name
Next

参考文献
http://officetanaka.net/excel/vba/speed/s5.htm

 ■ Continue文を実装

* Excel VBAにはないのでGOTO文で代用 
      If 【条件】 Then
         GoTo Continue
      End If
Continue:
    Next

 ■ Try-Catch

On Error GoTo ErrorHandler
    ' エラー発生対象処理
ErrorHandler:
    '-- 例外処理
    MsgBox Err.number & " : " & Err.Description, vbCritical & vbOKOnly, "Error"

参考文献
http://kuroeveryday.blogspot.jp/2014/12/Try-Catch-Finally.html

 関連記事

Excel マクロ ～ 入門編 ～
https://dk521123.hatenablog.com/entry/2015/07/15/104500