エクセルの１つのセルの中で。

質問

エクセルの１つのセルの中で、
・あいうえお
・かきくけこ
・さしすせそ
といったように、一番左に・をつけて表示するには、どのようにしたらいいのでしょう？

ひらがな表記で・を押す以外の解決方法はありますか？

よろしくお願いします。

回答No.1

noname#9385 · ベストアンサー

Excelの[書式]－[セル]を選択して
セルの書式設定の画面を出してください。

表示形式のところで、ユーザ定義を選択して
右の種類のテキストボックスに "・"@ と入れてみてください。
これで、文字列を入力すると仰ることが可能だと思います。

お礼

ありがとうございました

回答No.2

imogasi

問題がはっきりしないのですが
（１）A1セルに、あいうえお
　　　A2セルに、かきくけこ
　　　A3セルに、さしすせそ
・・とあるとき
B1セルに、・あいうえお
B2セルに、・かきくけこ
B3セルに、・さしすせそ
と入れたいなら
B1セルに="・"&A1
といれ下方向に複写すれば良い
（２）上と違って、例えばA5セルに
アイウエオ
カキクケココ
サシシスセ
タタタチツテト
と入っているとき（オ、コ、セ、トの後はALT+ENTERで改行）の場合
・アイウエオ
・カキクケココ
・サシシスセ
・タタタチツテト
としたい場合
VBAですが
Sub test02()
sp = 1
s = Cells(5, 1)
s = "・" & s
p01:
p = InStr(sp, s, Chr(10))
If p = 0 Then GoTo p02
s = Mid(s, 1, p) & "・" & Mid(s, p + 1, Len(s) - p)
sp = p + 1
'MsgBox p
GoTo p01
p02:
Cells(5, 3) = s
End Sub
をVBEの標準モジュールに貼りつけて実行すると、上記のようになりました。
A1セルからA5セルまで自動実行する時は
Sub test02()
For i = 1 To 5 '５行目まで
sp = 1
s = Cells(i, 1)
s = "・" & s
p01:
p = InStr(sp, s, Chr(10))
If p = 0 Then GoTo p02
s = Mid(s, 1, p) & "・" & Mid(s, p + 1, Len(s) - p)
sp = p + 1
'MsgBox p
GoTo p01
p02:
Cells(i, 3) = s
Next i
End Sub

お礼

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