[[20051005202752]]　『文字列で入力して文字間を自動で空けるには？』（yumi）　ページの最後に飛ぶ

『文字列で入力して文字間を自動で空けるには？』（yumi）

文字列で「あああ」として「あ　あ　あ」としたいのです。
「あ」の次にスペースを押すのでなはなく自動的にできませんか？

[エクセルのバージョン]
Excel2000

[OSのバージョン]
WindowsXP

 書式 → セル
 【配置】の「横位置」を
 均等割り付け（インデント）

 では、外してますか？
 （キリキ）(〃⌒o⌒)b

(キリキ）さん　ご回答ありがとうございます
私の質問の仕方が悪かったようですいません

文字の間に１文字分のスペースが自動で出来ないでしょうか？
「あああ」「あ＿あ＿あ」としたいのです

 横から失礼します。
 数字なら
 ユーザー定義書式で
 0 0 0
 でいけますが、文字列になると
 わかりません。
 マクロなら可能とは思いますが・・・。
 書式設定ではだめ、ならマクロになると思います。
 (MARBIN)

別なセルに置き換えるのであれば関数使い可能だとおもいまが。
例えばその"あああ"がC13にあるとして別に表示場所を変更してもよければ
=LEFT(C13,1)&" "&MID(C13,1,1)&" "&RIGHT(C13,1)&" "
で表示だけはかえられますが、表示形式の変更だけでは無理かな?
(悩む子)

 マクロです
1)該当シートのシート見出しを右クリック->「コードの表示」
2)右空白部分に下記コードをペースト、xをクリックして閉じる

 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rng As Range, i As Integer, txt()
 Set rng = Range("a1:a10")  '<-- 範囲指定
 If Target.Count > 1 Then Exit Sub
 If Intersect(Target, rng) Is Nothing Then Exit Sub
 If Len(Target) > 1 Then
     Application.EnableEvents = False
     Target = CStr(Target)
     ReDim txt(1 To Len(Target))
     For i = 1 To Len(Target)
         txt(i) = Mid(Target, i, 1)
     Next
     Target = Join(txt, Chr(32))
     Erase txt
     Application.EnableEvents = True
 End If
 End Sub

(seiya)

（悩む子）さん　(seiya)さん　ご指導ありがとうございます。
助かりました。
　==yumi==

コメント返信：

[ 一覧(最新更新順) ]

[[20051005202752]] 『文字列で入力して文字間を自動で空けるには？』（yumi） ページの最後に飛ぶ

[[20051005202752]]　『文字列で入力して文字間を自動で空けるには？』（yumi）　ページの最後に飛ぶ