|
▼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)) <作業域1>
J3:=LEFT(A3,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A3)&1234567890))-1) <作業域2>
私はD3にガマゴオリシ、F3にサカエチョウ、H3に1-1と表出させたいのです。
ihcinoseさんの作ってくださったVBAを実行し、A1,B1,C1の式をドラッグで移動すればできるかとおもっていましたが安易な考えだったと気づきました。
どうすれば表出できるかお教えください。
|
|