いつもお世話になっております。
つい先日、ここで指定した列の最下行から指定したデータ数で自動でグラフを作成する下記のコードを教えていただきました。
それを色んなBookに展開していて、ず～と前からあきらめていた動作があります。
これまで手作業していたのですが上記ができるようになったので欲は限りなく・・・
これから多くのBookに展開する前にできればこの機能も盛り込みたく。
どんどん贅沢になっていますがよろしくお願します。
やりたいことは、下記でマクロで作成されるグラフに当該列の11行目と12行目の値で横棒を引きたいのです。
11行目と12行目には当該列の±3σの値が表示されており、これをグラフ上に横棒で表示すると、最新のデータの位置が分かります。
因みに、最大、最小、3σ、規格外れは書式設定でアラームが出るように設定してあり、これらのアラームが出たときにグラフにして全体の傾向とその値の異常の程度を確認するのが当方の仕事です。(データ入力は各担当者）
質問内容が非常に分かりにくくなってしまいましたが何卒よろしくお願いします。
Sub グラフ確認()
Const SRowNum = 17 'データ開始行番号
Const KoumokuRow = 5 '項目名格納行番号
Const ShNameGD = "入力表" 'データ格納シート名
Const ShNameGr = "グラフ" 'グラフ描写シート名
Const XCol = 3 '横(項目)軸ラベル列番号（下2行と一緒に削除可）
Dim GSh As Worksheet
Dim DSh As Worksheet
Dim SRow As Long 'グラフ用データ開始行
Dim ERow As Long 'グラフ用データ終了行
Dim tgRange1 As Range 'データ群1つ目範囲
Dim MaxRows As Long 'データ範囲に指定する最大行数
Dim ColNum1 As Long '1つ目データ格納列
Set GSh = ThisWorkbook.Sheets(ShNameGr)
Set DSh = ThisWorkbook.Sheets(ShNameGD)
GSh.Select
GSh.Unprotect
MaxRows = DSh.Cells(2, Columns.Count).End(xlToLeft).Value
ColNum1 = DSh.Cells(2, Columns.Count).End(xlToLeft).Column
ERow = DSh.Cells(DSh.Rows.Count, 1).End(xlUp).Row
If ERow < MaxRows + SRowNum Then
SRow = SRowNum
Else
SRow = ERow - MaxRows + 1
End If
Set tgRange1 = _
Range(DSh.Cells(SRow, ColNum1), DSh.Cells(ERow, ColNum1))
GSh.ChartObjects(1).Chart.SetSourceData Source:=tgRange1 'セット
GSh.ChartObjects(1).Chart.SeriesCollection(1).Name = _
DSh.Cells(KoumokuRow, ColNum1).Value
End Sub
いつもお世話になっております。
つい先日、ここで指定した列の最下行から指定したデータ数で自動でグラフを作成する下記のコードを教えていただきました。
それを色んなBookに展開していて、ず～と前からあきらめていた動作があります。
これまで手作業していたのですが上記ができるようになったので欲は限りなく・・・
これから多くのBookに展開する前にできればこの機能も盛り込みたく。
どんどん贅沢になっていますがよろしくお願します。
やりたいことは、下記でマクロで作成されるグラフに当該列の11行目と12行目の値で横棒を引きたいのです。
11行目と12行目には当該列の±3σの値が表示されており、これをグラフ上に横棒で表示すると、最新のデータの位置が分かります。
因みに、最大、最小、3σ、規格外れは書式設定でアラームが出るように設定してあり、これらのアラームが出たときにグラフにして全体の傾向とその値の異常の程度を確認するのが当方の仕事です。(データ入力は各担当者）
質問内容が非常に分かりにくくなってしまいましたが何卒よろしくお願いします。
Sub グラフ確認()
Const SRowNum = 17 'データ開始行番号
Const KoumokuRow = 5 '項目名格納行番号
Const ShNameGD = "入力表" 'データ格納シート名
Const ShNameGr = "グラフ" 'グラフ描写シート名
Const XCol = 3 '横(項目)軸ラベル列番号（下2行と一緒に削除可）
Dim GSh As Worksheet
Dim DSh As Worksheet
Dim SRow As Long 'グラフ用データ開始行
Dim ERow As Long 'グラフ用データ終了行
Dim tgRange1 As Range 'データ群1つ目範囲
Dim MaxRows As Long 'データ範囲に指定する最大行数
Dim ColNum1 As Long '1つ目データ格納列
Set GSh = ThisWorkbook.Sheets(ShNameGr)
Set DSh = ThisWorkbook.Sheets(ShNameGD)
GSh.Select
GSh.Unprotect
MaxRows = DSh.Cells(2, Columns.Count).End(xlToLeft).Value
ColNum1 = DSh.Cells(2, Columns.Count).End(xlToLeft).Column
ERow = DSh.Cells(DSh.Rows.Count, 1).End(xlUp).Row
If ERow < MaxRows + SRowNum Then
SRow = SRowNum
Else
SRow = ERow - MaxRows + 1
End If
Set tgRange1 = _
Range(DSh.Cells(SRow, ColNum1), DSh.Cells(ERow, ColNum1))
GSh.ChartObjects(1).Chart.SetSourceData Source:=tgRange1 'セット
GSh.ChartObjects(1).Chart.SeriesCollection(1).Name = _
DSh.Cells(KoumokuRow, ColNum1).Value
End Sub
いつもお世話になっております。
つい先日、ここで指定した列の最下行から指定したデータ数で自動でグラフを作成する下記のコードを教えていただきました。
それを色んなBookに展開していて、ず～と前からあきらめていた動作があります。
これまで手作業していたのですが上記ができるようになったので欲は限りなく・・・
これから多くのBookに展開する前にできればこの機能も盛り込みたく。
どんどん贅沢になっていますがよろしくお願します。
やりたいことは、下記でマクロで作成されるグラフに当該列の11行目と12行目の値で横棒を引きたいのです。
11行目と12行目には当該列の±3σの値が表示されており、これをグラフ上に横棒で表示すると、最新のデータの位置が分かります。
因みに、最大、最小、3σ、規格外れは書式設定でアラームが出るように設定してあり、これらのアラームが出たときにグラフにして全体の傾向とその値の異常の程度を確認するのが当方の仕事です。(データ入力は各担当者）
質問内容が非常に分かりにくくなってしまいましたが何卒よろしくお願いします。
Sub グラフ確認()
Const SRowNum = 17 'データ開始行番号
Const KoumokuRow = 5 '項目名格納行番号
Const ShNameGD = "入力表" 'データ格納シート名
Const ShNameGr = "グラフ" 'グラフ描写シート名
Const XCol = 3 '横(項目)軸ラベル列番号（下2行と一緒に削除可）
Dim GSh As Worksheet
Dim DSh As Worksheet
Dim SRow As Long 'グラフ用データ開始行
Dim ERow As Long 'グラフ用データ終了行
Dim tgRange1 As Range 'データ群1つ目範囲
Dim MaxRows As Long 'データ範囲に指定する最大行数
Dim ColNum1 As Long '1つ目データ格納列
Set GSh = ThisWorkbook.Sheets(ShNameGr)
Set DSh = ThisWorkbook.Sheets(ShNameGD)
GSh.Select
GSh.Unprotect
MaxRows = DSh.Cells(2, Columns.Count).End(xlToLeft).Value
ColNum1 = DSh.Cells(2, Columns.Count).End(xlToLeft).Column
ERow = DSh.Cells(DSh.Rows.Count, 1).End(xlUp).Row
If ERow < MaxRows + SRowNum Then
SRow = SRowNum
Else
SRow = ERow - MaxRows + 1
End If
Set tgRange1 = _
Range(DSh.Cells(SRow, ColNum1), DSh.Cells(ERow, ColNum1))
GSh.ChartObjects(1).Chart.SetSourceData Source:=tgRange1 'セット
GSh.ChartObjects(1).Chart.SeriesCollection(1).Name = _
DSh.Cells(KoumokuRow, ColNum1).Value
End Sub
いつもお世話になっております。
つい先日、ここで指定した列の最下行から指定したデータ数で自動でグラフを作成する下記のコードを教えていただきました。
それを色んなBookに展開していて、ず～と前からあきらめていた動作があります。
これまで手作業していたのですが上記ができるようになったので欲は限りなく・・・
これから多くのBookに展開する前にできればこの機能も盛り込みたく。
どんどん贅沢になっていますがよろしくお願します。
やりたいことは、下記でマクロで作成されるグラフに当該列の11行目と12行目の値で横棒を引きたいのです。
11行目と12行目には当該列の±3σの値が表示されており、これをグラフ上に横棒で表示すると、最新のデータの位置が分かります。
因みに、最大、最小、3σ、規格外れは書式設定でアラームが出るように設定してあり、これらのアラームが出たときにグラフにして全体の傾向とその値の異常の程度を確認するのが当方の仕事です。(データ入力は各担当者）
質問内容が非常に分かりにくくなってしまいましたが何卒よろしくお願いします。
Sub グラフ確認()
Const SRowNum = 17 'データ開始行番号
Const KoumokuRow = 5 '項目名格納行番号
Const ShNameGD = "入力表" 'データ格納シート名
Const ShNameGr = "グラフ" 'グラフ描写シート名
Const XCol = 3 '横(項目)軸ラベル列番号（下2行と一緒に削除可）
Dim GSh As Worksheet
Dim DSh As Worksheet
Dim SRow As Long 'グラフ用データ開始行
Dim ERow As Long 'グラフ用データ終了行
Dim tgRange1 As Range 'データ群1つ目範囲
Dim MaxRows As Long 'データ範囲に指定する最大行数
Dim ColNum1 As Long '1つ目データ格納列
Set GSh = ThisWorkbook.Sheets(ShNameGr)
Set DSh = ThisWorkbook.Sheets(ShNameGD)
GSh.Select
GSh.Unprotect
MaxRows = DSh.Cells(2, Columns.Count).End(xlToLeft).Value
ColNum1 = DSh.Cells(2, Columns.Count).End(xlToLeft).Column
ERow = DSh.Cells(DSh.Rows.Count, 1).End(xlUp).Row
If ERow < MaxRows + SRowNum Then
SRow = SRowNum
Else
SRow = ERow - MaxRows + 1
End If
Set tgRange1 = _
Range(DSh.Cells(SRow, ColNum1), DSh.Cells(ERow, ColNum1))
GSh.ChartObjects(1).Chart.SetSourceData Source:=tgRange1 'セット
GSh.ChartObjects(1).Chart.SeriesCollection(1).Name = _
DSh.Cells(KoumokuRow, ColNum1).Value
End Sub
いつもお世話になっております。
つい先日、ここで指定した列の最下行から指定したデータ数で自動でグラフを作成する下記のコードを教えていただきました。
それを色んなBookに展開していて、ず～と前からあきらめていた動作があります。
これまで手作業していたのですが上記ができるようになったので欲は限りなく・・・
これから多くのBookに展開する前にできればこの機能も盛り込みたく。
どんどん贅沢になっていますがよろしくお願します。
やりたいことは、下記でマクロで作成されるグラフに当該列の11行目と12行目の値で横棒を引きたいのです。
11行目と12行目には当該列の±3σの値が表示されており、これをグラフ上に横棒で表示すると、最新のデータの位置が分かります。
因みに、最大、最小、3σ、規格外れは書式設定でアラームが出るように設定してあり、これらのアラームが出たときにグラフにして全体の傾向とその値の異常の程度を確認するのが当方の仕事です。(データ入力は各担当者）
質問内容が非常に分かりにくくなってしまいましたが何卒よろしくお願いします。
Sub グラフ確認()
Const SRowNum = 17 'データ開始行番号
Const KoumokuRow = 5 '項目名格納行番号
Const ShNameGD = "入力表" 'データ格納シート名
Const ShNameGr = "グラフ" 'グラフ描写シート名
Const XCol = 3 '横(項目)軸ラベル列番号（下2行と一緒に削除可）
Dim GSh As Worksheet
Dim DSh As Worksheet
Dim SRow As Long 'グラフ用データ開始行
Dim ERow As Long 'グラフ用データ終了行
Dim tgRange1 As Range 'データ群1つ目範囲
Dim MaxRows As Long 'データ範囲に指定する最大行数
Dim ColNum1 As Long '1つ目データ格納列
Set GSh = ThisWorkbook.Sheets(ShNameGr)
Set DSh = ThisWorkbook.Sheets(ShNameGD)
GSh.Select
GSh.Unprotect
MaxRows = DSh.Cells(2, Columns.Count).End(xlToLeft).Value
ColNum1 = DSh.Cells(2, Columns.Count).End(xlToLeft).Column
ERow = DSh.Cells(DSh.Rows.Count, 1).End(xlUp).Row
If ERow < MaxRows + SRowNum Then
SRow = SRowNum
Else
SRow = ERow - MaxRows + 1
End If
Set tgRange1 = _
Range(DSh.Cells(SRow, ColNum1), DSh.Cells(ERow, ColNum1))
GSh.ChartObjects(1).Chart.SetSourceData Source:=tgRange1 'セット
GSh.ChartObjects(1).Chart.SeriesCollection(1).Name = _
DSh.Cells(KoumokuRow, ColNum1).Value
End Sub
いつもお世話になっております。
つい先日、ここで指定した列の最下行から指定したデータ数で自動でグラフを作成する下記のコードを教えていただきました。
それを色んなBookに展開していて、ず～と前からあきらめていた動作があります。
これまで手作業していたのですが上記ができるようになったので欲は限りなく・・・
これから多くのBookに展開する前にできればこの機能も盛り込みたく。
どんどん贅沢になっていますがよろしくお願します。
やりたいことは、下記でマクロで作成されるグラフに当該列の11行目と12行目の値で横棒を引きたいのです。
11行目と12行目には当該列の±3σの値が表示されており、これをグラフ上に横棒で表示すると、最新のデータの位置が分かります。
因みに、最大、最小、3σ、規格外れは書式設定でアラームが出るように設定してあり、これらのアラームが出たときにグラフにして全体の傾向とその値の異常の程度を確認するのが当方の仕事です。(データ入力は各担当者）
質問内容が非常に分かりにくくなってしまいましたが何卒よろしくお願いします。
Sub グラフ確認()
Const SRowNum = 17 'データ開始行番号
Const KoumokuRow = 5 '項目名格納行番号
Const ShNameGD = "入力表" 'データ格納シート名
Const ShNameGr = "グラフ" 'グラフ描写シート名
Const XCol = 3 '横(項目)軸ラベル列番号（下2行と一緒に削除可）
Dim GSh As Worksheet
Dim DSh As Worksheet
Dim SRow As Long 'グラフ用データ開始行
Dim ERow As Long 'グラフ用データ終了行
Dim tgRange1 As Range 'データ群1つ目範囲
Dim MaxRows As Long 'データ範囲に指定する最大行数
Dim ColNum1 As Long '1つ目データ格納列
Set GSh = ThisWorkbook.Sheets(ShNameGr)
Set DSh = ThisWorkbook.Sheets(ShNameGD)
GSh.Select
GSh.Unprotect
MaxRows = DSh.Cells(2, Columns.Count).End(xlToLeft).Value
ColNum1 = DSh.Cells(2, Columns.Count).End(xlToLeft).Column
ERow = DSh.Cells(DSh.Rows.Count, 1).End(xlUp).Row
If ERow < MaxRows + SRowNum Then
SRow = SRowNum
Else
SRow = ERow - MaxRows + 1
End If
Set tgRange1 = _
Range(DSh.Cells(SRow, ColNum1), DSh.Cells(ERow, ColNum1))
GSh.ChartObjects(1).Chart.SetSourceData Source:=tgRange1 'セット
GSh.ChartObjects(1).Chart.SeriesCollection(1).Name = _
DSh.Cells(KoumokuRow, ColNum1).Value
End Sub
いつもお世話になっております。
つい先日、ここで指定した列の最下行から指定したデータ数で自動でグラフを作成する下記のコードを教えていただきました。
それを色んなBookに展開していて、ず～と前からあきらめていた動作があります。
これまで手作業していたのですが上記ができるようになったので欲は限りなく・・・
これから多くのBookに展開する前にできればこの機能も盛り込みたく。
どんどん贅沢になっていますがよろしくお願します。
やりたいことは、下記でマクロで作成されるグラフに当該列の11行目と12行目の値で横棒を引きたいのです。
11行目と12行目には当該列の±3σの値が表示されており、これをグラフ上に横棒で表示すると、最新のデータの位置が分かります。
因みに、最大、最小、3σ、規格外れは書式設定でアラームが出るように設定してあり、これらのアラームが出たときにグラフにして全体の傾向とその値の異常の程度を確認するのが当方の仕事です。(データ入力は各担当者）
質問内容が非常に分かりにくくなってしまいましたが何卒よろしくお願いします。
Sub グラフ確認()
Const SRowNum = 17 'データ開始行番号
Const KoumokuRow = 5 '項目名格納行番号
Const ShNameGD = "入力表" 'データ格納シート名
Const ShNameGr = "グラフ" 'グラフ描写シート名
Const XCol = 3 '横(項目)軸ラベル列番号（下2行と一緒に削除可）
Dim GSh As Worksheet
Dim DSh As Worksheet
Dim SRow As Long 'グラフ用データ開始行
Dim ERow As Long 'グラフ用データ終了行
Dim tgRange1 As Range 'データ群1つ目範囲
Dim MaxRows As Long 'データ範囲に指定する最大行数
Dim ColNum1 As Long '1つ目データ格納列
Set GSh = ThisWorkbook.Sheets(ShNameGr)
Set DSh = ThisWorkbook.Sheets(ShNameGD)
GSh.Select
GSh.Unprotect
MaxRows = DSh.Cells(2, Columns.Count).End(xlToLeft).Value
ColNum1 = DSh.Cells(2, Columns.Count).End(xlToLeft).Column
ERow = DSh.Cells(DSh.Rows.Count, 1).End(xlUp).Row
If ERow < MaxRows + SRowNum Then
SRow = SRowNum
Else
SRow = ERow - MaxRows + 1
End If
Set tgRange1 = _
Range(DSh.Cells(SRow, ColNum1), DSh.Cells(ERow, ColNum1))
GSh.ChartObjects(1).Chart.SetSourceData Source:=tgRange1 'セット
GSh.ChartObjects(1).Chart.SeriesCollection(1).Name = _
DSh.Cells(KoumokuRow, ColNum1).Value
End Sub
いつもお世話になっております。
つい先日、ここで指定した列の最下行から指定したデータ数で自動でグラフを作成する下記のコードを教えていただきました。
それを色んなBookに展開していて、ず～と前からあきらめていた動作があります。
これまで手作業していたのですが上記ができるようになったので欲は限りなく・・・
これから多くのBookに展開する前にできればこの機能も盛り込みたく。
どんどん贅沢になっていますがよろしくお願します。
やりたいことは、下記でマクロで作成されるグラフに当該列の11行目と12行目の値で横棒を引きたいのです。
11行目と12行目には当該列の±3σの値が表示されており、これをグラフ上に横棒で表示すると、最新のデータの位置が分かります。
因みに、最大、最小、3σ、規格外れは書式設定でアラームが出るように設定してあり、これらのアラームが出たときにグラフにして全体の傾向とその値の異常の程度を確認するのが当方の仕事です。(データ入力は各担当者）
質問内容が非常に分かりにくくなってしまいましたが何卒よろしくお願いします。
Sub グラフ確認()
Const SRowNum = 17 'データ開始行番号
Const KoumokuRow = 5 '項目名格納行番号
Const ShNameGD = "入力表" 'データ格納シート名
Const ShNameGr = "グラフ" 'グラフ描写シート名
Const XCol = 3 '横(項目)軸ラベル列番号（下2行と一緒に削除可）
Dim GSh As Worksheet
Dim DSh As Worksheet
Dim SRow As Long 'グラフ用データ開始行
Dim ERow As Long 'グラフ用データ終了行
Dim tgRange1 As Range 'データ群1つ目範囲
Dim MaxRows As Long 'データ範囲に指定する最大行数
Dim ColNum1 As Long '1つ目データ格納列
Set GSh = ThisWorkbook.Sheets(ShNameGr)
Set DSh = ThisWorkbook.Sheets(ShNameGD)
GSh.Select
GSh.Unprotect
MaxRows = DSh.Cells(2, Columns.Count).End(xlToLeft).Value
ColNum1 = DSh.Cells(2, Columns.Count).End(xlToLeft).Column
ERow = DSh.Cells(DSh.Rows.Count, 1).End(xlUp).Row
If ERow < MaxRows + SRowNum Then
SRow = SRowNum
Else
SRow = ERow - MaxRows + 1
End If
Set tgRange1 = _
Range(DSh.Cells(SRow, ColNum1), DSh.Cells(ERow, ColNum1))
GSh.ChartObjects(1).Chart.SetSourceData Source:=tgRange1 'セット
GSh.ChartObjects(1).Chart.SeriesCollection(1).Name = _
DSh.Cells(KoumokuRow, ColNum1).Value
End Sub
