Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44449 / 76735

←次へ　｜　前へ→


	【37304】Re:カナで読み仮名を表示するには

にしもり - 06/4/28(金) 15:13 -


	引用なし

	パスワード

▼ichinose さん：
頭をひねりましたがわからないのでご教示ください。
私の作っているシートをすこし詳しく述べますと以下のとおりです。

A3:住所を入力するセル（例、愛知県蒲郡市栄町1-1)　
B3:=LEFT(A3,4-SUM((MID(A3,3,1)={"都","道","府","県"})*1))
C3:=IF(B3="東京都",IF(COUNT(FIND({"東村山","武蔵村","羽村市"},LEFT(I3,3))),LEFT(I3,FIND("市",I3)),LEFT(I3,MIN(FIND({"市","区","町","村"},I3&"市区町村",2)))),IF(COUNT(FIND({"今市市","四日市","八日市","廿日市"},LEFT(I3,3))),LEFT(I3,FIND("市",I3,FIND("市",I3)+1)),IF(IF(COUNT(FIND({"蒲郡市","大和郡","小郡市"},LEFT(I3,3))),"市",IF(COUNT(FIND({"余市郡","高市郡"},LEFT(I3,3))),"郡",MID(I3,MIN(FIND({"市","郡"},I3&"市郡",2)),1)))="市",IF(COUNT(FIND({"札幌市","仙台市","さいた","千葉市","横浜市","川崎市","名古屋","京都市","大阪市","神戸市","広島市","北九州","福岡市","静岡市","堺市"},LEFT(I3,3))),LEFT(I3,FIND("区",I3)),LEFT(I3,FIND("市",I3,2))),LEFT(I3,MIN(FIND("郡",I3))))))
D3:=myphonetic(C3)
E3:=RIGHT(J3,LEN(J3)-(LEN(B3)+LEN(C3)))
F3:=myphonetic(E3)
G3:==MID(A3,FIND("町",A3)+1,LEN(A3))
H3:=myphonetic(G3)
I3:=RIGHT(A3,LEN(A3)-LEN(B3))　＜作業域１＞
J3:=LEFT(A3,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A3)&1234567890))-1)　＜作業域２＞

私はD3にガマゴオリシ、F3にサカエチョウ、H3に1-1と表出させたいのです。
ihcinoseさんの作ってくださったVBAを実行し、A1,B1,C1の式をドラッグで移動すればできるかとおもっていましたが安易な考えだったと気づきました。
どうすれば表出できるかお教えください。

0 hits

▼

【37181】カナで読み仮名を表示するには にしもり 06/4/25(火) 11:18