|
▼ichinose さん:
>▼イチゴ さん:
>こんばんは。
>
>
>>いろいろ調べたけど、やはり、自分の力で出来ませんので、
>このいろいろのいろだけでも記述してください。
>
>>早速ですが
>>例えば
>> 1=あ 2=い 3=う 重複ならSになる。
>> A1に”1”を入力するばB1に”あ”というひらがなになる。
>> A2に”21”を入力すればB2に”いあ”
>> A3に”22”を入力すればB3に”いS”になる
>> 式はどうゆうふうに書いたら、こんな事になるの?
> では、セルA4に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
>
>として、
>
>セルA1に 12と指定してみてください。
>次いでセルB1には =cnvnum(a1) という数式を指定して下さい。
>セルB1には、あい と表示されるはずです。
>
>尚、セルの書式は標準で試してください。
>
>
>上記のコードは1,2,3以外を入力するとエラーになります。
本当に有難うございました。
でも、私はこの式を見ても全然分からないので、
しかもどこにセルを指定するの?
そして、A1の数値は5桁になる可能性は大きいです
あと、222を入力したら、いSSになりたいけど
これはどこに変ったらいいの?
|
|