- ベストアンサー
郵便番号の-(ハイフン)等をまとめて削除する方法について
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
MID関数を使用すればいいと思います 例 MID([KOUMOKUA],1,3) & MID([KOUMOKUA],5,3) というような感じで 新規のテーブルへ書き出すか 更新クエリーで更新実施すればできます A0001→0001 も MID([KOUMOKUB],2,4) で出来ます
その他の回答 (4)
Excelだったら、リプレイス関数で、 A1にデータが入っているとすれば、 =REPLACE(A1,4,1,"")で消えますよね。 (2)のほうも、同じ要領で =REPLACE(A1,1,1,"")で出来ますが、 これじゃなかったらゴメンなさい。
お礼
どうもありがとうございました。
- imogasi
- ベストアンサー率27% (4737/17068)
VBAでやるなら <郵便番号の-(半角)削除> Sub test01() Dim conn As Connection Dim rs As ADODB.Recordset Dim strSql As String Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Source = "住所録1" rs.Open "住所録1", conn, adOpenKeyset, adLockOptimistic rs.MoveFirst Do Until rs.EOF s = rs!郵便番号 st = 1 p01: p = InStr(st, s, "-") If p = 0 Then GoTo p02 s = Mid(s, 1, p - 1) & Mid(s, p + 1, Len(s) - p) st = p + 1 GoTo p01 p02: rs!郵便番号 = s rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing conn.Close Set conn = Nothing End Sub <「コード」フィールドの先頭1字削除> Sub test02() Dim conn As Connection Dim rs As ADODB.Recordset Dim strSql As String Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Source = "住所録1" rs.Open "住所録1", conn, adOpenKeyset, adLockOptimistic rs.MoveFirst Do Until rs.EOF s = rs!コード s = Mid(s, 2, Len(s) - 1) rs!コード = s rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing conn.Close Set conn = Nothing End Sub
お礼
どうもありがとうございました。
- SAKURAMYLOVE
- ベストアンサー率30% (162/533)
応用編です。 (1)任意の文字数、任意の位置のハイフォンを省く場合、A1にハイフォンを含む文字があるとして、 =LEFT(A1,FIND("-",A1)-1)&MID(A1,FIND("-",A1)+1,LEN(A1)-FIND("-",A1)) (2)任意の文字数に対応して頭一文字をとる場合、A2に頭ひと文字を省きたい文字列があるとして =RIGHT(A2,LEN(A2)-1)
お礼
どうもありがとうございました。大変助かりました。
- sero
- ベストアンサー率47% (916/1944)
1に関しては、テーブルに削除したいデータがあると仮定すると 削除したいレコードを選択(白黒反転)し、「置換(Ctrl+H)」で 「検索する文字列」に「-」、「置換後の文字列」に何も入れずに 「カレントフィールドのみ」にチェックが入っている事と、 「完全に一致するフィールドだけを検索する」にチェックが入っていない事を 確認して「全て置換」でOKです。 2に関してはAccessではなくExcelにエクスポート → Excelで加工 → Accessにインポートの方が簡単では?
お礼
どうもありがとうございました。大変助かりました。
関連するQ&A
- 郵便番号のことで困ってます
こんにちは!お世話になります。 会社でアクセスで作られたシステムを使ってますが、得意先情報をエクセルに落とすと、郵便番号がおかしくなってしまいます。半角で000-0000といった感じで、ハイフンもデータとして登録されているようで、エクセルに落としたときに、ちゃんと「000-0000」と落ちるデータと、おかしなデータが混ざってます。例えば「802-0002」は「-401003」「812-0011」は「-397077」になってます。おかしくなる郵便番号は一緒です。ハイフンが入っていることが良くないように思うのですが、私の推測でしかなく、どうすればよいのかわかりません。 このシステムを作った会社に聞いてみても「わからない」との事で、解決出来ません。(この対応にも納得いかないのですが。。。)何か良い方法をご存知の方、よろしくお願いします。 エクセル、アクセスのバージョンは98です。
- ベストアンサー
- オフィス系ソフト
- 郵便番号のハイフンを入れたい エクセル2000
エクセル2000で文字列のセルに 1234567 のように7桁郵便番号が入っています。 これを 123-4567 のように前から4桁めにハイフンを入れる方法を 教えていただけませんでしょうか。 *データ件数が3万件ほどあり、その変換のためです。
- ベストアンサー
- オフィス系ソフト
- アクセスで郵便番号にハイフンをつけて印刷したい
アクセスの得意な方、教えてください。 データベースの実データはハイフン無しの7桁の 半角数字の郵便番号を印刷する時、 「999-9999」と、3桁目と4桁目の間にハイフンを 入れタイのですが、どうやったらいいか分かりません。 レポートの郵便番号のプロパティの何処でどのように 設定すればハイフン入りで印刷できるのでしょうか?? 教えてください!!
- ベストアンサー
- オフィス系ソフト
- エクセルの郵便番号変換ウィザードでのハイフンをとる
エクセルで作成した住所リストから郵便番号を導き出す機能として、「郵便番号変換ウィザード」を知り、早速変換しました。 しかし、このデータを封筒に差し込み印刷をかけるため、表示される ○○○-○○○○という「真ん中」のハイフンが邪魔になります。 このハイフンをとって、7桁のみの数字にするにはどうすればよろしいでしょうか? それとも、このようなことは不可能でしょうか?? ご教示のほど、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 連番の郵便番号にハイフンをいれたい!(PHP)
いつもお世話になります。 郵便番号ですが、「例:1960033」の様に書かれた フォームにおいて、それを「196-0033」の様に 適切にハイフンを入れて表示させたいです。 正規表現などを利用して、なんとかできないでしょうか? 教えて下さい。 流れ的にはこんな感じです。 もし、郵便番号が7桁の数字だけの場合、普通の ハイフンの入ったものに、したい。 よろしくお願いします。
- ベストアンサー
- PHP
- エクセルのデーターからハイフンを削除したい。
エクセルのデーターの住所の欄に余分なハイフンが入っているのを一括に削除出来る方法があれば教えて頂きたい。 部屋番号用のハイフンが入っています。 この部屋番号用のハイフンだけ1と4の末尾のハイフンだけを削除する方法はありませんでしょうか? 今のデーター 1 1ー2ー3ー 2 1ー2ー3ー101 3 1ー2ー3ー102 4 1ー2ー4ー この様にしたい 1 1ー2ー3 2 1ー2ー3ー101 3 1ー2ー3ー102 4 1ー2ー4 初心者なので宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- 郵便番号の差込印刷でハイフンをつけたい
Wordで郵便番号を差込印刷したときに、間にハイフンを入れたいのです。 ・元のデータはExcelで7桁の数値が郵便番号に入っています。 ・Wordで差込印刷をすると、例えば「1234567」と表示されるところを、「123-4567」というようにハイフンを入れたいのです。 フィールドの編集画面を表示し、###-####なんてやってみましたが、素人考えではだめだとわかりました。 本当はどうやるんでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルにて郵便番号のハイフンを追加したい
エクセル2000にて作業中です。 郵便番号が文字列で「7900007」というように 入力してあります。 これを一括で「790-0007」と ハイフンを追加したいのです。 セルの書式設定のユーザー定義で 「000-0000」としてみたのですが、 ダメでした。 いい方法はありますか。
- ベストアンサー
- オフィス系ソフト
- Excelで置換が意図したようにできない(ハイフンを消したい)
Excel97です。 電話番号のデータからハイフンを取りたいので 置換で検索する文字列に「-」、置換後の文字列に 何も入れないで置換を押したら頭1ケタの0(ゼロ)まで 消えてしまいました。書式設定は文字列にしました。 ハイフンを消す方法は他にもあるとは思いますが、 どうして上記のような現象になってしまうのか 知りたいです。お願いします。
- ベストアンサー
- オフィス系ソフト
- データベース作成について
ただいま、CSVのデータベースを作成していますが、 FAX番号を入力するとアタマの「0」が取れてしまいます。「0」を残す方法を教えてください。 また、もとになるデータのFAX番号にはすべて「-(ハイフン)」が挿入されていますが、このハイフンのみを一括して削除できる方法も併せて教えてください。よろしくお願いします。
- 締切済み
- その他(データベース)
お礼
どうもありがとうございました。大変助かりました。