Excel VBA質問箱 IV

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

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


37678 / 76732 ←次へ | 前へ→

【44216】Re:数字は指定してるひらがなに変更
発言  ichinose  - 06/11/9(木) 22:14 -

引用なし
パスワード
   ▼イチゴ さん:
>>標準モジュールに
>>'=====================================================
>>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以外を入力するとエラーになります。
>


>でも、私はこの式を見ても全然分からないので、
ひとつひとつ分からないことを段階を踏んで解決していってください。
でないと全て説明しないとなりませんよね!!

例えば、投稿したVBAコードをどこに貼り付けたらよいか
分からないのか・・・?

もしそうなら、

「VBAの記述方法」という語句でGoogleで検索すれば、

www.bunsugi.ed.jp/vba4graduate/vba_gaisetsu.htm

このようなサイトで説明を見ることが出来ます。


>しかもどこにセルを指定するの?
ん?数値をひらがなに変換して表示させたいセルに記述したような数式を指定するのです。


>そして、A1の数値は5桁になる可能性は大きいです
>あと、222を入力したら、いSSになりたいけど

これは、投稿したコードのどこか一行を削除すれば実現できます。
どこを削除すればよいか? 現状コードを分析して見つけてください。

その前にまず、上記コードの運用の仕方を調べて取り合えず動作させることを
考えてみてください。
0 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 回答

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