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