• ベストアンサー

Excel VBAで判定しカウント

kazzanovの回答

  • kazzanov
  • ベストアンサー率27% (5/18)
回答No.2

こんな感じ? for i=10 to 16  if range('A'&i)=0 then   count=count+1  endif next

taktta
質問者

お礼

いろいろ手法がありますね。とても参考になりました。 どうもありがとうございました。

関連するQ&A

  • 2003EXCEL「○」の個数のカウント

    2003EXCELの「○」の個数のカウントについて質問したいのでよろしくお願いいたします。  例えば10個のセルの中で、○印が入っているセルがいくつあるかを  カウントしたいのですが可能ですか?  数値が入っていて、例えば3以上の数値が入っているセルのカウント  であれば設定方法が載っていたのですが、数値ではなく特定の文字の  場合はどうすれば良いのかが解りません。   よろしくお願いいたします。

  • エクセルのカウント

    エクセルを使ったカウントをしたいのですが、どなたか関数を使ったよい方法教えていただけないでしょうか。 値項目に連続して入力されているセルの個数を、カウント項目に出力したいのです。 ここで注意したいのが、出力する箇所は55の開始場所に出力したいことと、 値項目に入力されている値は、55か空白のみになります。 どうかよろしくお願いいたします。

  • エクセルのセル内の数字をカウントしたい・・

    エクセルのカウントについて教えて下さい。 「5,6,7」や「10,11,15,20」などのように書かれたセルがあります。 カンマで区切られた数字の個数を自動的に数え別のセルにその結果を書き出したいのですが、 エクセルの数式だけでできますか? できればVBAは使いたくないと思います。 例:「5,6,7」なら"3" 、 「10,11,15,20」なら"4"と言う感じです。 よろしくお願いいたします。

  • Excel VBA セルの値を変更後にVBA作動

    Excel VBAを活用して、特定のセルの値が変更されたときに、VBA処理を発動させることになりました。 処理といたしましては、C列(3列目)の4行目以下の空白セルに数値を入力するか、セルに入力されている数値を変更した場合にVBAを発動させたいです。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Row >= 4 Then MsgBox "セルの値が更新されました" End If End Sub 上記のコードを実行してみたところ、3列目(C列)の4行目を選択した段階でVBAが作動してしまいます。 セルの値変更後に作動するようにするには、どう修正すればよろしいでしょうか?

  • 文字の種類によって、数値をカウントしたいのですが、

    エクセル オフィスXPです。 1:あるセルに”○”と入力したら、あるセル(B1)に”1”をカウントし、 2:あるセル(1とは別のセル)に”×”と入力したら、あるセル(B1)に”-1”をカウントし、 3:あるセル(1,2とは別のセル)に”△”と入力したら、あるセル(B1)に”0.5”をカウントするようにしたいのですが、 そういったIF文の作り方がわかりません。 こうやって、違うセルに、"○"、”×”、”△”を入力し、数値を足したり引いたりして、 合計の数値を出したいと考えています。 多分IF文ではないかと思うのですが、どういったものを作ればいいのか わからず、(キーワードなどもわからず検索しようにもわからない状態) 教えていただきたく、お願い申し上げます。 宜しくお願いします。

  • カウントについて

    エクセルをつかってカウント処理を考えています. どなたかアドバイス頂けないでしょうか。 下記のような表があります. 例えば、セルA1~3まで100とあり、セルA4~5まで400とセルA1~3とセルA4~5の数値はおなじです。3行分だったり2行分だったりと不規則コードが下に続いていきますが,まとまった数値になります. そのA列の同じコード番号全てに対して、B列にカウント数を入力したいのです。 B列のカウント数入力箇所は、セルA1~3までだとするとセルB3に最大値のカウント数がくるようにしたいのです。 コード  カウント数      100              100               100      3        200               200      2        500               500               500               500      4       

  • エクセル オートフィルタで摘出したデータだけをカウントしたい vba

    エクセルでオートフィルタして摘出したデータをカウントしたいのですその結果をVBAのメッセージボックスで表示させてたいです。 オートフィルタについては、シート上で自ら条件を出しますので、ただカウントだけしたいです。 カウントさせるセルはA列の10番から110番です。 データは数値です お忙しいところどなたかご教授ください

  • エクセルVBAの記述について

    OSはWin98、エクセル2000です。 次の処理をVBAで処理したいのですがうまく作動しま せん。 ご教授願います。 セルA1から下に向かって1から20までランダムに数 値が入ってます。 同じ数値は無く、数値も3行(セルA3)で終わる場合 も有ります。 この場合セルC1から下に向かって順にA1&A2、A 1&A3と記述したいのですが・・・ 例) A1に5、A2に7、A3に15、A4に10でしたら C1に57、C2に515、C3に510、C4に715 C5に710、以下・・・と記述 よろしくお願いします。m(_ _)m

  • エクセルのカウントについての質問です。

    エクセルのカウントについての質問です。 2つのセルが一致する場合のみの個数をカウントしたいのですが どの様な式になりますでしょうか? 例えば    A    B 1.リンゴ  ¥200 2.梨    ¥200 3.リンゴ  ¥210 4.トマト  ¥200 5.洋梨   ¥200 6.リンゴ  ¥210 7.リンゴ  ¥200 の場合で ¥200のリンゴの個数だけをカウントするには どの様になりますでしょうか お手数ですが宜しくお願いします。

  • Excel VBA セルを指定個数ランダム選択

    Excel VBA セルを指定個数ランダム選択 A1からA30までのセルをランダムで8コ選んで値として"○"を入れる ということをやりたいのですがどのようにすればよいでしょうか? よろしくお願いします。