[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『縦書きにする方法』(縦)
エクセルの初心者です。
よろしくお願い致します。
たとえば東京都○○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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.