Excel VBA質問箱 IV

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

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


23940 / 76732 ←次へ | 前へ→

【58147】Re:名前をカウントするには
回答  neptune  - 08/10/6(月) 14:12 -

引用なし
パスワード
   ▼nao さん:
>名前が重複する場合は
>2回目以降に出てきた名前はカウントしない条件にしようと思います

アルファベットが含まれているかどうかで悩んでいると見たので、
殆ど検証はしてませんが、簡単なのでセルにアルファベットが含まれているか
どうかを判断するちょっと関数作ってみました。

'使い方
Sub t()
  MsgBox FindAsc(Range("A2"))
End Sub

'セルにアルファベットが含まれているかどうかを判断する
'直接入力か、半角英字の場合のみに対応(と思う)
Public Function FindAsc2(pRng As Range) As Boolean
  Dim sFind As String
  sFind = pRng.Text
  If sFind Like "*[A-Z]*" Or sFind Like "*[a-z]*" Then
    FindAsc = True
  Else
    FindAsc = False
  End If
End Function

#もし使うのならLike 演算子のHelpを使用例も含め隅から隅まで読んで
 から使ってください。

0 hits

【58140】名前をカウントするには nao 08/10/6(月) 9:41 質問
【58141】Re:名前をカウントするには マクロマン 08/10/6(月) 10:22 発言
【58144】Re:名前をカウントするには nao 08/10/6(月) 12:40 発言
【58147】Re:名前をカウントするには neptune 08/10/6(月) 14:12 回答
【58154】Re:名前をカウントするには にぃ 08/10/6(月) 17:08 回答
【58155】Re:名前をカウントするには にぃ 08/10/6(月) 17:46 発言

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