[[20141122233404]]　『縦書きにする方法』（縦）　ページの最後に飛ぶ

『縦書きにする方法』（縦）

エクセルの初心者です。
よろしくお願い致します。

たとえば東京都○○1-1-1を横に住所入力しています。
別のシートに縦書きに＝でもって言った場合

 東
 京
 ○
 ○
 1
 -
 1
 -
 1
になってしまいます。
数字を漢字にする方法を教えて下さい。
（横棒も縦に）

よろしくお願い致します。

＜使用 Excel：unknown、使用 OS：unknown ＞

 関数だと私にはできないので、マクロ案
 標準モジュールに
     Function NUMSTRP(a As String) As String
        Dim b, c
        Dim wsf As WorksheetFunction
        Set wsf = Application.WorksheetFunction
        For Each b In Split("0_〇^1_一^2_二^3_三^4_四^5_五^6_六^7_七^8_八^9_九^-_|", "^")
            c = Split(b, "_")
            a = wsf.Substitute(a, c(0), c(1))
        Next b
        NUMSTRP = a
    End Function

 A1に入力されているとして、
 =NUMSTRP(A1)

 でいかがですか？

（稲葉） 2014/11/24(月) 09:10

 もしも「差し込み印刷」と言う事であれば
 ワードで行うと、設定で縦書き用に変換してくれる様です。

 また、2007以降であれば　数式のネストで一つの式で出来ると思いますし
 2003以前であれば、何回かに分けて数式で置換していけば何とかなると思います。
 　
（HANA） 2014/11/24(月) 09:49

関数だとこんなでしょうか。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七"),"8","八"),"9","九"),"0","〇"),"-","|")

（ハイフンは、"―"とか"ノ"の変換も試してください）
（???） 2014/11/25(火) 11:34

コメント返信：

[ 一覧(最新更新順) ]

[[20141122233404]] 『縦書きにする方法』（縦） ページの最後に飛ぶ

[[20141122233404]]　『縦書きにする方法』（縦）　ページの最後に飛ぶ