Excel VBA質問箱 IV

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

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


76350 / 76732 ←次へ | 前へ→

【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

1 hits

【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 お礼

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