| 
    
     |  | ここを利用するのは初めてなので、不躾な点があったらご容赦下さい。 早速ですが、質問致します。
 
 
 Sheet1のA列の数字を検索して、Sheet2にその結果を集計したいです。
 例えば、
 
 「Sheet2のA1が正の数字の個数、Sheet2のB1が負の数字の個数、Sheet2のC1が正の数字の合計、Sheet2のD1が負の数字の合計、Sheet2のE1が最小値」
 
 といった形に集計したいのです。
 Sheet2のA1〜B1がCOUNTIF関数、C1〜D1がSUMIF関数、E1がMIN関数になります。
 この際、検索範囲は全部同じになるので、一々範囲を指定するか、Sheet2のA1に入力されている検索範囲をコピペして集計する事になると思います。
 今の作業内容としては、Sheet2のA1の検索範囲をコピーして、B1以降のセルに予め入れておいた計算式の中から、検索範囲をマウスで選択してペースト…というのを手作業でやってます。
 これが実に面倒な作業で、出来ればF1辺りに検索範囲を入力しておけば(例えば「Sheet1!A2:A12」とか)、ボタン1つでA1〜E1に入っている関数が勝手に検索範囲を参照して結果を出してくれる・・・みたいな事は可能でしょうか?
 
 
 'F1に「Sheet1!A2:A12」と入力されている
 x=Range("F1")
 A1=COUNTIF(x,">0")
 B1=COUNTIF(x,"<0")
 C1=SUMIF(x,">0",x)
 D1=SUMIF(x,"<0",x)
 E1=MIN(x)
 
 
 イメージ的にはこんな感じになると思うんですが、コードが分かりません。
 出来れば、計算式そのものをセルに入れたいので「WorksheetFunction.CountIf」では無い方が望ましいです。
 
 よろしくお願いします。
 
 |  |