Ｅｘｃｅｌで、同じ文字を入力する手間を省きたい

質問

Excel９７を使用しています。

Ｃ列に「会員番号」を入力するのですが、
５桁の番号の前に、「０」を５つつけたいのです。

いちいち「０」を打たずに、自動的に頭に５つ
「０」が入るようにしたいのですが…。

「セルの書式設定」の「表示形式」→
「ユーザー定義」で「"00000"#####」とすれば、
一応そのように表示はされるのですが、
数式バーでは「０」は表示されませんよね？
（数字なので…）

でも、実際のセルに「00000XXXXX」と入力
されているようにしたいのです。
（Ｃ列が、他の数式の参照先になっているので）

「表示形式」を「文字列」にしてしまうと、
「０」がなくなってしまいますし…。

関数はあまりよく分からないのですが、
「０」の５つ入った列と、
数字の入った列を「CONCATENATE」でつないで、
後で「形式を選択して貼り付け」→「値」
にすれば一応出来ますが、
もっと手軽にやる方法はないでしょうか？

マクロは全然分からないのですが、
そういったものを使わないと無理なのでしょうか？

回答No.3

papayuka · ベストアンサー

#1です。

文字列は文字ですから通常では自動的には変更出来ません。
C列以外の作業列を設けてC列に関数を入れるか、 =Text(C1,"00000")

マクロを使うかでしょうか。
例えばこんな感じ。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
For Each r In Target
　If IsNumeric(r) And r.Column = 3 Then
　　Application.EnableEvents = False
　　r.NumberFormat = "@"
　　r.Value = Format(r.Value, "0000#")
　　Application.EnableEvents = True
　End If
Next r
End Sub

試すのは新規ブックを開いて、シート名タブを右クリックして「コードの表示」を選び、出てきたところにコピペします。C列に数字を入れると前0の5桁表示にします。

お礼

マクロまで書いて頂いて、
ありがとうございます。

お教え頂いた通りにすると、出来ました！
これでいけそうです。

回答、ありがとうございました。

回答No.2

imogasi

一時余分な１列を使いますが、Ａ１セルには、０００００を省いた文字列を入れ（注）Ｂ１セルに
="00000"&A1と入れれば良いです。
（注）前もってＡ列をＡ１Ａ４０とか範囲指定し、文字列に書式設定して、数字を入力すること。
その後Ｂ列にＢ列を値複写すれば式が消えますのでＡ列を抹消すれば良い。

お礼

それに近いものは考えたのですが、
関数やコピペなどをせずに出来ないか…
と思ったので…。

回答、ありがとうございました。

回答No.1

papayuka

参照式ってのはどんな関数なのでしょう？

文字列で渡されれば良いなら、

C列はセルの書式設定で「0000#」にして
参照する関数の方で

Text(C1,"00000")

のようにすれば良いのでは？

補足

すみません。実は職場の人に
尋ねられたので、どのような参照式なのかは
分からないのです…。

曖昧な質問で申し訳ありません。

関数はあまり詳しくないのですが、
その方法で出来るか試してみます。

しかしやはり、
「文字列として、自動的に同じ文字を頭につける」
というは無理なのでしょうか？