| |
▼イチゴ さん：
>>標準モジュールに
>>'=====================================================
>>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以外を入力するとエラーになります。
>
>でも、私はこの式を見ても全然分からないので、
ひとつひとつ分からないことを段階を踏んで解決していってください。
でないと全て説明しないとなりませんよね！！
例えば、投稿したＶＢＡコードをどこに貼り付けたらよいか
分からないのか・・・？
もしそうなら、
「ＶＢＡの記述方法」という語句でGoogleで検索すれば、
www.bunsugi.ed.jp/vba4graduate/vba_gaisetsu.htm
このようなサイトで説明を見ることが出来ます。
>しかもどこにセルを指定するの？
ん？数値をひらがなに変換して表示させたいセルに記述したような数式を指定するのです。
>そして、Ａ１の数値は5桁になる可能性は大きいです
>あと、222を入力したら、いＳＳになりたいけど
これは、投稿したコードのどこか一行を削除すれば実現できます。
どこを削除すればよいか？ 現状コードを分析して見つけてください。
その前にまず、上記コードの運用の仕方を調べて取り合えず動作させることを
考えてみてください。
|
|
ichinose
- 06/11/9(木) 22:14 -
