Excel VBA質問箱 IV

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

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


3632 / 13644 ツリー ←次へ | 前へ→

【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)),"* *")


ありがとうございます!
早速試しましたら、セルの数が確認できました。
今後ともよろしくお願いいたします。

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