|
▼イチゴ さん:
こんばんは。
>いろいろ調べたけど、やはり、自分の力で出来ませんので、
このいろいろのいろだけでも記述してください。
>早速ですが
>例えば
> 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以外を入力するとエラーになります。
|
|