excelを使用したVBAの問題に関する質問です。

質問

excelを使用したVBAの問題に関する質問です。 下記のサイトの問題13の解答の中で、 http://excel-ubara.com/excel-answer/EXCELVBA613A.html

1，

If InStr(Cells(i, 1), "(") > 0 Then

とありますが、

"(") はどんな意味を表していて、なんなのでしょうか？

2、

StrPref = Left(Cells(i, 1), InStr(Cells(i, 1), "(") - 1)

とありますが、
"(") - 1)のところでなぜ「-1」をしているのでしょうか？

3,

If Left(strPref, Len(strPref) - 1) = strCity Then

のところについて、
ここでもなぜ「-1」をしているのでしょうか？

VBAを始めたばかりの初心者でいて、
理解力が乏しいため

お詳しい方がいらっしゃいましたら、この3点につきまして是非、お教え下さい。

よろしくお願い致します。

回答No.1

mdmp2 · ベストアンサー

Instr(Cells(i,1),"(") は、
Cells(i,1) に文字列が入っており、その中にある ( の位置を表します。

Cells(i,1) にABCDE(12345) という文字列が入っているものとすると、　
( の位置は左から6番目なので、　6という数値を返します。

"(" と、"" でくくるのは文字列であることを表します。
くくらないと、変数とみなされます。

Instr(Cells(i,1),"C") とすると、Cは3番めにありますので3という数値を返します。
Instr(Cells(i,1),C) とすると、Cは変数になりますので、例えばCの値が"C" であれば、同じ結果になります。どこかでC の値を定義しておく必要があります。
なお、( は変数としては使えないでInstr(Cells(i,1),() とすると エラーになります。

Left(Cells(i, 1), InStr(Cells(i, 1), "(") - 1)
は、Cells(i,1) に入っている文字列の左から "(" がある場所の数値から一つ引いた数だけ抽出します。
Cells(i,1)="青森県(あおもり)" の場合、"("は4番目にありますので、左から3文字抽出されますので、"青森県" が抽出されます。
-1 がないと、"青森県(" まで抽出され、余分な "(" が付きます。

Left(strPref, Len(strPref) - 1)
これは、県名の文字列の左から県名の文字数から1を引いた数の文字列を返します。
県名が"青森県"なら、抽出される文字列は"青森"となります。
-1 は都道府県名から"都","道","府","県" と取り除くためです。

お礼

大変に分かりやすいご説明、
ありがとうございました。

回答No.2

imogasi

Instr 関数に関する質問ばかりじゃないか。
Ｇｏｏｇｌｅででも、「ＶＢＡ　ＩｎＳｔｒ関数」で照会して、解説例に基づいた解説がある記事を読むこと。そんなこともしてないではね。
ＶＢＡ　プログラムをやるなら、ＶＢＡの解説した書籍数冊と、ＷＥＢ時事の活用は欠かせないよ。
この辺（関数＝単機能＝定目的のものがほとんど）で質問しているようでは、ロジックなどの勉強はどうするのかな。
ーー
Ｇｏｏｇｌｅで「Instr関数」で照会。
例えば　http://officetanaka.net/excel/vba/function/InStr.htm
ある文字列があって、「（」＝左括弧が最初に現れるまでの文字列の左の部分を取り出したいとき、括弧を見つけた位置の１つ前の文字までをとらえるためー１するのだ。
関数名は、文字列（Ｓｔｒｉｎｇ）の中で（Ｉｎ）（位置を見つける、という意味かな。昔のＭＳＢａｓｉｃ時代からある有名な関数です。
引数に探索開始位置を指示できるので、２つめ以後の該当を見つけるのにも使えて便利な関数です。
例題
Ａ１セルに aadf(aw)ghr　と入れて
Sub test01()
x = Range("A1")
p1 = InStr(1, x, "(")
MsgBox p1
p2 = InStr(p1 + 1, x, ")")
MsgBox p2
y = Mid(x, p1 + 1, p2 - p1 - 1)
MsgBox y
End Sub
を実行で　aw　が出る。括弧内の文字列を抜きだす手法。