Excel VBA質問箱 IV

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

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


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

21909 / 76734

←次へ　｜　前へ→


	【60212】数字の検索が上手くいきません。

おぢちゃん - 09/2/4(水) 16:56 -


	引用なし

	パスワード

検索してみましたが該当しそうなトピックが見当たりませんでした。
…当たり前の事すぎるのでしょうか…

ユーザーフォームを使い,セルC16からC500に入力されている記号を検索し
その個数を表示させようとしています。

対象セルに文字が入力されている場合は正常にカウントし表示されますが
数値が入っていると表示は"0"となってしまいます。
どの設定に不具合があるのでしょうか？

御教示ください。
*********************************************************************

Private Sub Cb検索_Click()

Do Until MyDlg = False
Frm記号検索.Show
Loop

'記号検索
　
Dim myKigou As Variant
　myKigou = Txt記号
　
　If Txt記号 = "" Then
　　 Txt個数 = ""
　Else
　　　Txt個数 = Application.WorksheetFunction.CountIf(Range("C16:C500"), Txt記号)

End If

End Sub

2 hits

▼

【60212】数字の検索が上手くいきません。 おぢちゃん 09/2/4(水) 16:56

≪