- ベストアンサー
Excel VBA 漢数字を半角算用数字に変換
mt2008の回答
- mt2008
- ベストアンサー率52% (885/1701)
> このように切り分けてありますが、Cellsを持駒(行)に変えればいいのでしょうか Sheet1の内容をSheet2に貼り付けてください。 そして、ANo.4のマクロを走らせると、Sheet2上の漢数字を全て半角数字に変換します。 その後で切り分ければよいかと思います。
関連するQ&A
- 算用数字（半角）から漢数字への変換（エクセル2000）
ワード2000で差し込み印刷をしたいと思っています。 しかし、2000ではエクセルから住所録を読み込む場合、 算用数字を読み込むと横で表示されてしまいます。 そこでエクセル2000で算用数字を漢数字に変換しなければなりません。 算用数字を漢数字に変換するのに簡単な方法はないですか？ 私が考えている方法は、1～9の数字を検索して 漢数字に変換していく方法です。 住所の列だけを対象に一括で変換することはできないのでしょうか？ 全ての範囲を対象とすると一括変換できるのですが、 郵便番号は算用数字のままでいいので、 変換する必要がないのです。 質問が分かりにくいかもしれないですが、 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル2000で、漢数字から算用数字へ変換する関数
算用数字から漢数字へ変換する関数はあるようですが、その逆の漢数字を算用数字に変換する関数ってありますか？ 住所録ですが、 ○○四丁目 ××三丁目 □□２丁目 の表示を、算用数字を用いて統一させたいのですが…、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Ｅｘｃｅｌ 全角数字を半角数字に
エクセルを使ってデータを管理しています。 郵便番号の項目には、500件ぐらい郵便番号が入力されていますが、全角数字で入力されたデータと、半角数字で入力されたデータが混じっていて、見辛いし管理もしづらいです。 関数を使って、全角数字を半角数字に変換する方法はありますでしょうか？
- ベストアンサー
- オフィス系ソフト
- 漢数字を算用数字に変換したい（緊急）
いまwordで漢数字を算用数字に変換したくて困っています。 三十五を３５にしたいのですが何かいい方法ありませんか? アドバイスお願いします。
- 締切済み
- オフィス系ソフト
- wordで算用数字を縦書きにしたい
ワードで縦書きの原稿を書くとき数字は普通漢数字を使いますが、新聞記事などは算用数字が使われていることもたくさんあります。日付などがよい例です。「11月21日」というのをワードで縦書きに入力して変換すると「二十一」とか「二一」のように表記されるくらいです。新聞記事のように算用数字を半角にして「11」と「21」を縦に表記したいのですが、何かよい方法はないでしょうか？
- ベストアンサー
- オフィス系ソフト
- 筆まめで漢数字を算用数字に変換出来ますか？
筆まめでエクセルのデータから、漢数字の住所を算用数字に変換が自動で行えますか？ ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。
- 締切済み
- 筆まめ・はがき作成
- エクセルで数字の変換
エクセル2000です。 ひとつのセルの中に、たとえば「2009年は第1、第5営業部の24名」という文字列があったとします。これを半角一桁の数字のみに限定して全角の数字に変換する方法はないでしょうか？ JIS関数だとすべてが全角になってしまいます。 関数でもVBAでもかまいません。 「2009年は第１、第５営業部の24名」と変換したいのです。 対象が何百もあるので困っています。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Excel2000での算用数値から漢数字への変換
算用数値から関数値の変換をNUMBERSTRING関数で返した時、123457⇒十二万三千四百五十七 （＝NUMBERSTRING(B3,1)）などと返されますが、壱弐参四五七このように返される関数などありますか？教えてください。
- 締切済み
- オフィス系ソフト
- 算用数字の行またがり記述について
算用数字による複数桁の数値を、行をまたがって記述するのは、一般的に正しいのでしょうか? たとえば、 「あきらさんは、1個50円のみかんを8個、1個2 10円のりんごを5個、買いました。」 という文章表現はゆるされますか?
- ベストアンサー
- その他（学問・教育）
お礼
回答いただきましてありがとうございます。 For 行 = 1 To 7 If 持駒(行) = "" Then Exit For 持駒(行) = Replace(持駒(行), "十一", 11) 持駒(行) = Replace(持駒(行), "十二", 12) 持駒(行) = Replace(持駒(行), "十三", 13) 持駒(行) = Replace(持駒(行), "十四", 14) 持駒(行) = Replace(持駒(行), "十五", 15) 持駒(行) = Replace(持駒(行), "十六", 16) 持駒(行) = Replace(持駒(行), "十七", 17) 持駒(行) = Replace(持駒(行), "十八", 18) 持駒(行) = Replace(持駒(行), "一", 1) 持駒(行) = Replace(持駒(行), "二", 2) 持駒(行) = Replace(持駒(行), "三", 3) 持駒(行) = Replace(持駒(行), "四", 4) 持駒(行) = Replace(持駒(行), "五", 5) 持駒(行) = Replace(持駒(行), "六", 6) 持駒(行) = Replace(持駒(行), "七", 7) 持駒(行) = Replace(持駒(行), "八", 8) 持駒(行) = Replace(持駒(行), "九", 9) 持駒(行) = Replace(持駒(行), "十", 10) If Len(持駒(行)) = 1 Then 持駒(行) = 持駒(行) & 1 Next 行 切り分けてから上のように変換して転記していました。