可能でしょうか？

質問

A
　 ヤマダタロウ　・・・フリガナ
1　山田太郎　　　

で、「や」だけを認識させることは可能でしょうか。
つまりフリガナの1番目だけをifの判断条件として使いたいのです。

エクセルのフィルタみたいなことＶＢＡで総なめで検出したいということです。

宜しくお願いします。

回答No.2

imogasi · ベストアンサー

質問項目では「ＶｉｓｕａｌＢａｓｉｃ」となっています。また質問文中では「エクセル」の言葉も出てきます。
そして「ＶＢＡで」と出てきます。ということは、エクセルＶＢＡやアクセスＶＢＡ、ワードＶＢＡを念頭においているのですか？これをはっきりさせないと、回答の可能・不可能を左右するぐらい影響があると思います。
エクセルではＡ１セルに「やまだ」と入力し変換して、「山田」と入力したとき、Ｂ１セルに=PHONETIC(A1)といれると、「ヤマダ」と表示され、Ｃ１セルに=MID(B1,1,1)をいれると、Ｃ１に「ヤ」が表示されます。このやり方ではダメですか。
エクセルＶＢＡなら
Sub test01()
Cells(1, "B") = Cells(1, "A").Phonetic.Text
Cells(1, "C") = Mid(Cells(1, "B"), 1, 1)
End Sub
で実現できます。
ＶＢ６．０などだと、ＡＰＩを使わねばならないとおもうので、「できる・出来ない」の答えは出来ないに当たると
思いますが。
「総なめで検出したい」という表現も、ファイル全体という意味でしょうが、私個人的には、全文字や全フィールドや全ファイルをWhile Loopで全数繰り返し聞く（判別する）イメージが強くでるので、一番初等的なロジックをわざわざ指定していることになり、書かずもがなとおもいます。

お礼

早速の回答有難うございます。
imogasiさんには、いつもお世話になってます。

Sub test01()
Cells(1, "B") = Cells(1, "A").Phonetic.Text
Cells(1, "C") = Mid(Cells(1, "B"), 1, 1)
End Sub
が欲しかったのです。「ヤ」だけ欲しいので
Cells(1, "C") = Mid(Cells(1, "A").Phonetic.Text ，1,1）としてもいいですよね。

＞「総なめで検出したい」という表現も・・・・
こういう「高等テクニック」が出来るようになったのもつい最近のことでして、まあ表現云々は、絶対的知識量の違いということでご容赦願います。

今後も同じような質問をするとは思いますが(進歩はしているはず・・・当社比1.5倍くらい）そこはimogasiさんの推察で的確な回答を頂けるものと願ってます。

有難うございました。

回答No.1

2ch

結果的にいうと、無理。

山→や

という情報をもってないとダメ。

だから入力時に振り仮名をつける必要がある。

お礼

どうやら質問の仕方が悪かったらしいです。。