Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21319 / 76738

←次へ　｜　前へ→


	【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

7 hits

▼

【60791】データの位置を変えたい たかと 09/3/15(日) 0:15