[[20031124140454]]　『数字を漢数字に変換』（マサ）　ページの最後に飛ぶ

『数字を漢数字に変換』（マサ）

 すでに入力されている住所録を下記のように変換したいのですが
どんな関数を使えばいいですか
東京都足立区1-1
　　　↓
東京都足立区一-一

お願いします

 文字列をアラビア数字から漢数字に一気に変換する関数はありません。
 SUBSTITUTE関数で逐一「1→一」等と変換していく方法はありますが、
 「12→十二」などとする場合は至難です。
 IMEによる再変換のほうが早そうです。
 （セル選択→F2→Shift+←で番号部分を範囲選択→変換キー）
 (KAMIYA)

 数字だけなら [11 とか 123] なら
 =NUMBERSTRING()
 で出来ますが、ハイフン混じりは無理のようですね。

 過去ログの
https://www.excel.studio-kazu.jp/z_old_log/01.html#u10
 [10] 漢数字に表示形式を変更できますか 投稿者：ミクロ 投稿日：00/10/15(Sun) 14:21
 に、ユーザー関数が有るようです。　どなたが作ったのでしょう？？　　　（jun53）

 > [10] 漢数字に表示形式を変更できますか 投稿者：ミクロ 投稿日：00/10/15(Sun)

 どきっ。
 3年前の私の書き込みではないですか。
 えらいものが出てきましたね。

 千とか百とか十とかを求められると、とほほ。

 ハイフンを削って、表示形式の[DBNum1]G/標準でやるしかないのでは。
https://www.excel.studio-kazu.jp/lib/e3g/e3g.html#suti

 おっと。これでは表示するだけですから、変換にはなりませんね。
 （kazu）

 NUMBERSTRING は偶然見つけたもので正確にはわかりません。
 Excel2000 ではヘルプにも無いようなので。。

 NUMBERSTRING(セル番地 , タイプ)　　 引数のタイプは　1, 2, 3 で指定出来る。

 [例]
   123	=NUMBERSTRING(A1,1)        百二十三
   123	=NUMBERSTRING(A1,2)        壱百弐拾参
   123	=NUMBERSTRING(A1,3)        一二三
 のようです。

 まだまだ　[過去]　をほじくります。。。ん　　　（jun53）

 少し試してみましたが、VBA側でうまく動きませんね。

 Sub suji2kanji()
 suti = 3776
 'ret = WorksheetFunction.Text(suti, "[DBNum1]G/標準")
     ' 結果：M/標準
 'ret = Format(suti, "[DBNum1]G/標準")
     ' 結果：M/標準
 'ret = WorksheetFunction.numberstring(suti, 2)
     ' 結果：実行時エラー 438 オブジェクトは、
     ' このプロパティ又はメソッドをサポートしていません
 MsgBox ret

 End Sub

 あらら、ニックネームを忘れてました、kazuでーす。

 もちろん許可など取っていませんが（汗）。
 （ramrun）お昼～

 英数字<->漢数字に変換する
http://ryusendo.no-ip.com/cgi-bin/ykwk2/wiki.cgi?ExcelVBA#i5

 こちらは [事務局勝手の勝手代理] です。　もちろん無許可。

 ↑↑Sub suji2kanji()  ご提供の方、ニックネームをお願いします。

 ↑の方（ramrun）さん、Web 　リンク切れですよ？　　　（jun53）

 勝手に修正（ケン）

 [ケン]さん[jun53]さんに[事務局代行]を許可します。

 ついでにもう一つお願いがあります。

 タイトル行のあと改行していない書き込みに[ケン]さんがレスを書く場合は

 改行してあげてください。

 （kazu）

 了解しました。junさん一緒にやりましょう～。（ケン）

コメント返信：

[ 一覧(最新更新順) ]

[[20031124140454]] 『数字を漢数字に変換』（マサ） ページの最後に飛ぶ

[[20031124140454]]　『数字を漢数字に変換』（マサ）　ページの最後に飛ぶ