Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56738 / 76736

←次へ　｜　前へ→


	【24743】Re:Excelの平均値について

G-Luck - 05/5/6(金) 20:10 -


	引用なし

	パスワード

せなきさん、ちゃっぴさん
こんばんわ。

式で対応してみました。

条件　
データは、Sheet1のA:A列に空白を挟まず入力されている。
データはすべて数字で、A:A列には、データ以外入力されていない。見出しも不可
計算数は、奇数。
計算数は、データの個数を超えない。
結果の出力位置は、データと同じ行にする。

以下を定義してください。

計算数
　=5
　　あるいは、5を入力したセル位置
データ数
　=COUNTA(Sheet1!$A:$A)
データ範囲
　=OFFSET(Sheet1!$A$1,0,0,データ数)
データインデックス
　=MOD(ROW(データ範囲)-ROW(Sheet1!D1)+INT(計算数/2)+1,データ数)
　　Sheet1!D1をセレクトした状態で定義すると↑です。
　　他のセルなら、そのセルのアドレスを$無しで入力してください
平均値
　=AVERAGE(IF((0<データインデックス)*(データインデックス<=計算数),データ範囲,""))

で、結果を出力したいセルに、
=平均値
としてください。

0 hits

▼

【24738】Excelの平均値について せなき 05/5/6(金) 17:05