Excel VBA質問箱 IV

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

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


45810 / 76735 ←次へ | 前へ→

【35910】Re:積み上げ縦棒グラフについて
発言  ゆと  - 06/3/15(水) 19:20 -

引用なし
パスワード
   とりあえずこんなものを作ってみました。
新しいシートでお試しください。

Option Base 1
Sub data()
Dim Dat_arr(6, 6)
  Dat_arr(1, 3) = "東京":   Dat_arr(1, 5) = "神奈川"
  Dat_arr(2, 3) = "目黒区":  Dat_arr(2, 4) = "品川区"
  Dat_arr(2, 5) = "横浜市":  Dat_arr(2, 6) = "川崎市"
  Dat_arr(3, 1) = "3月1日":  Dat_arr(5, 1) = "3月2日"
  Dat_arr(3, 2) = "東京":   Dat_arr(4, 2) = "神奈川"
  Dat_arr(5, 2) = "東京":   Dat_arr(6, 2) = "神奈川"
  Dat_arr(3, 3) = "12456":  Dat_arr(3, 4) = "45685"
  Dat_arr(4, 5) = "45687":  Dat_arr(4, 6) = "45685"
  Dat_arr(5, 3) = "45687":  Dat_arr(5, 4) = "87865"
  Dat_arr(6, 5) = "45687":  Dat_arr(6, 6) = "45657"
  
  Cells(1, 1).Resize(6, 6) = Dat_arr
End Sub
'=========================================================
Sub sample()
  Dim rn As Range, Co As Object
  Set rn = Cells(1, 1).Resize(6, 6)
  Set Co = ActiveSheet.ChartObjects.Add(60, 100, 400, 250)
  With Co.Chart
    .ChartType = xlColumnStacked
    .SetSourceData Source:=rn, PlotBy:=xlColumns
  End With
End Sub

1 hits

【35826】積み上げ縦棒グラフについて an 06/3/14(火) 12:01 質問
【35831】Re:積み上げ縦棒グラフについて Jaka 06/3/14(火) 13:31 発言
【35832】Re:積み上げ縦棒グラフについて an 06/3/14(火) 13:35 質問
【35837】Re:積み上げ縦棒グラフについて Jaka 06/3/14(火) 14:46 発言
【35854】Re:積み上げ縦棒グラフについて ゆと 06/3/14(火) 18:05 発言
【35871】Re:積み上げ縦棒グラフについて an 06/3/15(水) 9:17 質問
【35908】Re:積み上げ縦棒グラフについて ゆと 06/3/15(水) 18:40 回答
【35910】Re:積み上げ縦棒グラフについて ゆと 06/3/15(水) 19:20 発言
【35934】Re:積み上げ縦棒グラフについて 経験1年 06/3/16(木) 14:30 質問
【35977】Re:積み上げ縦棒グラフについて ゆと 06/3/16(木) 23:42 回答
【35990】Re:積み上げ縦棒グラフについて an 06/3/17(金) 12:36 お礼
【35873】Re:積み上げ縦棒グラフについて an 06/3/15(水) 9:47 お礼
【35874】Re:積み上げ縦棒グラフについて よう 06/3/15(水) 10:01 回答
【35875】Re:積み上げ縦棒グラフについて an 06/3/15(水) 10:14 お礼
【35876】Re:積み上げ縦棒グラフについて よう 06/3/15(水) 10:29 回答
【35882】Re:積み上げ縦棒グラフについて an 06/3/15(水) 13:17 お礼
【35930】確認してください よう 06/3/16(木) 11:32 発言
【35939】Re:積み上げ縦棒グラフについて ぬぅ 06/3/16(木) 15:02 発言
【35976】Re:積み上げ縦棒グラフについて an 06/3/16(木) 23:28 お礼

45810 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free