Excel VBA質問箱 IV

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

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


37675 / 76732 ←次へ | 前へ→

【44219】Re:数字は指定してるひらがなに変更
発言  イチゴ  - 06/11/10(金) 9:46 -

引用なし
パスワード
   本当に有難うございました。
いろいろ試したけど、
すごく使いやすかったです。
でも、40入れたら、0の数値が反応しないです。
その式の中に数値が変ったけど、やはり、無理でした。
どこの辺の式変ったら、0の数値を入れたら、反応できるでしょうか?
又教えてください、お願い致します。

▼awu さん:
>次の手順でテストしてみてください。
>
>1.Alt + F11 で VBE(Visual Basic Editor)を開きます。
>2.VBE のメニューから[挿入] -->[標準モジュール] を指定します。
>3.コードウィンドウに下記コードをコピーして貼り付けます。
>4.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
>5.メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を
> 「中」にして[OK]します。
>
>任意シートのセルB1に =NumtoStr(A1) の計算式を入力します。
>
>これで、セルA1にいろいろ入力してみてください。
>
>・数字以外が混じっても、数字のみを有効とし、他は無視します。
>・半角/全角 とも機能します。
>・数字は、「文字列」も有効とします。 '123 等。
>
>こんな感じで如何でしょうか。
>
>Function NumtoStr(S As Variant) As String
>Dim StrRe As String
>Dim N As Integer
>Dim Num As Integer
>Dim W As Variant
>If Len(S) = 0 Then
>  NumtoStr = vbNullString
>  Exit Function
>End If
>For N = 1 To Len(S)
>  If IsNumeric(Mid(S, N, 1)) Then
>    Num = Val(StrConv(Mid(S, N, 1), vbNarrow))
>    W = Choose(Num, "あ", "い", "う")
>    If Not IsNull(W) Then
>      If InStr(StrRe, W) = 0 Then
>        StrRe = StrRe & W
>      Else
>        StrRe = StrRe & "S"
>      End If
>    End If
>  End If
>Next N
>NumtoStr = StrRe
>End Function

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 回答

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