-PR-
締切済み

処理件数

  • 困ってます
  • 質問No.65275
  • 閲覧数130
  • ありがとう数3
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 7% (1/14)

データ処理されて、セル(sheet1)にでてくるデータの件数をカウントして(sheet2)にその件数をだしたいのですが、どういうマクロを組めばよいですか?毎回わかりにくい質問ですいません。
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル5

ベストアンサー率 0% (0/0)

データとは何かが良く分かりませんがもし空白でないセルをデータとするならば 次のようなマクロになると思います。たとえばセルC1からC10の範囲でカウントして sheet2のA1に件数を書くならば Sub カウント() Dim C As Integer 'カウンタ Dim P As Integer 'ポインタ Shee ...続きを読む
データとは何かが良く分かりませんがもし空白でないセルをデータとするならば
次のようなマクロになると思います。たとえばセルC1からC10の範囲でカウントして
sheet2のA1に件数を書くならば

Sub カウント()
Dim C As Integer
'カウンタ
Dim P As Integer
'ポインタ

Sheet1.Select
'Sheet1を選択する
C = 0
'カウンタの初期化
For P = 1 To 10
If Cells(P, 3) <> "" Then
'C1は Cells(1,3) C2はCells(2,3) だから...
C = C + 1
End If
Next

Sheet2.Cells(1, 1) = C
'答えを書く
'A1は Cells(1,1) だから

End Sub
関連するQ&A


  • 回答No.2
レベル9

ベストアンサー率 45% (9/20)

マクロは使用せず、単純にCOUNT関数を利用するというのは いかがでしょう。Sheet2のA1セル等(出力したいセル) に"=COUNT(Sheet1!A1:A65536)としておけば、値の 設定されたセルの個数が得られます。”データ”に 文字列が含まれているのならばCOUNTA関数にする だけです。Office95だと行数が16000くらいまで だったと思いますのでA65536の部 ...続きを読む
マクロは使用せず、単純にCOUNT関数を利用するというのは
いかがでしょう。Sheet2のA1セル等(出力したいセル)
に"=COUNT(Sheet1!A1:A65536)としておけば、値の
設定されたセルの個数が得られます。”データ”に
文字列が含まれているのならばCOUNTA関数にする
だけです。Office95だと行数が16000くらいまで
だったと思いますのでA65536の部分をA16000にすれば
良いでしょう。

また、”データ処理”をマクロで行っているのであれば
そのマクロ内でデータ件数を算出し、最後に以下
を入れればいいでしょう。

Worksheets("Sheet2").Range("A1") = 件数

(yanoqさんと同じでした)
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ