Excelで、入力文字の後に自動で空白を入れるには

セルに任意の文字を入力し、その後ろに自動で空白を入れる方法を探しています。
具体的には、次のような内容です。

1　セル内は必ず全角10文字にする。
2　A1に「北海道」と入れたとき、B1は「北海道　　　　　　　」と空白が７文字分入る。
3　A2に「青森」と入れたとき、B1は「青森　　　　　　　　」と空白が８文字分入る。

としたいのです。
可能であればBのセルを使わず、Aに入力しEnterを押したらセル内が変わると言うのが理想ですが…
何かいい方法があれば教えて下さい。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2006/07/06 23:15

=A1&REPT("　",10-LEN(A1))

””の中は全角スペース。REPT関数は文字列繰り返し。
１０文字以上はないとします。

この回答へのお礼

こんなに短く、関数だけでできるんですね。いろいろと応用ができそうです。
どうもありがとうございました。

お礼日時：2006/07/06 23:58

No.5 回答者： GreatDragon 回答日時： 2006/07/07 22:24

> これで私の希望がかなったと思うのですが、質問を読み違えたと言うことですが、

> このままだと動作に問題があるのでしょうか。
Ａ列に値を入力しＢ列に全角空白を付加した値を求めるなら、ＶＢＡを利用する必要はありません。
関数で十分です。
Ａ列に入力したセルに空白を付加するのなら、下記のマクロで問題ありません。

> なぜそうなるのか、全く仕組みはわかりませんが
解説が必要ですか？

この回答へのお礼

確かにＢ列と書いていますね。まさか同じセル内でできると思っていなかったので、あのような書き方をしてしまいましたが、意図していたことは教えていただいたＶＢＡでの処理でした。
どうもありがとうございました。

お礼日時：2006/07/12 21:39

No.4 回答者： mike_g 回答日時： 2006/07/07 00:03

=LEFT(A1&REPT("　",10),10)

この回答へのお礼

いろいろな方法があるのですね。どうもありがとうございました。

お礼日時：2006/07/12 21:37

No.3 回答者： GreatDragon 回答日時： 2006/07/06 23:50

＃２です。

質問を読み違えました。無視してください。
大変失礼しました。

No.2 回答者： GreatDragon 回答日時： 2006/07/06 23:41

ご質問の条件をすべて満たすとしたら、ＶＢＡを利用するしかないと思います。

下記のコードを該当シートのコードウインドウにコピペして動作を確認してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 Then
.NumberFormatLocal = "@"
.Value = Left(StrConv(.Value, vbWide) & Application.Rept("　", 10), 10)
End If
End With
End Sub

この回答へのお礼

VBAというものを使ったことが無かったのですが、コピペで思ったとおりの動作ができました。
なぜそうなるのか、全く仕組みはわかりませんがありがとうございました（＾＾；

これで私の希望がかなったと思うのですが、質問を読み違えたと言うことですが、このままだと動作に問題があるのでしょうか。

お礼日時：2006/07/07 00:01