[[20030904062745]]　『住所録の三－八八などを３－８８のように』（masabou５）　ページの最後に飛ぶ

『住所録の三－八八などを３－８８のように』（masabou５）

ユーザー定義関数を使って、住所録の三－五－八八などを３－５－８８のように
　漢数字を算用数字に変換する方法を教えて下さい。

 ユーザー定義関数があるのなら、それを普通に関数を使うのと同じようにセルに
 関数名を入れればいいのです。

 関数がないので、そのヒントをくれというのなら、

 Function k2num(ByVal Kan As String) As String
 Dim Suji As String, I, N As Single
 Suji = ""
  For I = 1 To Len(Kan)
    N = InStr("一二三四五六七八九〇", Mid(Kan, I, 1))
    If N = 0 Then
      Suji = Suji & Mid(Kan, I, 1)
    Else
      Suji = Suji & Mid("1234567890", N, 1)
    End If
  Next I
  k2num = Suji
 End Function

 です。

 Alt + F11 ⇒　挿入　⇒　標準モジュール
 で、白紙のところへ、上のコード入力
 Alt + F11
 です。関数名　k2num です。

 例⇒　=k2num(A3)

 (通りすがりの者）

 k2numという名前の付け方を見ると[通りすがりの者]さんが
 職業プログラマだとわかってしまいます。
 （私も同類プログラマ・kazu）

 そんなに言われるとすごくうれしいのですが、ぼくは、プログラマーに
 なりたいなりたいと思っているプログラマーもどきで、残念なことに、プロでは
 ありません。実質的にもやはりプロの人には負けるので、ぼくは、パールや
 ジャバスクリプトは書けるのですが、Java は書けないのです。子供に、いつも馬鹿に
 されています。昔は C もよく使いましたが、正直言って、このごろのオブジェクト
 志向にはついて行ききれていません。（通りすがりの者）

質問者のmasabou５です。

[通りすがりの者]さん、早速のご回答、ありがとうございました。
お恥ずかしいのですが、式の簡単な解説をお願いできませんでしょうか？

もことに申し訳ありません。よろしくお願いします。

InStr というのは、割と古典的な関数ですが、find と同じようなものです。こちらは見つからないとゼロを返します。find の場合はご存知のように、見つからないとエラーを返します。

この関数を使って、問題のセルを１文字ずつ調べて、文字が漢数字であれば、対応する算用数字に変えます。漢数字以外の文字なら、変換しないで、元の文字をそのまま使います。

変換した（または漢数字じゃなかったために元の文字をそのまま使った）文字を、Suji という変数に足しこんでいって、関数の終わりに、このSujiという変数の中身を戻り値として返すのです。

変換のメソッドは、当該文字が"一二三四五六七八九〇"という文字列の中で、何文字目に当たるのかを InStr 関数で調べて、４文字目なら、"1234567890" という文字列のうち４文字目の文字、つまり４を返すのです。

まったく下手な説明ですみません。k2num という関数名は、Kansuji to NUMber の意味です。k2num の２は to のことなのです。（通りすがりの者）

masabou5です。

[通りすがりの者]さん、本当にありがとうございました。

マクロ初心者なので、もっともっと勉強します。
また、いろいろ教えて下さい。

先ずは御礼まで。

 メインの課題は解決しそうなので、少し横道に。

 [通りすがりの者]さんへ
 Perl やJavaScript が使えるなら、Javaもそれほど違いはありません。

 オブジェクト指向は私も悩まされましたが、
 基本は自分でしないで済む事は他人[クラス]に任せるということです。

 クラスに処理を頼んだら、あとは知らないですむわけです。
 サブルーチンと基本的に違うのはクラスを呼び出して、あと返ってこないことです。

 必要なら、再度クラスに対して、お伺いをたてればよいのです。

 少しえらそうに書きましたが。
（kazu）

 そうだそうですね。クラスというものになじんだら、あとはどうにかなるでェと、
 子供にも言われています。おそらく、近い将来、やらざるを得ない状況に遭遇する
 だろうと思います。その時を楽しみにしております。またその節は、いろいろお世話に
 なるかもしれません。

 なるほど、クラスですか。おかげさまで、また一歩、java に近づいて行く感じです。
 （通りすがりの者）

コメント返信：

[ 一覧(最新更新順) ]

[[20030904062745]] 『住所録の三－八八などを３－８８のように』（masabou５） ページの最後に飛ぶ

[[20030904062745]]　『住所録の三－八八などを３－８８のように』（masabou５）　ページの最後に飛ぶ