人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセル2007を使っています、マクロでしたいのですが
セルに郵便番号が6649875と言うように‐ハイフン抜きで入って居ます
マクロでハイフンを入れたいのですがどうしたらいいでしょう

●質問者: chatora
●カテゴリ:コンピュータ
✍キーワード:エクセル セル マクロ 郵便番号
○ 状態 :終了
└ 回答数 : 6/6件

▽最新の回答へ

1 ● inthegroove
●19ポイント

マクロというか、関数でできますよ。

A1にデータが入ってるとして、

=LEFT(A1,3)&"-"&RIGHT(A1,4)

です。

http://q.hatena.ne.jp/1289272081

◎質問者からの返答

他のセルにハイフンが入った物が出て来るのではなく

数値の入っているセルでは出来ませんか


2 ● a-kuma3
●16ポイント

「マクロで」ってことでしたが、数式でできます。

A1 に郵便番号が入ってるとして、↓のような感じ。

=MID(A1,1,3) & "-" &MID(A1,4,7)

http://dummy/

◎質問者からの返答

他のセルにハイフンが入った物が出て来るのではなく

数値の入っているセルでは出来ませんか


3 ● inthegroove
●16ポイント

http://q.hatena.ne.jp/1289272081#answer_form

コメントがつけれないので再回答です。

書式設定でも出来ますよ。

書式 → セル → 表示形式 → その他 → 郵便番号

です。


4 ● SALINGER
●29ポイント ベストアンサー

マクロでということで、変更する範囲を選択して実行すればハイフンが入るマクロです。

0で始まる郵便番号で数値になって0が消えている郵便番号も保管するようにしました。

また、数値以外のセルはハイフンを入れません。


Sub Macro()
 Dim r As Range
 Dim str As String
 
 For Each r In Selection
 str = Format(r.Value, "0000000")
 If IsNumeric(r.Value) Then
 r.Value = Left(str, 3) & "-" & Mid(str, 4)
 End If
 Next
End Sub

http://q.hatena.ne.jp/

◎質問者からの返答

良い感じです


5 ● a-kuma3
●17ポイント

今度もマクロではありませんが、表示形式でいけると思います。

数値で入ってるとして、

セルの書式設定 → 表示形式 → ユーザー定義 で、「種類」のところを

000-0000

としてください。

http://dummy/


1-5件表示/6件
4.前の5件|次5件6.
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ