hide_kichiの情報

気になる情報,その他役立つ情報をアップしていきます

【VBA】文字を検索、分解

1.変数の文字を検索する関数【instr】です。

n = InStr(1, work_s1, work_s2)

        InStr ( 開始位置 , 変数 , 検索する文字)
Do While n > 0
cnt = cnt + 1
n = InStr(n + 1, work_s1, work_s2)
Loop

ソースは以下です。

------------------------------------------------------------------------------   dim work_s1 as string   dim work_s2 as string   work_s1 = "AAA:BBB:CCC"   work_s2 = ":"   cnt = 0 n = InStr(1, work_s1, work_s2)   Do While n > 0     cnt = cnt + 1 '検索した件数     n = InStr(n + 1, work_s1, work_s2)   Loop ------------------------------------------------------------------------------

2.文字で分割する関数【split】です。

sp_s = Split(work_s, ":")

       Split( 変数 ,分割する文字)

ソースは以下です。

------------------------------------------------------------------------------   Dim sp_s As Variant   dim work_s as string   dim s1 as string   dim s2 as string   sp_s = Split(work_s, ":") s1 = sp_s(0) s2 = sp_s(1) ------------------------------------------------------------------------------

結構使いますので記録しておきます。