Excel VBA質問箱 IV

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

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


21313 / 76732 ←次へ | 前へ→

【60820】Re:データの位置を変えたい
発言  横入り  - 09/3/16(月) 21:23 -

引用なし
パスワード
   一応書いてみました。
ついでに、ピボットグラフを利用するとグラフもOKです。

Sub test()
  Dim myRange As Range
  Dim e
  Dim pt As PivotTable
  
  Set myRange = Range("A1", Range("C1").End(xlDown))
  
  On Error Resume Next
  Set pt = ActiveSheet.PivotTables("ピボットテーブル1")
  e = Err.Number
  On Error GoTo 0
  
  If e <> 0 Then
    Set pt = ActiveWorkbook.PivotCaches.Add( _
      SourceType:=xlDatabase, _
      SourceData:=myRange).CreatePivotTable _
       (TableDestination:=ActiveSheet.Cells(1, 5), _
       TableName:="ピボットテーブル1", _
       DefaultVersion:=xlPivotTableVersion10)

    With pt.PivotFields("日付")
      .Orientation = xlRowField
      .Position = 1
    End With
    With pt.PivotFields("場所")
      .Orientation = xlColumnField
      .Position = 1
    End With
    pt.AddDataField pt.PivotFields("台数"), "合計 / 台数", xlSum
    
  Else
    pt.SourceData = myRange.Address
    pt.RefreshTable
  End If
  
  'ピボットグラフの作成
  Range("E1").Select
  
  Charts.Add
  ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("E1")
  ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
  ActiveChart.HasPivotFields = False
End Sub

2 hits

【60791】データの位置を変えたい たかと 09/3/15(日) 0:15 質問
【60792】Re:データの位置を変えたい 横入り 09/3/15(日) 7:04 発言
【60793】Re:データの位置を変えたい 横入り 09/3/15(日) 8:57 発言
【60797】Re:データの位置を変えたい たかと 09/3/15(日) 23:23 質問
【60798】Re:データの位置を変えたい 横入り 09/3/16(月) 0:05 発言
【60803】Re:データの位置を変えたい たかと 09/3/16(月) 11:29 質問
【60804】Re:データの位置を変えたい ss 09/3/16(月) 12:21 回答
【60820】Re:データの位置を変えたい 横入り 09/3/16(月) 21:23 発言
【60846】Re:データの位置を変えたい たかと 09/3/17(火) 22:54 質問
【60847】Re:データの位置を変えたい 横入り 09/3/17(火) 23:12 発言
【60848】Re:データの位置を変えたい たかと 09/3/17(火) 23:40 質問
【60849】Re:データの位置を変えたい 横入り 09/3/17(火) 23:50 発言
【60867】Re:データの位置を変えたい たかと 09/3/18(水) 23:32 お礼

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