| 
    
     |  | ▼neptune さん: 
 本格的に初歩から勉強したいと常々思っているのですが、どうしても目先の事に追われて中々その時間が取れずにいます。
 
 >チラ見ですが、if文、比較演算子、変数の使い方、オブジェクト参照の仕方、などを使えるようになると、どうって事のないような処理と思います。
 >ちなみに、min,sum,countなどの関数はVBAには用意されてないので、ワークシート関数をVBAで使うか、自前で関数を書くことになります。
 
 
 自分で書いてても気が遠くなるので(汗)、ちょっと関数を短くしてみました。
 
 Sheet2!J2=COUNT(IF((Sheet1!J202:J65536=Sheet2!A2)*(Sheet1!P202:P65536>0)
 ,Sheet1!P202:P65536))
 
 オブジェクトの参照の仕方がイマイチ分かっていないという根本的な問題があるんですけど、取り敢えず単純化して
 
 If Range("J202")=Range("A2") And Rnage("P202")>0 Then
 Range("J2")=Range("P202")
 End If
 
 くらいの事は書けるんですが、
 J202:J65536の中からA2の条件に合うモノを選び、更にその中からP202:P65536が正の数、とか、その辺が分からないんですよね。
 
 時間が押していて、何とかこの集計を早く終えねばならない状況でして、初歩からやれば解決出来るとは思うのですけれど、教えてもらえないでしょうか。
 
 |  |