【Tips_E004】Excelでパレート図 Excelグラフのパレート図はチョットねと言う方必見 0から折れ線がはじまり、最初の棒グラフの右肩を通過するパレート図を作りませんか?
Вставка
- Опубліковано 16 вер 2024
- #パレート図 #Excel #エクセル #マクロ #vba #excelvba
Excelにも「パレート図」はあるのですが、今一なんですよね
そんな皆様に朗報です。
正しいパレート図を作成する手順を動画にしました。
さらに、データ変更に対応するためのイベントマクロを含む
サンプルブックも公開しちゃいます。
サンプルブックはこちらからダウンロード可能です。
note.com/tanuk...
【テーブルの基礎】動画はこちらです。
• 【Basic_E005】Excel これから...
【チャンネル登録はこちら】
/ @excel_tanukioyaji
サンプルブックを差し替えました。
最終ページのマクロコードを下記の通り修正しました。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
'変更されたセルがB列で3行目以降なら
If Target.Column = 2 And Target.Row > 2 Then
'変数[i]に不良個数の総和を代入
i = WorksheetFunction.Sum(Range("tbl_Data[不良個数]"))
'アクティブシートの1つ目のグラフの第1軸の
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
'最大値が不良個数の総和と等しくなければ
If .MaximumScale i Then
'最大値に[i]を代入
.MaximumScale = i
End If
End With
End If
End Sub