指定した文字を検索する

サンプルソース

strWord = "abcdeabcdef"

' 文字を検索
Cells(1,1) = InStr(strWord,"s")
' 結果は1

Cells(1,1) = InStrRev(strWord,"r")
' 結果は6

Cells(1,1) = InStr(strWord,"z")
' 結果は0

解説

InStr()は指定文字列を最初から、InStrRevは最後から何文字目かを取得します。
結果が0の場合は文字が見つからないという結果です。




文字操作



Excel VBA講座
VBScriptサンプル集

日付操作
     ...すべてのサンプルをみる



関連リンク
 セル、シート、ブックの参照や操作、
 書式設定に関するサンプル集。
Copyright (C) ExcelVBA@Workshop All rights reserved.