No.3ベストアンサー
- 回答日時:
質問の答えと違うかもしれませんが、私も以前同じような事をしたことがあります。
郵便局の「郵便番号」CSVデータをダウンロードして、そのデータを使って都道府県を更新する方法です。
1.住所の郵便番号のダウンロードサイト
http://www.post.japanpost.jp/zipcode/dl/kogaki.h …
(旧郵便番号,郵便番号,カナ都道府県名,カナ市区町村名,カナ町域名,都道府県名,市区町村名,町域名・・・などの内容データです)
全国一括 (1,718,560Byte) をダウンロードする。
注意事項:ダウンロードデータは、CSV(可変長データ)形式のファイルをlzh形式で圧縮して保存しております。
ご使用になられるコンピュータに適合した解凍ソフトをご用意いただき、解凍の上ご使用ください。
2.解凍したCSVファイルをインポート。
※もし、自分側の郵便番号が"-"を含む8桁(000-0000)ならインポートした郵便番号は7桁(0000000)ですので同じに変えておく必要があります。
その場合は、更新クエリーで 郵便番号を Left([郵便番号],3) & "-" & Right([郵便番号],4) で変更して下さい。
3.更新クエリー(キー:郵便番号)で「都道府県」フィールドを更新する。
以上です。
ご回答ありがとうございます。
地道な方法ですが、確かにこれで求めていた作業ができました!
ありがとうございます!
ただ、ひょっとして他の手段を教えてくださる方がいらっしゃるかもしれないので、
もう少しだけ締め切らないでおこうと思います。すいません。
No.4
- 回答日時:
郵便番号変換関数のユーザー関数です。
Officeの住所入力支援用辞書Advzip.dicを使って出来ます。ちょっと長いですが・・。下記を標準モジュールにコピーしてください。
Option Compare Database
Option Explicit
Private Declare Function zcGetZipDecision Lib "MSYubin7.dll" _
Alias "GetZipDecision" _
(ByVal ZipCode As String, _
ByVal szKen As String, _
ByVal szCty1 As String, _
ByVal szCty2 As String, _
ByVal szTwn As String, _
ByVal szTwnExt As String) As Long
Private Declare Function zcYubin7 Lib "MSYubin7.dll" _
Alias "yubin7" _
(ByVal szAddress As String, _
ByVal szZipCode As String, _
ByVal szBarCode As String) As Long
Private Declare Sub zcSetHyphenMode Lib "MSYubin7.dll" _
Alias "SetHyphenMode" (ByVal HyphenMode As Integer)
' ------------//列挙定数宣言部//-------------
Public Enum enmOcyanZip
zcHyphenOn = -1 ' 郵便番号のハイフンモード設定
zcHyphenOff = 0
zcAll = -1 '全て(既定値)
zcKen = 0 '都道府県名
zcCty1 = 1 '市1名
zcCty2 = 2 '市2名
zcTwn = 3 '町名
zcTwnExt = 4 '町域以降
zcArray = 5 '要素数5の一次元配列
End Enum
Public Function OcyanZip( _
source As String, _
Optional ByVal flag As enmOcyanZip = -1) As Variant
' 変数宣言部
Dim oZip As String * 10 '郵便番号用バッファ
Dim oKen As String * 40
Dim oCty1 As String * 40
Dim oCty2 As String * 40
Dim oTwn As String * 40
Dim oTwnExt As String * 500
Dim asRet(4) As String ' 住所用配列
If source = vbNullString Then
OcyanZip = IIf(flag = zcArray, asRet, vbNullString)
Exit Function
End If
' 郵便番号→住所変換
If Val(source) Then
Call zcGetZipDecision(source, oKen, oCty1, oCty2, oTwn, oTwnExt)
asRet(0) = Left$(oKen, Instr(oKen, vbNullChar) - 1)
asRet(1) = Left$(oCty1, InStr(oCty1, vbNullChar) - 1)
asRet(2) = Left$(oCty2, InStr(oCty2, vbNullChar) - 1)
asRet(3) = Left$(oTwn, InStr(oTwn, vbNullChar) - 1)
asRet(4) = Left$(oTwnExt, InStr(oTwnExt, vbNullChar) - 1)
Select Case flag
Case zcKen To zcTwnExt
OcyanZip = asRet(flag)
Case zcArray
OcyanZip = asRet
Case Else
OcyanZip = Join(asRet, vbNullString)
End Select
' 住所→郵便番号変換
Else
Call zcSetHyphenMode(flag)
Call zcYubin7(source, oZip, vbNullString)
OcyanZip = Left$(oZip, InStr(oZip, vbNullChar) - 1)
End If
End Function
クエリのフィールドで
住所:OcyanZip([郵便番号])
とすると変換できます。
都道府県のみの場合は
都道府県:OcyanZip([郵便番号],0)
定数宣言部で宣言している都道府県にあたる定数0を指定します。
住所から郵便番号にも変換できます。
簡単です。
御礼が遅くなり申し訳ありません。
回答ありがとうございました。
「標準モジュール」を触ること自体が初めてだったので
かなり緊張しましたが、なんとかできました!
確かにこれも簡単でした。ありがとうございました。
No.2
- 回答日時:
郵便番号をテーブルに入力と同時に、府県名を出すのはやさしい。
郵便番号ー府県名ー住所のフィールドを作っておく。
テーブル
デザインビュー
府県名 をクリック
標準タブ をクリック
住所入力支援 をクリック
郵便番号のボックスの▼をクリック 郵便番号(フィールド)
都道府県と住所の2分割 をチェック
都道府県 府県名(フィールド)を選ぶ
住所 住所(フィールド)を選ぶ
完了
テーブルに入力すると府県名フィールドに府県名が即座に入る。
既に入力が終わっている郵便番号フィールドに対し、上記と同じことをやるのはできるか考えてみます。
No.1
- 回答日時:
この回答への補足
早々のご回答、ありがとうございます。
早速試してみましたが、これは「郵便番号を1件1件入力すると
自動的に住所入力もできる」というユーティリティですよね?
私がしたいのは、他のデータからインポート(数万件)された
郵便番号フィールドの値から一斉に住所入力(都道府県だけ)したい、
ということなのです。説明が足りず、すいませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 郵便・宅配 郵便局の電話番号ってなぜ1つの局ってだけでナビダイヤルかつ自動音声なのですか? 本社へのコールセンタ 2 2023/02/05 00:06
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- 銀行・ネットバンキング・信用金庫 ゆうちょ銀行に口座を持つ方、ゆうちょ銀行に詳しい方に聞きます。 9 2023/08/03 20:24
- MySQL 下記の問合せを行うクエリを、PhpMyAdminで作成して実行せよ。 日本の全市区町村を人口密度が低 1 2023/06/18 19:51
- 政治 道州制について。 「道州制」と一口にいっても様々あり、都道府県を残すか廃止するか、立法権も与えるか否 1 2022/11/17 19:16
- Excel(エクセル) 【Excel】住所に郵便番号を付記する方法 3 2022/05/07 17:15
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- 警察・消防 組織上は都道府県警察は、都道府県の機関ですが、都道府県(知事、議会)は警察にたいして、実際どれくらい 1 2022/06/22 23:40
- 郵便・宅配 北海道版の日刊スポーツとスポーツ報知を購入しましたが1週間以上たっても届きません。 1 2023/02/28 21:34
- 警察・消防 各都道府県警察本部の相談窓口一覧を見てますが… 東京在住の場合、警察本部名と電話番号を 教えて頂けま 1 2023/02/15 02:44
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
沖縄は何地方?
-
ピボット 都道府県コード順に並...
-
日本は47都道府県あります。 都...
-
テレワークで会社が把握できる...
-
ゆうパック:依頼主の住所と発送...
-
都道府県名の省略
-
夏休みの宿題で都道府県調べが...
-
Accessクエリ 複数フィールドを...
-
住所どこ宛てですかって聞かれ...
-
Accessの入力フォームで...
-
エクセル 都道府県順にしたい
-
エクセルで利用できる全国版の...
-
NTTとNTTコミュニケーシ...
-
政令指定都市のある県とない県...
-
EXCEL ピボットテーブルで並べ...
-
みかんの生産地といえば、愛媛...
-
いい加減な人間性の人が多い都...
-
主要地方道と一般県道との違いは?
-
宿題で兵庫県について調べています
-
都道府県の形は何のよう?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
沖縄は何地方?
-
ピボット 都道府県コード順に並...
-
テレワークで会社が把握できる...
-
Accessクエリ 複数フィールドを...
-
「居住地域」は一般的にどこま...
-
淡路島に似た大きさや形の都道...
-
都道府県名の省略
-
ゆうパック:依頼主の住所と発送...
-
「A、B、C及びD以外」とはどう...
-
エクセルで利用できる全国版の...
-
日本は47都道府県あります。 都...
-
こんにちは。 いずれ就職で自分...
-
Accessの入力フォームで...
-
都道府県社会福祉協議会に勤め...
-
救急安心相談センターの# #7119...
-
北海道はどうして「道」なので...
-
知名度が低い都道府県ベスト10
-
主要地方道と一般県道との違いは?
-
Access2002 郵便番号から都道府...
-
いい加減な人間性の人が多い都...
おすすめ情報