棒グラフで結果を並べたところに、平均値はここですよという横線を追加したいのですが、どのようにやったらできますか?
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

例データ データはA1:A4のみ


Å列  B列
1248.25
2348.25
4348.25
11548.25
B1に式 =AVERAGE($A$1:$A$4) $が大事
B4まで式複写
A1:B4を範囲指定して、
棒グラフの場合
挿入ーグラフー棒グラフー完了
第2系列のグラフマーカー(棒グラフ部分)をクリック
右クリックーグラフの種類ー折れ線グラフ
左右に伸びない部分があるが、蒸気ではどうしようもない。
ーー
図形の直線を上記の平均線に貼り付け、SHIFTキーを押しながら伸ばすかなどの方法もある。
    • good
    • 1
この回答へのお礼

ありがとうございます。

お礼日時:2007/10/18 21:22

簡単なのは、オートシェイプで平均あたりのとこに


横棒引く方法じゃないでしょうか?

グラフ上であれこれやれば出来るかもしれないけど、
これが一番楽チンな方法な気がします。
    • good
    • 0
この回答へのお礼

描いちゃえばいいというアイデアですね。
ありがとうございます。

お礼日時:2007/10/18 21:22
    • good
    • 0
この回答へのお礼

ありがとうございます。(゜∀゜ )

お礼日時:2007/10/18 21:21

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q曜日別の売上平均値をだしたいです。平日の平均値と土日の平均値です。

初めての質問なので、分かりづらいかもしれませんが、切実に困ってます。
売上の平均値を出したいのですが、関数が思いつきません。
平日の平均値を土日合算の平均値を算出したいです。
エクセルには以下の内容になります。

B1:平日の平均値
B2:土日の平均値

B4:日付開始
B34:日付終了

C4:曜日開始
C34:曜日終了
尚、曜日に関してはWEEKDAY関数をいれており、
日付を「yyyy/mm/dd」で入力すると、自動で算出できるようにしております。

曜日が文字列であるならば、出来るのですが。。


どなたかご教示いただけますでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは!

>尚、曜日に関してはWEEKDAY関数をいれており、
というコトなので、
C列(C4~C34セル)にWEEKDAY関数が入っていて、1~7の数値が表示されている!
と解釈してよいのでしょうか?

どのような式にされているのか判りませんが、C4セルを
=IF(B4="","",WEEKDAY(B4,2))
としC34までフィル&コピーしておくと
B1セルは
=AVERAGEIF(C4:C34,"<6",A4:A34)
B2セルは
=AVERAGEIF(C4:C34,">5",A4:A34)
とすれば大丈夫だと思います。

>曜日が文字列であるならば、出来るのですが
とありますが、文字列でも当然可能です。
ただ、少し式が長くなると思います。m(_ _)m

Qエクセル 重複する値を横に並べ カレンダー化

教えてください。

エクセルで重複する検索値を横にならべる方法を探していて次のサイトを見つけました。

http://excel-forest.net/2016/07/19/not-vlookup/

基本的にやりたいことはこれなんですけど、この表を添付画像の用にカレンダーのように整えることは可能でしょうか?
○でなくても、日付がそのまま記載でもかまいません。

よろしくお願いします。

Aベストアンサー

私は「特に40代・男性」ではありませんが・・・
Sheet2!B2: =IF(SUMPRODUCT((Sheet1!$A$2:$A$14=$A2)*(Sheet1!$B$2:$B$14=B$1)),"○","")

Qエクセル2016で生成後のグラフに平均値を追加する方法

エクセル2016で添付画像左側のようなグラフを作成しました。
このグラフに添付画像右側のようにそれぞれの平均値を追加したいのです。
ご助言いただければ幸いです。

Aベストアンサー

基本的には、平均を出したい行または列を対象に、平均を出す関数で
行または列を追加し、その範囲をグラフに取り込むだけです。
https://infoyandssblog.blogspot.jp/2015/03/excelgraph.html
追加したグラフの種類を[折れ線]にすれば、質問の画像になります。

Qエクセルのグラフ作成について。 棒グラフと積み上げ棒グラフと折れ線グラフ、この3つを合わせた複合グ

エクセルのグラフ作成について。

棒グラフと積み上げ棒グラフと折れ線グラフ、この3つを合わせた複合グラフは作ることはできますか?

棒グラフと折れ線グラフの複合グラフは作れたのですが、それに積み上げ棒グラフもプラスしたいのです。
作り方わかる方いらっしゃいましたら、ご教授くださいm(_ _)m


家計簿をつけていて、収入とボーナスを積み上げ棒グラフ、支出を棒グラフ、収支を折れ線グラフにしたいと思ってます。

もしこの組み合わせ以外で収入と支出、収支がわかりやすくまとめられるグラフの作成方法がありましたら教えていただきたいです。

よろしくお願いします。

Aベストアンサー

支出をマイナスにした作業列を用意するのはダメですか?
支出をマイナスにできるなら、収支以外を積み上げ棒グラフにした
複合グラフにできます。
http://b.pasona.co.jp/keiri/skill_up/908/

Qマクロによって、既に値の入っているセルや空白のセルに値を追加して入れたい

こんにちは

宜しければお力をお貸しください。
A1などのセルにユーザー定義によって数字の1を(1)として入力してあり、B1も(2),C1が空白のセルだとします。

この時、A1:C1の範囲を選択しマクロを実行することで、A1=(1)①、B1=(2)②、C1=③と指定の範囲の既に入力されている値を変えずに追加で丸数字で連番を振る方法を教えて頂きたいです。

Aベストアンサー

No7です。
>条件2の設定で選択したセル1が”(2)”や”(3)”の時でも同様に(2)①、(3)①と表示されるのでしょうか?あまり詳しくないためバカなことを聞いていたらすみません…。

はい。そうなります。
以下のマクロを標準モジュールで登録し、実行してください。
---------------------------------------------------
Option Explicit

Public Sub Macro1()
Dim maru As Variant
maru = Array("○", "①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨", "⑩", "⑪", "⑫", "⑬", "⑭", "⑮", "⑯", "⑰", "⑱", "⑲", "⑳")
Dim sh1 As Worksheet
Dim shw As Worksheet
Dim sName As String
Dim sa As String
sName = ActiveSheet.Name '選択されているシート名
Set sh1 = Worksheets(sName) '選択されているシートをsh1で参照する
sa = Selection.Address '選択されたセル領域を取得
Worksheets.Add after:=Worksheets(Worksheets.Count) '作業用のシートを末尾に追加(作業完了後削除する)
Set shw = Worksheets(Worksheets.Count) '作業用のシートをshwで参照する
shw.Activate '作業用のシートをactivateする
Dim tmp As Variant
Dim i As Long
tmp = Split(sa, ",") 'セルは複数選択されているので","で分割する
For i = 0 To UBound(tmp)
Range(tmp(i)).Value = True '選択されたセルの該当箇所へTRUEを設定(但し作業用シートへ設定)
Next
ActiveCell.SpecialCells(xlLastCell).Select '選択されたセルの最後のセルへ移動
Dim row, col, endRow, endCol, ctr As Long
endRow = Selection.row '選択されたセルの最後のセルの行を取得
endCol = Selection.Column '選択されたセルの最後のセルのカラムを取得
ctr = 0
For row = 1 To endRow '1列から最後のセルの行まで繰り返し
For col = 1 To endCol '1カラムから最後のセルのカラムまで繰り返し
If Cells(row, col) = True Then '選択されたセルの位置なら
ctr = ctr + 1 '番号をカウントアップ
If ctr <= UBound(maru) Then '番号が20以内なら
If ctr = 1 Then '番号が1(先頭のセル)なら
sh1.Cells(row, col) = sh1.Cells(row, col) & maru(ctr) 'そのセルの内容+①を設定
Else
sh1.Cells(row, col) = maru(ctr) '②~⑳を設定
End If
Else
sh1.Cells(row, col) = maru(0) '番号が20を超えているので○を設定
End If
End If
Next
Next
Application.DisplayAlerts = False 'シート削除時の警告を出さないようにする
Worksheets(Worksheets.Count).Delete '作業用のシートを削除
Application.DisplayAlerts = True 'シート削除時の警告を出すようにする(元に戻す)
sh1.Activate '選択されたシートに戻す
End Sub
--------------------------------------------------------------
セルを選択した状態で、上記のマクロを実行してください。
セルの書式は標準にしておいてください。
選択したセルの最初のセルは(1)、(2)、(3)などの文字を格納しておいてください。
入力時、(1)と入力すると-1になってしまうので、'(1)と入力してください。
(1)の前にシングルクオート「'」を付けます。そうすれば、-1と表示されません。

No7です。
>条件2の設定で選択したセル1が”(2)”や”(3)”の時でも同様に(2)①、(3)①と表示されるのでしょうか?あまり詳しくないためバカなことを聞いていたらすみません…。

はい。そうなります。
以下のマクロを標準モジュールで登録し、実行してください。
---------------------------------------------------
Option Explicit

Public Sub Macro1()
Dim maru As Variant
maru = Array("○", "①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨", "⑩", "⑪", "⑫", "⑬", "⑭", "⑮", "⑯", "⑰", "⑱", "⑲", "⑳")...続きを読む

Qエクセルの関数 指定した値の間で、指定した値以上の値を示す、最初の値を求めたい。

こんにちは。

一列目で指定した値の間で、二列目で指定した値以上の値を示す、一列目の最初の値を求める関数を教えてください。

添付した図で、具体的に説明します。
A列に値(時間)、B列に値があります。
この配列の中から、
F4の値(時間)と同じ値(時間)を示すA列の行から、F5の値(時間)と同じ値(時間)を示すA列の行までの中で、
F3の値以上の値(F3と同じ値を含めてF3の値よりも大きい値)がB列にある、A列の値(時間)の内、
A列で上から最初の値(時間)
を求める関数が知りたいです。

どうぞよろしくお願いします。

Aベストアンサー

No.1・2です。

補足を読ませていただいて・・・
大きな勘違いをしていました。

今までの方法はF2セルの値以上の範囲内の最小値と完全一致するA列データが返るはずです。
(今回の画像の配置だと「5」以上の最小値=「5」と一致する「10」が返ります)
No.1・2は無視してください。

本来のご希望はA列範囲内でF2セル以上の値が最初に出現する行のA列データを表示したい!
というコトですよね?

方法は前回同様ですが、数式が長くなりますので、
大前提として、お示しの画像のようにA2セル以降に1からの数値が抜けることなく整数でA列に入っているとします。

F5セル(今回も配列数式です)に
=INDEX(INDIRECT("A"&F3+1&":A"&F4+1),MIN(IF(INDIRECT("B"&F3+1&":B"&F4+1)>=F2,ROW(INDIRECT("A"&F3+1&":A"&F4+1))-F3)))
という数式を入れてみてください。

※ A列データが連続した整数でない(途中の数値が抜けている)場合は
今まで通りMATCH関数で行番号を取得する必要がありますので、
数式はもっと長くなってしまいます。

今度はどうでしょうか?m(_ _)m

No.1・2です。

補足を読ませていただいて・・・
大きな勘違いをしていました。

今までの方法はF2セルの値以上の範囲内の最小値と完全一致するA列データが返るはずです。
(今回の画像の配置だと「5」以上の最小値=「5」と一致する「10」が返ります)
No.1・2は無視してください。

本来のご希望はA列範囲内でF2セル以上の値が最初に出現する行のA列データを表示したい!
というコトですよね?

方法は前回同様ですが、数式が長くなりますので、
大前提として、お示しの画像のようにA2セル以降に1...続きを読む

QEXCELマクロ ピボットテーブルで平均値

 A列~O列にデータがあって、G列に名前、O列に点数が入力されています。列数は変化しませんが、行数が変化します。
 可変する行数で、名前別の平均値をマクロで出すにはどうすればよいですか?
 ネット検索の結果、以下のマクロで合計は出るのですが、平均値が出せません。
 CreatePivotTable(TableDestination:=Range("A3"))のA3の意味も教えていただけないでしょうか。
 よろしくお願いします。

 Sub Macro1()

Dim pvt As PivotTable
Dim rngData As Range

Set rngData = ActiveSheet.Range("A1").CurrentRegion
Sheets.Add
Set pvt = _
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=rngData). _
CreatePivotTable(TableDestination:=Range("A3"))
With pvt
.PivotFields("名前").Orientation = xlRowField
.PivotFields("点数").Orientation = xlDataField

End With

 

 A列~O列にデータがあって、G列に名前、O列に点数が入力されています。列数は変化しませんが、行数が変化します。
 可変する行数で、名前別の平均値をマクロで出すにはどうすればよいですか?
 ネット検索の結果、以下のマクロで合計は出るのですが、平均値が出せません。
 CreatePivotTable(TableDestination:=Range("A3"))のA3の意味も教えていただけないでしょうか。
 よろしくお願いします。

 Sub Macro1()

Dim pvt As PivotTable
Dim rngData As Range

Set rngData = ActiveSheet.Range("A...続きを読む

Aベストアンサー

>(2)で進めたいので、(2)のみで結構です。御教示お願いします。

おっとゴメンナサイね。思いつきでチョコちょこっと書き足したところが誤記だったようです。

誤:
pvt.pivotfields(1).function = xlaverage

訂正:
pvt.datafields(1).function = xlaverage

失礼しました。

Q一定区間(35行)ごとの平均値を出すにはどうしたらいいでしょうか。

エクセルで、
一定区間ごとの平均値を出すにはどうしたらいいでしょうか。

35行毎で、0は含まずカウントもしない。

初級者なので解説もして頂けると幸いです。

Aベストアンサー

ゴチャゴチャ説明無しで、添付図参照
D2: =SUM(OFFSET(A$1,(C2-1)*C$1,,C$1))/COUNTIF(OFFSET(A$1,(C2-1)*C$1,,C$1),">0")
【若干の補足】不明な点があれば[補足]で訊いてください。

Q配列の絶対値の平均値の求め方

ご存知の方ご教示ください。
下記 tap_amp  に取り込んだ値の絶対値の平均値を求めたいのですが良い方法はありませんか?

Cells(TAP_r, TAP_c).Select
Range(Selection, Selection.End(xlDown)).Select

Set myRange2 = Selection
tap_amp = myRange2.Value

tap_amp_ave =

If tap_amp_ave > tap_amp_lim Then TAP = "TAP"
Else
TAP = ""
End If

よろしくお願いいたします。

Aベストアンサー

ご質問で書かれているマクロは、何をしようとしているのか分かりませんので、こちらの回答が思ったように行っていない場合は、言葉による説明が必要です。

しかし、絶対値平均ということでしたら、

関数では以下のようになります。
=AVERAGE(INDEX(ABS(A1:A20),,))

'マクロでは、一例ですが、このようになります。

Sub AbsoluteAverage()
 Dim x, v
 Dim i As Long
 Dim dSum As Double
 'マウスの範囲選択
 If TypeName(Selection) <> "Range" Then Exit Sub
 x = Selection.Value
 For Each v In x
  If IsNumeric(v) Then
   dSum = dSum + Abs(v)
   i = i + 1
  End If
 Next
 MsgBox dSum / i
End Sub

絶対値平均とは、平均値算出の際に正弦波などの正負が逆転したりして、求めたい平均値が出ないときに使うものです。

ご質問で書かれているマクロは、何をしようとしているのか分かりませんので、こちらの回答が思ったように行っていない場合は、言葉による説明が必要です。

しかし、絶対値平均ということでしたら、

関数では以下のようになります。
=AVERAGE(INDEX(ABS(A1:A20),,))

'マクロでは、一例ですが、このようになります。

Sub AbsoluteAverage()
 Dim x, v
 Dim i As Long
 Dim dSum As Double
 'マウスの範囲選択
 If TypeName(Selection) <> "Range" Then Exit Sub
 x = Selection.Value
 For Each v In x
...続きを読む

Qエクセルで#N/Aを含めた平均値を求める方法

エクセルで#N/Aを含めた平均値を求める方法を教えてください。

添付した画像のように入力した数値の平均値を求めたくて『=AVERAGE(B2:B8)』と設定しましたが、算出された平均値が『#N/A』と表示されてしまいます。
これを入力した数値分だけで平均値を求めることはできないでしょうか?

どうぞ宜しくお願い致します。

Aベストアンサー

=AVERAGEIF(B2:B8,">0")
と計算してみて下さい。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報