この計算をワークシート関数を使って行うことができます。 度分秒を上記の Convert_Decimal2 のコードと同じように取り出して計算する例です。 度は =LEFT(A1,FIND(" ",A1)-1) 分は =MID(A1,FIND(" ",A1)+1,FIND("'",A1)-1-FIND(" ",A1))
www.eurus.dti.ne.jp