売上高と利益を年度毎に縦棒にするグラフを作成しています。


年度      2005、 、2006、 、2007、 、2008、 、
●サービス売上  100、 、100、 、 120、 、 123、 、
▲サービス売上  150、 、120、 、 110、 、 120、 、
利益        、20、  、30、 、10、  、15、


という表を作成して積上げ棒グラフを作成しました。
(●と▲は積上げた一本のグラフです)

現在のグラフは2本の棒が離れて立っており、1本分のスペースが開いて、次の棒が立っている、とういう状態です。
より一層見やすくする為に、この立っている2本の棒を並べて(間にスペースを入れずに)表示したいと思います。

色々調べたのですが、エクセル2007の場合は

「グラフツール>グラフツール>レイアウト>現在の選択範囲から
  系列"XX"と表記されているものを1つ選択>書式設定>要素感覚を0%に」

という方法があるようですが、同じ作業はエクセル2000でも出来るのでしょうか?
出来ないのであれば、どのような形で2つの棒を並べる(隙間無く)ことが出来ますか?

どなたかエクセルに詳しい方御教授下さい。

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

A 回答 (3件)

棒の上で右クリック


データ系列の書式設定―オプション―棒の間隔―0―OK
でできるでしょう。
    • good
    • 0
この回答へのお礼

無事できました!
ありがとうございます。

お礼日時:2009/11/11 14:49

棒グラフの棒1本1本が系列ですから、


棒1つの上で、右クリックして、「データ系列の書式設定」を択び
「オプション」タブをクリック、「棒の間隔」で0を指定。
棒の重なりは他データのグラフとの重なり。
ーーー
積み上げの方向を質問でははっきりしないようだが、言っているのは「元のデータ」で「列」で良いのかな。
    • good
    • 0
この回答へのお礼

質問がわかりにくくて申し訳ありません。
棒の間隔「0」で解決しました。
ありがとうございました!

お礼日時:2009/11/11 14:50

Excel2000でも可能です。



グラフの棒の間隔を変更する
http://www.cybozu.net/cpt/moug/item_00564.html

ただし、提示されたグラフでは年度間も間隔がなしになります。
年度間の間隔は開ける場合は、元のデータ表で、年度間に空白のセルを挿入してみてください。
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
無事解決しました。

お礼日時:2009/11/11 14:50

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

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

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

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

Qギターなど楽器の音をスピーカーから出すためにつなぐ線・・

ギターなど楽器の音をスピーカーから出すためにつなぐ線(ケーブル)を何と言うのか教えてください。

Aベストアンサー

ギターとギターアンプをつなぐ線の事を
シールドケーブル、もしくは単にシールド、と言いますね。

QExcelのグラフウィザードにて2つの積上げ棒の作り方を教えてください。

質問
Excelの積上げ棒を2つ並べたいです。
1つの品物に対して
2つの積上げ棒を作るのは可能でしょうか?

詳細
品物名(A列)|粗材数(B列)|加工途中数(C列)|完成数(D列)|当月注文数(E列)|次月注文数(F列)|次々月注文数(G列)|
品物A    |10        |20          |30        |20        |10          |5
品物B    |20        |10          |5        |10         |10          |25





という一覧があります。
グラフウィザードの積上げ棒を使用して(出来れば縦の積上げ棒で)
X軸:品物
Y軸:個数
で表を作りたいと考えています。

並びとしては
品物Aの積上げ棒1=粗材+加工途中+完成
品物Aの積上げ棒2=当月注文数+次月注文数+次々月注文数

品物Bの積上げ棒1=粗材+加工途中+完成
品物Bの積上げ棒2=当月注文数+次月注文数+次々月注文数




という感じに並べたいです。
この様に並べられれば全部の材料と注文数をパッと見で比較出来ると思っております。

この様な並べ方を教えてください。

質問
Excelの積上げ棒を2つ並べたいです。
1つの品物に対して
2つの積上げ棒を作るのは可能でしょうか?

詳細
品物名(A列)|粗材数(B列)|加工途中数(C列)|完成数(D列)|当月注文数(E列)|次月注文数(F列)|次々月注文数(G列)|
品物A    |10        |20          |30        |20        |10          |5
品物B    |20        |10          |5        |10         |10        ...続きを読む

Aベストアンサー

画像を間違えたので再掲載  (-"-)

QアンプとCDプレーヤーをつなぐ線

こんばんは、
アンプとCDプレーヤーをつなぐ線
のことをなんというのですか?
ちなみに…、
DENONのPMA1500R(2)とDCD755(2)を
つなぐのだったらどんなものがよいのでしょうか?
おしえてください、よろしくおねがいいたします。

Aベストアンサー

名称は「RCAピンコード」です。種類は50円位の物から数万円の物まで、長さも様々です。アンプとCDプレーヤーを繋ぐのでしたら赤(右)と白(左)の2色(2本)になっている「オーディオ用」と称されている物が良いでしょう。もう一色、同じ形で黄色が入っている3本の物はビデオやDVDなどの映像機器用です。これでも使えますが黄色の線は遊ばせておく事になります。又、先端のプラグが金メッキになっている物、内部の銅線の不純物が少ない高級な物が有りますが、これは接触抵抗、内部抵抗が少なく、音質を重視する場合にはこちらを選んでみて下さい。

Q積上げ縦棒グラフの積上げの順序を逆にしたい

Excel2003です
積上げ縦棒グラフを作っていますが
表をABCと作ったのですが
縦棒グラフに上からCBAと積上げられています
上からABCと積上げる方法を教えてください

Aベストアンサー

Question
積み上げ棒の構成データの順序を変えたいんだけど・・・
http://jisenjuku.hp.infoseek.co.jp/free/060626.htm
ご参考になれば。

Q名称質問です(TVとアンテナをつなぐ線)

こんばんは、
TVとアンテナをつなぐ線(ちょっと太い線)の正しい
名称を教えてください。
よろしくお願いいたします。

Aベストアンサー

黒いやつですよね。

同軸(どうじく)ケーブル
っていいます。

QEXCELのグラフ作成について(前期、今期の売上と粗利を一つのグラフに纏めたい)

エクセルのグラフ作成について質問します。

A列に担当者名(20行あります)
B列からM列に今期の 売上 が4月~3月の順でデータが入っています。
N列からY列に前期の 売上 が4月~3月の順

Z列からAK列に今期の 粗利 が4月~3月の順
AL列からAW列に前期の 粗利 が4月~3月の順

上記のデータを元に

①担当者別にグラフを作成する(合計20個のグラフを作成する)
②今期の売上を 今期4月売上 今期5月売上 ~ 今期3月売上 の順番にて縦棒グラフとして作成
③今期の粗利を ②の縦棒グラフの右側に同じ順番にて配置
④前期の売上を ②の縦棒グラフの位置に折れ線グラフとして作成
⑤前期の粗利を ③の縦棒グラフの位置に折れ線グラフとして作成

といったグラフを作成したいと考えています。しかしどのように作成すればいいのかまるで頭に浮かんできません。

詳しい方がいらっしゃいましたら作成方法をご教授ください。
元のデータの配列を入れ替えることは可能です。よろしくお願いいたします。

Aベストアンサー

1.データ表の作成
 同じ横軸上に縦棒と折れ線を描画するには、データ表も同じように並べる必要があります。

「グラフの作り方」
http://www.tipsfound.com/excel2010/05001


2.グラフの作成
 棒グラフと折れ線グラフを1つに描くには、複合グラフの作成法を使います。

「複合グラフを作成する | Microsoft Office 2010 活用 TIPS」
https://www.microsoft.com/ja-jp/office/2010/business/training/tips/excel08.aspx


3.多数の同じサイズ、書式のグラフを作成
 ユーザー定義のグラフを登録して利用します。

「Excel2010:ユーザー定義のグラフを登録する」
http://office-qa.com/Excel/ex145.htm

Q2本のリード線をつなぐ方法

2本のリード線をつなぐ方法
2本のリード線をつなぎたいと考えています。

半田でつなぐのが普通なのかもしれませんが、自分は半田付けが苦手で綺麗につなげられる自身がありません。以前、筒状の細いパイプの中に、2本の線を両側から入れ、そのパイプをペンチでつぶして接続する端子金具を見た事がありますが、商品名が分かりません。
圧着端子という名前だったような気がしますが、このキーワードで検索すると別の製品が出てきてしまいます。どなたか正しい名前を教えてください。

また、これ以外にも簡単に接続する方法があればよろしくお願いします。

Aベストアンサー

>商品名が分かりません。

こういうのですかね。

裸圧着スリーブ
http://www.ip.mirai.ne.jp/~moriden/B05325.htm

絶縁圧着スリーブ
http://kudohkenzai.shop-pro.jp/?pid=19836852

正式にはきちんとした圧着工具が必要です。

端子も数種類、ホームセンターでも売られてますよ。

Q散布図と折れ線グラフで●印を■や▲に変えたい

Excel 2013で散布図と折れ線グラフを作っています。

グラフ上の、1つひとつのデータに対応する位置に●印がありますが、この丸印を■とか▲に変えるにはどうしたらいいでしょうか。

Aベストアンサー

グラフのどれかひとつの●印のデータ上で右クリックしてみてください。

Q武蔵野線と西武線をつなぐトンネル

新秋津から西武線の線路をつなぐトンネルがありますが、現在使われている様子がないようなのですが、どのような目的で作られたのでしょうか?

Aベストアンサー

こんばんは。あの線路も現在、極極わずかではありますが使用されています。以前は西武も貨物が盛んでした。石灰石やセメント輸送に旧国鉄と西武の受け渡しの役割を果たしていましたがそれも過去の話。現在は
甲種輸送(新型車搬送)のための役割にとどまっています。それも年数回あるかないか。もう一つは西武多摩川線が車両点検のため「武蔵境~八王子~新秋津(受渡場)~所沢」のルートが設定されていて、中央線内をJR機関車が多摩川線車両を牽引する、珍しいシーンが見られました。しかし、現在武蔵境駅工事の
ため、その設定も休止されているようです。ですので
現在、あのトンネル内を通る電車ことは珍事といっても過言ではないでしょう。

Q▲特定のセルからランダムに抽出しテストを作成▲

いつもお世話になっております。
エクセルのVBAについて教えて頂きたく書き込みいたします。
日本語が意味不明であれば、より詳しく記載しますのでご教授願います。

1つのエクセルの中に4つのシートがあります。
【Top(sheet1)、問題(sheet2)、初級(sheet3)、中級(sheet4)、上級(sheet5)】

Topにはスタートボタンがあり、クリックすることにより問題シートへと移動し、別シートより問題を抽出したいです。

問題シート内のC3~C17に問題が、D3~D17に(問題に付随した)ヒントが
ランダムに抽出されるようにマクロを作成したいです。

また問題、ヒント、答えは初級、中級、上級、それぞれのシートに(20問ずつぐらい)記載をしています。
初級から10問、中級から3問、上級から2問と抽出をしたいです。
答えに回答を入力することにより正解であればセルが青く、間違えであればセルが赤くなるようにしたいです。

簡易ではありますが、エクセルの画像も添付させてもらいます。
恐れ入りますがご教授願います。

Aベストアンサー

こんばんは!
面白そうなのでトライしてみました。

Sheet6を作業用のSheetとして追加・使用するようにしていますので、
Book上にはお示しの5つのSheetが存在しているという前提です。
尚、各Sheetともお示しの配置通りとします。

ます「TOP」Sheetにコマンドボタンを挿入 → コマンドボタンのコードを↓にしてみてください。

Private Sub CommandButton1_Click()
Worksheets("問題").Select
Worksheets("問題").Range("E3:E17").Interior.ColorIndex = xlNone
Call Sample1
End Sub

次にAlt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面に
↓のコードをコピー&ペーストしてください。

Sub Sample1() 'この行から
Dim i As Long, lastRow As Long, c As Range
Dim wS2 As Worksheet, wS3 As Worksheet, wS4 As Worksheet, wS5 As Worksheet, wS6 As Worksheet
Set wS2 = Worksheets("問題")
Set wS3 = Worksheets("初級")
Set wS4 = Worksheets("中級")
Set wS5 = Worksheets("上級")
Application.ScreenUpdating = False
If Worksheets.Count <> 6 Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
End If
Set wS6 = Worksheets(Worksheets.Count)
wS6.Visible = xlSheetHidden
wS6.Range("A:C").Clear
wS2.Range("C3:E17").ClearContents
With wS3
lastRow = .Cells(Rows.Count, "B").End(xlUp).Row
.Range("E:F").Insert
Range(.Cells(2, "E"), .Cells(lastRow, "E")).Formula = "=RAND()"
Range(.Cells(2, "F"), .Cells(lastRow, "F")).Formula = "=RANK(E2,E:E)"
For i = 1 To 10
Set c = .Range("F:F").Find(what:=i, LookIn:=xlValues, lookat:=xlWhole)
c.Offset(, -4).Resize(, 3).Copy
wS6.Activate
ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Next i
.Range("E:F").Delete
End With
With wS4
.Range("E:F").Insert
lastRow = .Cells(Rows.Count, "B").End(xlUp).Row
Range(.Cells(2, "E"), .Cells(lastRow, "E")).Formula = "=RAND()"
Range(.Cells(2, "F"), .Cells(lastRow, "F")).Formula = "=RANK(E2,E:E)"
For i = 1 To 3
Set c = .Range("F:F").Find(what:=i, LookIn:=xlValues, lookat:=xlWhole)
c.Offset(, -4).Resize(, 3).Copy
wS6.Activate
ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Next i
.Range("E:F").Delete
End With
With wS5
.Range("E:F").Insert
lastRow = .Cells(Rows.Count, "B").End(xlUp).Row
Range(.Cells(2, "E"), .Cells(lastRow, "E")).Formula = "=RAND()"
Range(.Cells(2, "F"), .Cells(lastRow, "F")).Formula = "=RANK(E2,E:E)"
For i = 1 To 2
Set c = .Range("F:F").Find(what:=i, LookIn:=xlValues, lookat:=xlWhole)
c.Offset(, -4).Resize(, 3).Copy
wS6.Activate
ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Next i
.Range("E:F").Delete
End With
wS6.Range("A2:B16").Copy
wS2.Activate
ActiveSheet.Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues
wS2.Columns.AutoFit
wS2.Range("E3").Select
Application.ScreenUpdating = True
End Sub 'この行まで

最後に「問題」SheetのSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペースト → Excel画面に戻り「TOP」Sheetのコマンドボタンをクリックし
「問題」SheetのE列に答えを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim c As Range
If Intersect(Target, Range("E3:E17")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Worksheets(6)
If Target <> "" Then
Set c = .Range("A:A").Find(what:=Target.Offset(, -2), LookIn:=xlValues, lookat:=xlWhole)
If Target = c.Offset(, 2) Then
Target.Interior.ColorIndex = 8 '←水色
Else
Target.Interior.ColorIndex = 3
End If
Else
Target.Interior.ColorIndex = xlNone
End If
End With
End Sub 'この行まで

※ 通常の青だと字が見えにくいので「水色」にしています。m(_ _)m

こんばんは!
面白そうなのでトライしてみました。

Sheet6を作業用のSheetとして追加・使用するようにしていますので、
Book上にはお示しの5つのSheetが存在しているという前提です。
尚、各Sheetともお示しの配置通りとします。

ます「TOP」Sheetにコマンドボタンを挿入 → コマンドボタンのコードを↓にしてみてください。

Private Sub CommandButton1_Click()
Worksheets("問題").Select
Worksheets("問題").Range("E3:E17").Interior.ColorIndex = xlNone
Call Sample1
End Sub

次にAlt+F11キ...続きを読む


人気Q&Aランキング

おすすめ情報