Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23946 / 76738

←次へ　｜　前へ→


	【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を使用例も含め隅から隅まで読んで
　から使ってください。

1 hits

▼

【58140】名前をカウントするには nao 08/10/6(月) 9:41