郵便番号で住所入力(エクセル)

 ★ =ASC(LEFT(PHONETIC(B2),8)) ★ 
 ども。アラクリカエシキ(阿良々木)です。
 このあいだ、郵便番号のVBAをちょっとやったので、郵便番号関連の小技を覚書。
 IME>プロパティ>詳細設定>郵便番号辞書にチェックを入れる。
  ↓ B列に全角で郵便番号を入力しキーボードの変換キーを押す。
s-POSTtoADDR.jpg
郵便番号は、ASC,LEFT,PHONETIC関数を使ってA列に表示。
ただの覚書です。ではでわ^^
スポンサーサイト



ひさびさのらくがき

 ★ 更科るか ★ 
 ども。アラクリカエシキ(阿良々木)です。
久々にクリスタ起動して落書きです。
 彼女、お借りしますから、更科るかちゃん描いてみました。
 全然上手く描けません。orz
s-ruka.jpg

郵便番号・・・

 ★ =TEXT(ZipCode,"000-0000")★ 
 ども、アラクリカエシキ(阿良々木)です。
 母が退院するまで期間限定でブログの更新しようと思います。
 で、今日のネタは郵便番号についてです。
 10月にリニューアルしたうちの職場の基幹系システムですが、データをCSVで抜いた際に郵便番号を3列に分けて出力する仕様のようで、例えば、064-0941のような場合↓の図のような感じで頭の0が飛んで上手く連結できないと同僚からヘルプがかかりました。
ziocodesample.jpg
↑のようにTEXT関数を使えばなんてことないのですが、もっといい方法はないかと検索していくつかのぞいてみたのですが・・・
LEFT関数やRIGHT関数を使ったものが多く、北海道とか0から始まる郵便番号ではずれてしまうんですが大丈夫ですか?って思いました。
普通は7桁の数値でCSV出力されることが多いのですが、CSVで"0640941"となっていてもエクセルで開くと大抵は数値「640941」としいて認識されます。
=LEFT(ZipCode,3)&"-"&RIGHT(ZipCode,4)のような式では
640-0941といううようにズレてしまいます。気をつけてくださいね。
それではまた

追記 VBAにするとこんな感じ?

Sub Sample()
Dim i As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
Cells(i, 1).Value = Format(Cells(i, 1).Value, "000-0000")
Next i
End Sub

ziocode2.jpg
でわでは

母が転んで骨折し入院・・・

 ★ 介護からしばらく開放? ★ 
 ども、アラクリカエシキ(阿良々木)です。
 ここのところ、母の介護で忙しくてここ(ブログ)も更新できませんでした。
 しかし、先日母が家の中で転んで骨折し入院しました。
 不謹慎かもしれませんが、結果的に介護から解放されることになってホットしてる自分がいます。
 早く退院できればいいなという思いと、しばらく病院でゆっくりしていてくれればとか・・・
 なんだか思い悩んでしまいます。
訪問者さま
カレンダー
10 | 2020/11 | 12
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 - - - - -
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
郵便番号で住所入力(エクセル) Nov 24, 2020
ひさびさのらくがき Nov 22, 2020
郵便番号・・・ Nov 20, 2020
母が転んで骨折し入院・・・ Nov 19, 2020
参照不可? Oct 20, 2020
基幹システムの入れ替えと使えなくなるファイルメーカー Sep 30, 2020
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
3657位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
140位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム