Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8695 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【31744】ＶＢＡでのセルの数え方 jotoku2005 05/11/29(火) 16:49 質問[未読]
【31747】Re:ＶＢＡでのセルの数え方 ちくたく 05/11/29(火) 16:57 回答[未読]
【31749】Re:ＶＢＡでのセルの数え方 Jaka 05/11/29(火) 17:07 回答[未読]
【31751】Re:ＶＢＡでのセルの数え方 Blue 05/11/29(火) 17:08 回答[未読]
【31744】ＶＢＡでのセルの数え方
質問  jotoku2005  - 05/11/29(火) 16:49 -
引用なし
パスワード
   ＶＢＡでセル数える方法を教えて下さい

　例
　　　
　　　　Ａ
　１　　12
　
　２　　23
　
　３　　44
　
　４　　
　
　５　　56

　６　 　3

　７　　
　
　８　　 2

　上記のＡ１からＡ８までのセルで数値が入力されているセルの個数を
　数えるプログラムと、逆に空白のセルの個数を数えるプログラムを記
　入したいのです。
　だれか知っている方はいませんか
【31747】Re:ＶＢＡでのセルの数え方
回答  ちくたく WEB  - 05/11/29(火) 16:57 -
引用なし
パスワード
   jotoku2005 さん。
こんにちは。
課題ですか？

Sub test()

　　Dim R As Range, myR As Range
　　Dim tmp As Variant
　　
　　Set myR = Range("A1:A8")
　　tmp = Array(0, 0)
　　
　　For Each R In myR
　　　　If R.Value <> "" Then
　　　　　　tmp(0) = tmp(0) + 1
　　　　Else
　　　　　　tmp(1) = tmp(1) + 1
　　　　End If
　　Next R
　　MsgBox "数字が入っていたのは" & tmp(0) & "個のセル" & vbCrLf & _
　　"数字が入っていないのは" & tmp(1) & "個のセル"
End Sub
【31749】Re:ＶＢＡでのセルの数え方
回答  Jaka  - 05/11/29(火) 17:07 -
引用なし
パスワード
   MsgBox Range("A1:A14").SpecialCells(xlCellTypeBlanks).Count

=ROWS(A1:A14)-COUNTA(A1:A14)
【31751】Re:ＶＢＡでのセルの数え方
回答  Blue  - 05/11/29(火) 17:08 -
引用なし
パスワード
   COUNTA関数使っちゃえば？

MsgBox WorksheetFunction.CountA(Range("A1:A8"))

課題だったら出題者の意図とは違うかも。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8695 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free