Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


37680 / 76732 ←次へ | 前へ→

【44214】Re:数字は指定してるひらがなに変更
質問  イチゴ  - 06/11/9(木) 21:06 -

引用なし
パスワード
   ▼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になりたいけど
これはどこに変ったらいいの?

1 hits

【44211】数字は指定してるひらがなに変更 イチゴ 06/11/9(木) 19:48 質問
【44212】Re:数字は指定してるひらがなに変更 ichinose 06/11/9(木) 20:29 発言
【44214】Re:数字は指定してるひらがなに変更 イチゴ 06/11/9(木) 21:06 質問
【44216】Re:数字は指定してるひらがなに変更 ichinose 06/11/9(木) 22:14 発言
【44217】Re:数字は指定してるひらがなに変更 awu 06/11/9(木) 22:53 回答
【44219】Re:数字は指定してるひらがなに変更 イチゴ 06/11/10(金) 9:46 発言
【44254】Re:数字は指定してるひらがなに変更 awu 06/11/10(金) 22:18 発言
【44257】Re:数字は指定してるひらがなに変更 イチゴ 06/11/10(金) 23:11 発言
【44258】Re:数字は指定してるひらがなに変更 06/11/11(土) 0:21 発言
【44260】Re:数字は指定してるひらがなに変更 awu 06/11/11(土) 1:10 回答
【44264】Re:数字は指定してるひらがなに変更 イチゴ 06/11/11(土) 13:44 お礼
【44226】Re:数字は指定してるひらがなに変更 りん 06/11/10(金) 12:29 回答

37680 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free