Option Explicit Sub 棒グラフ() Call CCall DCall E End Sub Function C() Range("C2:C4").Select ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range("Sheet3!$C$2:$C$4") ActiveChart.FullSeriesColl…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。