Excel VBA質問箱 IV

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

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


13567 / 13644 ツリー ←次へ | 前へ→

【4799】文字列検索 フェラーリ 03/4/8(火) 11:23 質問
【4804】Re:文字列検索 ポンタ 03/4/8(火) 12:05 回答
【4806】Re:文字列検索 フェラーリ 03/4/8(火) 13:17 質問
【4807】Re:文字列検索 ポンタ 03/4/8(火) 13:27 回答
【4808】Re:文字列検索 フェラーリ 03/4/8(火) 13:51 お礼

【4799】文字列検索
質問  フェラーリ  - 03/4/8(火) 11:23 -

引用なし
パスワード
   下記のように文字列にカナ文字以外のものがあった場合にB列に1を立てたいのですが、
やり方がわかりません分かる方教えて下さいお願いします。


  A             B

センAター          1
コウベ
シズオカケン シズオカ7シ   1

【4804】Re:文字列検索
回答  ポンタ  - 03/4/8(火) 12:05 -

引用なし
パスワード
   関数にしてみました。

標準モジュールに以下のコードを貼り付けてください。

すべて全角カタカナなら True 、
全角カタカナ以外の文字が含まれていると False を返します。

=IF(All_katakana(A1),"",1)

というように使ってみてください。

Function All_Katakana(MyStr As String) As Boolean
  Dim i As Integer
  Dim MyAsc As Integer
  All_Katakana = True
  For i = 1 To Len(MyStr)
    MyAsc = Asc(Mid(MyStr, i, 1))
    If MyAsc < &H8340 Or MyAsc > &H8396 Then
      All_Katakana = False
      Exit Function
    End If
  Next
End Function

【4806】Re:文字列検索
質問  フェラーリ  - 03/4/8(火) 13:17 -

引用なし
パスワード
   ご回答ありがとう御座います。
説明不足でしたので追加質問させて下さい。
対象カナは半角カナを対象にしたい為、半角カナのコード教えだ頂きたいのですが。
また、半角括弧等も追加したい為、どちらかにコード表があれば教えて欲しいのですが
よろしくお願い致します。

【4807】Re:文字列検索
回答  ポンタ  - 03/4/8(火) 13:27 -

引用なし
パスワード
   VBAのヘルプがインストールしてあれば、
「ASCII 文字セット」としてコード表が載っています。

"質問"に「ASCII 文字セット」と入力して
検索してみてください。

【4808】Re:文字列検索
お礼  フェラーリ  - 03/4/8(火) 13:51 -

引用なし
パスワード
   ポンタさん
ありがとうございました。m(__)m

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