
No.1ベストアンサー
- 回答日時:
こんにちは。
maruru01です。強引に関数を作ってみました。
1文字でも全角ひらがな・カタカナ・スペース以外があった場合にFalseを返します。
Private Function myCheck(Str As String) As Boolean
Dim temp As String
Dim i As Long
myCheck = True
For i = 1 To Len(Str)
temp = Mid(Str, i, 1)
'全角チェック
If temp <> StrConv(temp, vbWide) Then
myCheck = False
Exit Function
End If
'ひらがな、カタカナスペースチェック
If (temp = StrConv(temp, vbHiragana)) And (temp = StrConv(temp, vbKatakana)) And (temp <> " ") Then
myCheck = False
Exit Function
End If
Next i
End Function
早速の回答ありがとうございます。
StrConvを利用して関数化すればよかったんですねぇ^^;
さっそく組み込んで動作確認してみたところ完璧でした。
更に有効活用できるよう、もう少し勉強してみようと思います( ..)ヾ
No.2
- 回答日時:
テキストボックスの文字列を取得して、
文字列の長さを取得する。
最初の文字から1文字ずつ切り出して、
それぞれの文字のコードが「ひらがな」のコード範囲に収まっているかチェック
これを最後の文字までループして繰り返す
ひらがな以外の文字があったら、
フラグをたてるなり、ループを抜けるなりして、警告メッセージを表示
という手順になるでしょうか。
あとはこれを別ルーチンにして呼び出す形にすれば、
他のコントロールからも使えてもっといいですね。
早速の回答ありがとうございます。
#1の方に回答していただいたように関数を作ればよいみたいです。
確かに、他のコントロールでも使えるようにした方が
今後の展開としても都合がよさそうなので、
そのようにしていきたいと思います。
どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA/ Formatで文字列が...
-
正整数の半角数字かどうか判定する
-
全角カタカナ バリデーション...
-
漢字などを正規表現でパターン...
-
正規表現について
-
禁止文字チェック
-
C#でTextBoxに数値のみ入力可能...
-
CListCtrl の特定のセル(アイ...
-
Access VBAで、数字だけをチェ...
-
VBAによる第3、4水準文字の判定...
-
「終了していない文字列型の定...
-
gas 全角数字を半角数字に変換
-
JSPの処理の途中で、JavaScript...
-
csvファイルを読み込み、該当項...
-
以下のコードを実行しても、オ...
-
HTML上(javascript)からCGIを...
-
リクエスト結果が一瞬しか表示...
-
javascriptでフォルダ内のファ...
-
更新情報がなぜブラウザで更新...
-
デザイン時のVisible=Falseは実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAによる第3、4水準文字の判定...
-
エクセルVBA/ Formatで文字列が...
-
正整数の半角数字かどうか判定する
-
VB.NET2003 テキストボックスに...
-
「終了していない文字列型の定...
-
文字認証の問題
-
エクセル 半角英数6文字以上 ...
-
助けてください!出来ないと解...
-
入力チェック
-
VBを使ってのタイピングについて
-
Visual Basic 6.0 のテキストボ...
-
入力された文字を1文字ずつチ...
-
文字列の検索
-
javascript 文字列の最後から1...
-
メルアドをチェックする正規表現?
-
脳内メーカーや自己紹介工場
-
入力文字を瞬時に変える
-
AccessVBAで教えて下さい。
-
replaceで正規表現を利用したい
-
正規表現
おすすめ情報