• 締切済み

エクセル VBA 関数 マクロ

初めまして、質問があります。 よろしくお願いします。 MSエクセル2003を使用して下記のような操作を実行したいと考えています。 その際に必要なVBA、関数、マクロをご教授頂きたいのです。 キーワードでや解説ページのリンクでも構いませんのでよろしくお願い致します。 ・ある性能を比較するグラフを自動で作成したい あらかじめ、機種と性能(一定の周波数(100Hz~10kHz)とその時の出力(dB))を 入力した表を作る マクロ起動ボタンを押すと、表中の機種を選択する画面が表示され プルダウンメニューから比較したい機種を選ぶ(出来れば6機種くらい) 選択後、グラフ作成ボタンを押せば、目的のグラフが出来上がる 自分自身でも調べてはいるのですが、手探り状態なのでお力お借りできればという次第です。 キーワードだけでも構いませんので、どうかよろしくお願い致します。

みんなの回答

  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.2

推奨: 先に全てのデータを載せたグラフを手動で作成しておく マクロを使い,選択された機種に該当するデータ系列の線を消したり表示するプログラムを作成する 用意しておいたグラフを丸ごと表示したり表示を隠すプログラムを作成する 「複数の機種を選択」するには,コンボボックス(プルダウンメニュー)は向いていません。 オプションボタン辺りが取り敢えず簡単と思います。次のステップとしてリストボックスなどで。 サンプル: グラフの表示・非表示 Worksheets("Sheet1").ChartObjects(1).Visible = True/False データ系列の線の表示・非表示 Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).Border.LineStyle = xlContinuous / xlNone #補足 マクロを動かす都度イチイチ最初からグラフを描いたり消したりすると,操作の対象となるグラフオブジェクトを捕まえておくだけで一苦労します。

回答No.1

1.表からグラフを作っておいてください。  これは一般機能ですからわかると思います。 2.機種ごとのデータ一覧を用意してください。 3.プルダウンに機種一覧をセットしてください。 4.グラフ作成ボタンクリックで   プルダウンの値を読み込みます。   機種ごとデータ一覧から、それと一致したデータをグラフ表示元データの表にセットします。 要はVBAでグラフを作成しようと考えるのではなく、表の位置(セル)にデータをセットすると考えてください。

関連するQ&A

  • エクセル マクロ教えて下さい。

    作成してあるマクロボタンを実行した時に下記の処理をしたい。 ●手順 1・表作成ボタン(作成済)をクリックする 2・MsBoxを表示する 3・Yesの時は、セルAIの数式を削除して表を作成する(マクロは作成済) 4・Noの時は、セルAIの数式を削除しないで表を作成する(マクロは作成済) 5・Cancelの時は何もしないで中止する ●手順2~5の記述を御指導お願い致します。 尚、表作成ボタンと表作成マクロは作成済です

  • EXCELでマクロ

    グラフを作るマクロを作成したのですが、 ツール→マクロ実行  をしなくても、ワークシートに、「グラフ作成」などの題をつけたクリックして実行されるボタンがつくっているのを見ました。どのように、ボタンをつくるのでしょうか。

  • エクセルのマクロ印刷

    マクロ印刷はグラフも含めできたのですが、その表がズラーとあるものをグラフも含めて連続印刷はできますか?そのマクロの作成方法がわかりません。どうぞ教えてください。

  • エクセルからワードのマクロを実行したい

    1. ワードで作られた報告書の表の数値をエクセルにコピーし、 2. その数値を使ってエクセルのオートシェイプでグラフを描き、 3. グラフをもう一度ワードの所定の位置に図として貼りつける、 というマクロを作成しています。ワードの表をコピーするマクロと、エクセルでグラフを描くマクロは作成できました。 問題はエクセルのシートに配置したコマンドボタンをクリックすると、グラフの入ったセル範囲をコピーするまではできたのですが、その後にワードのマクロを指定して実行させる方法がわかりません。 1.→2.のエクセルのマクロを実行する方はauto_openで何とかなったのですが、2.→3.は既にワード文書は開かれていますし、auto_openでは1.の手順ができなくなってしまうので困っています。 もし、エクセルのマクロでワードを操作などできるのでしたらそれでもよいのですが…。 ワードのマクロは初挑戦で、色々サイトも探したのですが見つかりませんでした…。 使用していますのは、Windows98SE,Excel97,Word97です。 ご存知の方、どうぞよろしくお願い致します。

  • Excel97でTOPPAGEを開くマクロ

    Excel97を使っています。 ある価格表を作成しました。 Sheet1に目次を作り、ハイパーリンクで 各価格表のSheetに移動するようにしています。 そこで、どこのSheetを開いている状態で閉じても 必ず開いた時にはSheet1の目次が開くようにしたい のですが、何か良い方法はあるでしょうか。 マクロになるかと思いますが、 その場合、どういったマクロをどのように登録すれば いいのかも教えて頂けたら、と思います。 簡単なマクロをボタンに登録、しかしたことないです。 宜しくお願い致します。

  • Excelのマクロで、円グラフの色を指定したい

    毎月使用するためのグラフのフォーマットを作成しています。 マクロ作成を何度も試みましたが、不慣れでなかなかうまくいきません。 どなたかご教授いただけると助かります。 Sheet1に以下のような表があります。   A   B 1 A社  10 2 B社  34 3 C社  15 4 D社  20 5 E社  5 6 F社  13 7 G社  32 A列は項目名、B列には数値が入っています。 これを元にした円グラフを、Sheet2に作成してあります。 円グラフなので、当月の数値を入力後、降順に並べ替えます。 ただ、並べ替えるとそれぞれの企業のグラフ色が毎月変わってしまうため、 項目毎にグラフの色を固定したいと思っています。 円グラフの色を固定(指定?)するマクロを作成したいのです。 http://excel-ubara.com/excelvba/EXCELVBA218.html http://hamachan.info/win7/Excel/engraph_color.html 上記ふたつのページにたどり着き、参考にしました。 特にひとつめのリンクで、表につけた色とグラフの色を同じにできるなら 簡単だと思い、すでに表の項目は、グラフにつけたい色で塗りつぶしています。 上記リンクのマクロを実行してみたところ、 グラフの色が全て真っ白になってしまいました。 表とグラフが別シートにあるので、そのままのマクロではダメなのでしょうか。 円グラフを選択してマクロを実行したら、表の項目名の色とグラフの色を 同じにするマクロを作成したいです。 不足している情報があればご指摘ください。 どうぞよろしくお願いいたします。

  • Excelマクロ、VBAについて質問です。

    Excelマクロについて質問です。 管理表を作っているのですが、チェックボックスで選択した行の削除ボタンを作りたいと思っています。 ___A____ B____C 1 --- --- --- 2 --- --- --- 3 --- --- --- ・ ・ ・ というような表の先頭にチェックボックスをつくり、チェックを入れた行のみ削除し、 上に詰めるようにしたいと思っています。 上の表で2の行を消したら _A_ B_ C 1 --- --- --- 3 --- --- --- 4 --- --- --- となるような感じです。 どのようなプログラムをつくればいいでしょうか。 アドバイスお願いします。

  • EXCELのマクロで出来ますか?

    散布図で近似曲線グラフを作成しました。 この近似曲線の書式設定で[グラフに数式を表示する(E)]を選択すると、 グラフに y = ax2 + bx + c という数式が出ます。 この数式をマクロで計算することは出来ないのでしょうか? 例えば、[セルA1]にxを入力したら[グラフA]のyの値が[セルB1]に算出されるような 便利なマクロ組むことは出来ますか? 初心者で質問が下手ですみませんm(_ _)m

  • EXCELのマクロ グラフについて

    こんばんは、 グラフ作成のマクロをつくっています。 グラフ作成対象の範囲が不定なので、 範囲は、AA;KKという範囲にしました。 実はその表の、下部に合計欄がありました。 合計値項目があっても、グラフ化する方法があるかどうか?と、記録マクロの途中で ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("C7:D10"), PlotBy _:=xlColumns がありましたが、この分をコメントにしました。何か影響はありますか?

  • エクセル マクロ 既存グラフの削除

    また 質問させていただきます。 左側に表全体を範囲指定した折れ線グラフを、マクロを実行して貼り付けており 右側に表の一部を範囲指定した折れ線グラフを、マクロを実行して貼り付けます。 右の表の範囲を変更して、右の表だけを変更するマクロ作成したいと思っています。 左側のグラフの名前を変更して Activesheet.ChartObjects(1).Name="全体グラフ" 右側のグラフの名前を変更して Activesheet.ChartObjects(1).Name="グラフ1" 右側の折れ線グラフ(グラフ1)を削除して、範囲を変更した新たなグラフ(グラフ1に名前を変更)を貼り付けるマクロを作りましたが、右側のグラフが貼りついていない、最初のときに実行すると、削除するグラフが無いためにエラーがでてしまいます。 If を使用するのかなっと思っていますが、どのように入力すればいいのか分かりません。 教えて頂けないでしょうか。

専門家に質問してみよう