Excel グラフ 棒の隙間を詰めたいのですが・・・?

添付画面、御参照願います。

「休み」「出勤」のグラフです。
  上から、 休み・出勤・ スペース ・休み・出勤、
といった感じで、間ができてしまいます。
「出勤」と「休み」の間を詰めるには、どのようにすればよいか、
御教示願います。
宜しくお願い致します。

「Excel グラフ 棒の隙間を詰めたいの」の質問画像

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

A 回答 (2件)

Excel 2003ですが、


グラフの どれでもいいですから棒を右クリックして
「データー系列の書式設定」→「オプション」タブから、
「棒の重なり」と、「棒の間隔」を調整すれば、できると思います。
    • good
    • 1
この回答へのお礼

lll49erlll 様
ご回答、ありがとうございました。
すみません。できました。
又、何かありましたら、宜しくお願い致します。

お礼日時:2010/09/14 17:23

漢字でなんだかみえない部分が3系列目になってんのかな?


老眼のおいらには画像が小さすぎてみえない。
    • good
    • 0
この回答へのお礼

umazanpai 様
ごめんなさい。失礼しました。
NO.2 の方のご回答で解決しました。
ありがとうございました。

お礼日時:2010/09/14 17:26

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

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

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

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

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

Qフォルダ名の記述方法について御教示ください。VBA

いつも御指導ありがとうございます。

皆様に御指導いただきながら、得意先別元帳の項目(前月残・当月入金・売上・残高等)の金額を取得して売掛金管理表を作成しています。

得意先別元帳のフォルダ名を年度(yyyyの部分)としている為に、変更しないと毎年使用できません。

売掛金管理表のセル(L5)に、年度が記載されていますので、それを利用してみましたが上手く出来ません。

変更しないで処理出来るようにするための記述を御教示御願申し上げます。

●フォルダ構成
C:\Documents and Settings\aaa\My Documents\販売\yyyy年11月決算\売掛金元帳 ー 各得意先ファイル
C:\Documents and Settings\aaa\My Documents\販売\yyyy年11月決算\管理表 ー 売掛金管理表と買掛金管理表ファイル

Sub GetDatainFolder6() '管理表の作成
Dim i As Long
Dim Fname As String
Dim ans As Variant

DoEvents
Const myFolder As String = "C:\Documents and Settings\aaa\My Documents\販売\yyyy年11月決算\売掛金元帳\"
Fname = Dir(myFolder & "*.xls")
Do Until Len(Fname) = 0
FormPickUP Range("C6").Offset(i), myFolder & Fname, "6月"
Range("C6").Offset(i).Resize(, 7).Value = _
Range("C6").Offset(i).Resize(, 7).Value
Range("D6").Offset(i).Value = Mid(Fname, 1, InStrRev(Fname, ".") - 1) '拡張子は取る
i = i + 1
Fname = Dir()
Loop
End Sub

Function FormPickUP(rng As Range, ByVal myBk As String, ByVal mySh As String)
省略
End Function
宜しく御願いいたします。

いつも御指導ありがとうございます。

皆様に御指導いただきながら、得意先別元帳の項目(前月残・当月入金・売上・残高等)の金額を取得して売掛金管理表を作成しています。

得意先別元帳のフォルダ名を年度(yyyyの部分)としている為に、変更しないと毎年使用できません。

売掛金管理表のセル(L5)に、年度が記載されていますので、それを利用してみましたが上手く出来ません。

変更しないで処理出来るようにするための記述を御教示御願申し上げます。

●フォルダ構成
C:\Documents and Setting...続きを読む

Aベストアンサー

こんばんは。

返事が遅くなり、すみません。お礼側だけを、メールで受け取って呼んでいました。

>どのパソコンでも使用できるような記述方法があるのでしょうか。

それは、こんな方法です。

Dim myFolder As String
Dim UserName As String
UserName = Environ("USERNAME")
myFolder = "C:\Documents and Settings\" & UserName & "\My Documents\¥販売管理\2009年11月決算\売掛金元帳\"

>Environ("USERNAME")
これは、単に環境変数を読んでいるだけです。
コマンド・プロンプトで、>Set とすれば、出てきます。

Q作成した1つのグラフ形式を使って同じグラフをいくつも作りたい

こんにちは。
大量のデータをつかって、グラフを作りたいのですが、
作るグラフの形式は1種類しかないので、そのテンプレートのようなものを作って、データを選びなおすだけで作るようなことはできないでしょうか?

Aベストアンサー

エクセルでしょうか?
作成した雛形になるグラフを右クリックして「グラフの種類」
「ユーザー設定」タブで選択元を「ユーザー定義」にして「追加」で
名前と説明文を入力してください。
後は、データ範囲を選択して「挿入」「グラフ」
「ユーザー設定」タブで選択元を「ユーザー定義」にして
該当のグラフを選択すればOKです。
※「標準グラフに設定」すればグラフの挿入時にこのグラフになります。

QVBA初心者です。空白の行を詰めたいです。

こんにちは。
お仕事上、必要になりましてぜひともご教授願います。

(1)A列に もぐら と書いていない行は全部消すVBAの式
(2)A列に もぐら と書いていない1~500の行は全部消すVBAの式
(3)A列が 空白の200~400行を全て消すVBAの式

を教えてください。似たような式をwebで見つけたのですが
イマイチ応用ができませぬ。それと実行に時間も
かかってしまうので、ぜひとも解りやすく宜しくお願い致します。
はあ、今夜も徹夜かあ。

Aベストアンサー

(2)は以下の通りです
Sub Macro()
Dim idx As Integer
 Application.ScreenUpdating = False
 For idx = 500 To 1 Step -1
  If Cells(idx, "A") <> "もぐら" Then
   Rows(idx).Delete
  End If
 Next idx
 Application.ScreenUpdating = True
End Sub

(1)はA列の最終行を
 Range("A65536").End(xlUp).Row
で取得しましょう。
(3)は考えてみて下さい。すぐに分かるはずです。

QエクセルVBAでご教示ください

シート1のB5にNo、C5に住所、D5に電話・・・・・CXまで入力したものをコピーして
シート2のB列の同じNoの行に貼り付けるVBAをご教示ください。

おこないたいことは、シート2に1500ほどある台帳で、修正をのある行データをシート1に
No入力で呼び出し、修正して、修正したデータを元台帳に戻すということを行いたいのです。

No入力で呼び出すVBAは何とか出来ていますが、シート2の同じNoの行に貼り付けるVBAが
わかりません。

どなたか、よろしくお願いいたします。

Aベストアンサー

sub macro1()
 dim h as range
 set h = worksheets("Sheet2").range("B:B").find(what:=worksheets("Sheet1").range("B5").value, lookin:=xlvalues, lookat:=xlwhole)
 if h is nothing then
 msgbox "NO MATCH DATA"
 exit sub
 end if

 h.resize(1, 101).value = worksheets("Sheet1").range("B5:CX5").value
end sub

言わずもがなですがデータを修正した後に実行します。

Qアクセス→エクセルへエクスポート 書式が「下詰め」になる

アクセスのテーブルをエクセルへエクスポートした時の
セルの書式設定の配置の縦位置が「下詰め」になります。
できれば「中央揃え」で出力したいのですが。。。

私だけなのでしょうか?

Aベストアンサー

【要旨】
Access側の設定では、対応不可と思われますので、対応するとしたら
AccessかExcel上でVBAにて処理するしかなさそうです。


【詳細】
確かに、Excelのセルには、横位置と同様の書式設定が、縦位置にも
用意されていますが、Accessのデータシート(テーブルの他、フォームの
データシートビューを含む)では、縦位置には用意されていないようです。
(フォーム/レポートのテキストボックスでは、『上余白』『下余白』などで
 代替的な対応なら可能ですが・・・)
※なお、Access2003では、データシートビューでは横位置も設定不可
 でしたが、Access2007ではテーブルも含めて横位置は設定可能でした。

そのため、Access側の設定で、書式を同時保存するような指定を
しても、その対象に『縦位置の配置』を含めることはできないものと
思います。

・・・ということで、Excel側のテンプレートファイル(Excel起動時に表示
される状態を指定できる)をいじればどうにかなるかと思ってやってみた
のですが、残念ながら「Accessからのエクスポートにより、新規に作成
したExcelファイル」については、既定のテンプレートファイルの設定は
反映されませんでした。(※)

なので、あとは
 ・Accessからの出力時に、出力ファイルに書式設定までしてしまう
 ・Excel側でマクロを作成して、出力後にそのマクロを起動する
のどちらかしかないように思います。

以下、「出力」アクション(OutPutToメソッド)の後に、出力したExcel
ファイルに書式設定(縦位置の配置を「中央寄せ」に設定)するコードを
書いてみましたので、参考までに提示します:

Private Sub 出力_Click()
'エラーが発生した場合は「エラー処理」に移動させるための宣言
On Error GoTo エラー処理

  '変数を宣言(ファイル名とテーブル名用)
  Dim strFile As String, strTbl As String

  'VBAのメニューの「ツール(T)→参照設定(R)」で、「Microsoft Excel
  '#.#」(「#」は数字)のチェックをオンにした場合は以下の宣言を使用
  Dim xls As Excel.Application, WKB As Excel.Workbook, WKS As Excel.Worksheet
  '上記の参照設定を指定しない場合は以下の宣言を使用
  'Dim xls As Object, WKB As Object, WKS As Object

  '出力するテーブル名を変数に記録(→TextBoxに入力させるもよし)
  strTbl = "テーブル1"

  '出力ファイル名を指定(ドライブから未指定時の動作は未確認(汗))
  strFile = "c:\test.xls"

  'Excel形式で出力
  DoCmd.OutputTo acOutputTable, strTbl, "MicrosoftExcelBiff8(*.xls)", strFile

  '上記で出力したファイルを、Excelアプリケーションで開く
  Set xls = CreateObject("Excel.Application")
  Set WKB = xls.WorkBooks.Open(strFile)

  'テーブル名がシート名になっているはずなので、そのシートを指定
  Set WKS = WKB.Worksheets(strTbl)

  '上記シートの全てのセルの縦位置を「中央寄せ」に変更して保存
  WKS.Cells.VerticalAlignment = xlCenter
  WKB.Save

終了処理:
  'エラーで途中終了しても、Excelが立ち上がったままにならないよう、
  'Excelアプリケーションを可視化(上の処理中は全て不可視です)
  If xls Is Not Nothing Then xls.Visible = True

  '念のためメモリを開放して終了
  Set WKS = Nothing
  Set WKB = Nothing
  Set xls = Nothing
  Exit Sub

エラー処理:
  'エラーが発生した場合はメッセージを表示した後、「終了処理」へ。
  MsgBox Err & ":" & Error$, , Me.Name & " 出力"
  Resume 終了処理

End Sub

・・・以上です。


※上記の「Excelのテンプレート」で私が試したのはこちらの設定法です:
 http://office.microsoft.com/ja-jp/excel/HP051995961041.aspx?pid=CH062527921041
  「Accessから出力するExcelに反映するならそこじゃない」という
 情報をお持ちの方がいらっしゃったら、VBAで処理する必要がなくなる
 のですが・・・(汗)

【要旨】
Access側の設定では、対応不可と思われますので、対応するとしたら
AccessかExcel上でVBAにて処理するしかなさそうです。


【詳細】
確かに、Excelのセルには、横位置と同様の書式設定が、縦位置にも
用意されていますが、Accessのデータシート(テーブルの他、フォームの
データシートビューを含む)では、縦位置には用意されていないようです。
(フォーム/レポートのテキストボックスでは、『上余白』『下余白』などで
 代替的な対応なら可能ですが・・・)
※なお、Access2003では、データシ...続きを読む


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

このカテゴリの人気Q&Aランキング

おすすめ情報