■ 検索
シート内の文字列検索
* 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