Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13569 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   下記のように文字列にカナ文字以外のものがあった場合にＢ列に１を立てたいのですが、
やり方がわかりません分かる方教えて下さいお願いします。


　 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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13569 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free