| |
▼ichinose さん：
>▼イチゴ さん：
>こんばんは。
>
>
>>いろいろ調べたけど、やはり、自分の力で出来ませんので、
>このいろいろのいろだけでも記述してください。
>
>>早速ですが
>>例えば
>> 1＝あ 2＝い ３＝う 重複ならＳになる。
>> Ａ１に”１”を入力するばＢ１に”あ”というひらがなになる。
>> Ａ２に”２１”を入力すればＢ２に”いあ”
>> Ａ３に”２２”を入力すればＢ３に”いＳ”になる
>> 式はどうゆうふうに書いたら、こんな事になるの？
> では、セルＡ４に222と入力した場合は？
> 以下のコードでは いSいと出力するようにしています。
>標準モジュールに
>'=====================================================
>Function cnvnum(ByVal myvalue As Variant)
> Dim x0 As Long
> Dim f_str As String
> Dim myarray As Variant
> myarray = Array("あ", "い", "う")
> cnvnum = ""
> f_str = ""
> For x0 = 1 To Len(myvalue)
> If Mid(myvalue, x0, 1) = f_str Then
> cnvnum = cnvnum & "S"
> f_str = ""
> Else
> f_str = Mid(myvalue, x0, 1)
> cnvnum = cnvnum & myarray(Val(f_str) - 1)
> End If
> Next
>End Function
>
>として、
>
>セルＡ１に 12と指定してみてください。
>次いでセルＢ１には =cnvnum(a1) という数式を指定して下さい。
>セルＢ１には、あい と表示されるはずです。
>
>尚、セルの書式は標準で試してください。
>
>
>上記のコードは1,2,3以外を入力するとエラーになります。
本当に有難うございました。
でも、私はこの式を見ても全然分からないので、
しかもどこにセルを指定するの？
そして、Ａ１の数値は5桁になる可能性は大きいです
あと、222を入力したら、いＳＳになりたいけど
これはどこに変ったらいいの？
|
|
イチゴ
- 06/11/9(木) 21:06 -
