Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3634 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【61020】セルデータに全角スペースが入力されているセルの数を数える方法 yuna 09/4/3(金) 16:24 質問[未読]
【61022】Re:セルデータに全角スペースが入力されて... Jaka 09/4/3(金) 16:40 発言[未読]
【61025】Re:セルデータに全角スペースが入力されて... yuna 09/4/3(金) 17:19 お礼[未読]
【61054】Re:セルデータに全角スペースが入力されて... Jaka 09/4/6(月) 12:47 発言[未読]
【61055】Re:セルデータに全角スペースが入力されて... yuna 09/4/6(月) 13:36 お礼[未読]
【61023】Re:セルデータに全角スペースが入力されて... つん 09/4/3(金) 16:42 回答[未読]
【61024】Re:セルデータに全角スペースが入力されて... yuna 09/4/3(金) 17:11 お礼[未読]
【61020】セルデータに全角スペースが入力されてい...
質問  yuna  - 09/4/3(金) 16:24 -
引用なし
パスワード
   初めて投稿します。初心者ですがよろしくお願いいたします。
csvに落としたファイルがあり、特定の列に氏名が入力されています。
この氏と名の間にスペースが入力されているセルとスペースが入力されていないセルがあり、氏と名の間にスペースが入力されているセルの数を数えるVBAを教えて下さい。

関数では
=COUNTIF(A1:A5,"　")
で回答がでましたが、VBAでできないかと思い、初心者ながら作成しております。

よろしくお願いいたします。
【61022】Re:セルデータに全角スペースが入力され...
発言  Jaka  - 09/4/3(金) 16:40 -
引用なし
パスワード
   ▼yuna さん：
>この氏と名の間にスペースが入力されているセルとスペースが入力されていないセルがあり
>関数では
>=COUNTIF(A1:A5,"　")
>で回答がでましたが、
？？？？、ほんとに？

同じ事をすると思いますよ。

Msgbox Application.CountIf(Range("A1:A5"),"*　*")
【61023】Re:セルデータに全角スペースが入力され...
回答  つん  - 09/4/3(金) 16:42 -
引用なし
パスワード
   ▼yuna さん
こんちは＾＾


>この氏と名の間にスペースが入力されているセルとスペースが入力されていないセルがあり、氏と名の間にスペースが入力されているセルの数を数えるVBAを教えて下さい。
>
>関数では
>=COUNTIF(A1:A5,"　")
>で回答がでましたが、VBAでできないかと思い、初心者ながら作成しております。

COUNTIFは、VBA内でも使えるんで

　MsgBox WorksheetFunction.CountIf(Range("C1:C7"), "　")

でいいかと思うんですが・・・・

ところで、
一つのセルに「氏＆スペース＆名」の形で入ってるのを（そうですよね？）
=COUNTIF(A1:A5,"　")
これで、数えられる？
【61024】Re:セルデータに全角スペースが入力され...
お礼  yuna  - 09/4/3(金) 17:11 -
引用なし
パスワード
   ▼つん さん：
>▼yuna さん
>こんちは＾＾
>
>
>>この氏と名の間にスペースが入力されているセルとスペースが入力されていないセルがあり、氏と名の間にスペースが入力されているセルの数を数えるVBAを教えて下さい。
>>
>>関数では
>>=COUNTIF(A1:A5,"　")
>>で回答がでましたが、VBAでできないかと思い、初心者ながら作成しております。
>
>COUNTIFは、VBA内でも使えるんで
>
>　MsgBox WorksheetFunction.CountIf(Range("C1:C7"), "　")
>
>でいいかと思うんですが・・・・
>
>ところで、
>一つのセルに「氏＆スペース＆名」の形で入ってるのを（そうですよね？）
>=COUNTIF(A1:A5,"　")
>これで、数えられる？

すみません<m(__)m>
=COUNTIF(A1:A5,"*　*")
の入力ミスです。本当に申し訳ありません。
早速行ってみます。
ありがとうございました。
【61025】Re:セルデータに全角スペースが入力され...
お礼  yuna  - 09/4/3(金) 17:19 -
引用なし
パスワード
   ▼Jaka さん：
>▼yuna さん：
>>この氏と名の間にスペースが入力されているセルとスペースが入力されていないセルがあり
>>関数では
>>=COUNTIF(A1:A5,"　")
>>で回答がでましたが、
>？？？？、ほんとに？
>
>同じ事をすると思いますよ。
>
>Msgbox Application.CountIf(Range("A1:A5"),"*　*")


早速のお返事ありがとうございます。
もう一つ質問されて頂いてもよろしいでしょうか。
例えば入力されている列の最終セルを選択し、上のセルの範囲を自動選択し、
全角スペースが入力されているセルを数える方法はありますでしょうか？
再度申し訳ありませんが、よろしくお願いいたします。

>Msgbox Application.CountIf(Range("A1:A5"),"*　*")
【61054】Re:セルデータに全角スペースが入力され...
発言  Jaka  - 09/4/6(月) 12:47 -
引用なし
パスワード
   >>Msgbox Application.CountIf(Range("A1",Range("A65536").End(xlUp)),"*　*")
【61055】Re:セルデータに全角スペースが入力され...
お礼  yuna  - 09/4/6(月) 13:36 -
引用なし
パスワード
   ▼Jaka さん：
>>>Msgbox Application.CountIf(Range("A1",Range("A65536").End(xlUp)),"*　*")


ありがとうございます！
早速試しましたら、セルの数が確認できました。
今後ともよろしくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3634 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free