Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3805 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60212】数字の検索が上手くいきません。 おぢちゃん 09/2/4(水) 16:56 質問[未読]
【60224】Re:数字の検索が上手くいきません。 めだか 09/2/5(木) 10:12 発言[未読]
【60225】Re:数字の検索が上手くいきません。 おぢちゃん 09/2/5(木) 11:09 発言[未読]
【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
【60224】Re:数字の検索が上手くいきません。
発言  めだか  - 09/2/5(木) 10:12 -
引用なし
パスワード
   ▼おぢちゃん さん：
普通にワークシート上、例えば　D16セルあたりで
CountIf関数を入れるとどうなのでしょう？
【60225】Re:数字の検索が上手くいきません。
発言  おぢちゃん  - 09/2/5(木) 11:09 -
引用なし
パスワード
   ▼めだか さん：
>▼おぢちゃん さん：
>普通にワークシート上、例えば　D16セルあたりで
>CountIf関数を入れるとどうなのでしょう？

ワークシート上ではCountIf関数は対象が文字列､数値の区別無くカウントします。
ただﾏｸﾛ上では対象が文字列の場合(数字であっても)のみカウントするようです。

数値のカウントも可能にしたいのですが,可能でしょうか。

なお前回提示したｺｰﾄﾞは記述の一部を取り出して簡略化したものなので
ワークシート上での処理は避けたいのです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3805 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free