エクセル電話番号入力について

電話番号をコピペしてるのですが、
文字列に一回一回変更しないと０３－・・・の最初の０が消されてしまいます。

毎回文字列に直すのは面倒なのでいい方法ありますか？

No.4 回答者： imogasi 回答日時： 2005/01/14 06:21

多分コピー元は同一列でしょうが、その列全体の書式を、コピー貼りつけする前に、文字列に設定(注）して、貼りつければ良いのではないですか。

(注）書式－セル－表示形式タブ選択－文字列です。
＃１のお礼欄の＞書式→表示形式がありませんでした・・への注釈でもある。

No.3 回答者： s_yoshi_6 回答日時： 2005/01/14 03:24

書式変更の過程をマクロ登録して、それにショートカットキーを割り当てるという方法ではいかがでしょうか。

手順は以下の通りです。

1）適当なセルを選択。

2）ツール→マクロ→新しいマクロの記録で、適当なショートカットキーを決める。
（※１）Ctrlキーとの組み合わせで、割り当てられていないものを選びます。下記など参考にして下さい。（仮に「ｑ」とします。ただ、ショートカットキーを既にカスタマイズされている場合は別途考慮して下さい）
http://www.excel7.com/excel_shortcut.htm
（※２）マクロの保存先は、電話番号を貼り付けるという作業がそのブックのみであれば、デフォルトの「作業中のブック」でも構いませんが、他でも使われたいのであれば「個人用マクロブック」にしておかれると便利です）

3）セル右クリック→セルの書式設定で書式を文字列に変更。

4）ツール→マクロ→記録終了。（画面上に「記録終了」ツールバーが表示されている場合は「記録終了」ボタン（■）をクリックでも可）

あとは、貼り付ける時に通常Ctrl+ｖのところをCtrl+ｑ→ｖとすれば、文字列として貼り付きます。押すキーが一つ増えるだけなので、それほど手間に感じられることはないのではないでしょうか。なお、もし複数セルにわたって貼り付ける場合には、コピー元と同じだけの範囲を選択した後に同様の操作を行って下さい。

あと、ショートカットキー以外でも、作成したマクロをボタン登録するという方法もあります。下記ページなど参考にして下さい。その場合の手順は、セル選択→ボタンクリック→貼り付けとなります。

7-2 ユーザー設定ボタンにマクロを登録する
http://www.excel7.com/tool_bar.htm#index7-2

参考URL：http://www.excel7.com/excel_shortcut.htm,http://www.excel7.com/tool_bar.htm#index7-2

No.2 回答者： jindon 回答日時： 2005/01/13 23:19

下記コードをコピーして、

エクセル画面のメニューバーの「ファイル」の左隣にある「エクセルアイコン」を右クリックして、「コードの表示」
右側空白部分にコードを貼り付けてＸをクリックしてエクセルが面に戻る。

一桁目に 0 を追加したいセル、または範囲を選択して、
ツール -> マクロ -> マクロ -> ThisWorkbook.add_0 を選択して実行。

選択範囲内で、一桁目に 0 が無いセルに 0 を尽かします。

Sub add_0()
Dim r As Range
With Selection
For Each r In Selection
If Left(r, 1) <> 0 Then
r.Value = "'0" & r.Value
End If
Next
End With
End Sub

No.1 回答者： tokitarou2003 回答日時： 2005/01/13 23:03

入力したいセルにあわせます。

次に書式→表示方式→その他→電話番号を選択すれば問題ないですよ

この回答へのお礼

早速の回答ありがとうございます。
エクセル２０００には書式→表示形式がありませんでした・・・
あと書き忘れたので補足をさせてください。
電話番号はハイフンなしでの入力になります。

お礼日時：2005/01/13 23:22