池袋にあるホームページ制作・システム開発会社のブログです。グラフの線((1)なので1本目)Formula=「シート名」!「セル範囲」Formulaプロパティがなかなか見つからなくて苦労しました。先人達とgoogle先生に感謝です。これで、現在のデータソース範囲が参照できます。シート名が取れないと、元データとグラフオブジェクトが別シートに分かれている場合に対応できないんですよ。それでこのプロパティの値が必要だったんです。グラフの線が1本ごとに離れた列を参照しているようなグラフではなくて、$A$1:$F$100のように固まっていれば、VBAを使用しなくても、名前定義とCounta関数の組み合わせで行けるようです。これだけだと実用的では無いので、ちょっとアドインを作ってみました。検証用サンプルExcel&アドインアドインは直接開いても構いませんが、ずっと使う場合はデフォルトのフォルダにコピーする方が分かりやすいと思います。Data\Microsoft\AddInsにコピー2.ツール(T)→アドイン(I)→有効なアドイン(A)に表示されているはずなので、チェックを入れる。これで、次からはExcelを開くとアドインが有効になります。使わなくなった場合はチェックを外してください。cells(rows.count,1).end(xlUp).Row(解説)1列目(A列)を基準にして、65536行からキーボード操作のCtrl+↑した行を取得します。rows.countやcolumns.countとすることでExcel2007以降のように100万行×1万6千列あっても動きます。(注意)途中で空欄があるとそこで止まってしまいますので、1つのシートに複数の表を入れているようであれば注意が必要です。池袋のアイ・エス・シーが運営しているブログです。ホームページ制作・システム開発のご依頼はアイ・エス・シーにお任せください!お電話またはお問い合わせフォームからお気軽にお問合せ下さい。