Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12155 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【12031】２次回帰曲線のマクロについて ぽんぽん 04/3/22(月) 16:06

【12034】Re:２次回帰曲線のマクロについて こうちゃん 04/3/22(月) 16:45

【12047】Re:２次回帰曲線のマクロについて ぽんぽん 04/3/22(月) 17:36

【12050】Re:２次回帰曲線のマクロについて こうちゃん 04/3/22(月) 18:11

【12054】Re:２次回帰曲線のマクロについて ぽんぽん 04/3/23(火) 9:23

【12064】Macユーザーの方、Helpお願いします。 こうちゃん 04/3/23(火) 11:33

【12067】すみません、私のミスです。 ぽんぽん 04/3/23(火) 12:02

【12069】Re:すみません、私のミスです。 こうちゃん 04/3/23(火) 13:06

【12072】Re:すみません、私のミスです。 ぽんぽん 04/3/23(火) 14:04

【12074】Re:すみません、私のミスです。 こうちゃん 04/3/23(火) 14:45

【12075】すみません。 ぽんぽん 04/3/23(火) 15:08

【12078】Re:すみません。 こうちゃん 04/3/23(火) 15:33

【12079】Re:すみません。 ぽんぽん 04/3/23(火) 15:43

【12080】Re:すみません。 こうちゃん 04/3/23(火) 16:01

【12082】Re:すみません。 ぽんぽん 04/3/23(火) 16:09


	【12031】２次回帰曲線のマクロについて

ぽんぽん - 04/3/22(月) 16:06 -


	引用なし

	パスワード

こんにちは、最近このサイトを知り、先週は分析ツールについて
色々と教えていただきました。（こうちゃんさんありがとうございます）
こうちゃんさんに色々アドバイス頂き、回帰分析の方はなんとかなりました。
次に２次回帰曲線をマクロで作りたいのですが、一番簡単な方法はなんでしょうか？
マクロについてはすごく素人なので、よろしくお願いいたします。


	【12034】Re:２次回帰曲線のマクロについて

こうちゃん

- 04/3/22(月) 16:45 -


	引用なし

	パスワード

ぽんぽんさん、こんにちは
>こんにちは、最近このサイトを知り、先週は分析ツールについて
>色々と教えていただきました。（こうちゃんさんありがとうございます）
>こうちゃんさんに色々アドバイス頂き、回帰分析の方はなんとかなりました。
>次に２次回帰曲線をマクロで作りたいのですが、一番簡単な方法はなんでしょうか？
>マクロについてはすごく素人なので、よろしくお願いいたします。

またまた、しろうとの「こう」ファミリーの次男です。

「マクロで」ってことですが、どこにどんな形で曲線つくるんでしょうか？
回帰式ができているのですから、その式でy値を計算してグラフ作っちゃえばいいと思いますが、どうでしょ。
セルに計算結果を残したくなければ難しいけど、非表示にしちゃえばいいしね。

＃ここでも条件提示が少なくてレスつけづらいです(^^;)


	【12047】Re:２次回帰曲線のマクロについて

ぽんぽん - 04/3/22(月) 17:36 -


	引用なし

	パスワード

こうちゃんさん、こんにちは。
またまた助けていただいて・・・ホントにありがたいです。
こうちゃんさんの言う通り、回帰式ができているのでそれを元に
グラフを作ればいいのですよね。その場合、グラフ上にグラフを書く際に
元になったデータをスポットでおくことは簡単ですか？

今、私なりにできてるところまでいいますと、３点で２次回帰の
グラフを書きました。そこまでは「マクロの記録」でできました。
そこからグラフの加工をして行くと、途中で止まります。
縦軸の値を小数点以下１桁で示したいのですが、ダメでした。
なのでそこの部分を削除したのが下記のものです。
縦軸の値を小数点以下１桁で示したい場合、どこにどんな構文を入れれば
いいでしょうか？　また下記のもので書くと、グラフの大きさが指定通り
ならないのですが・・・単位と言うのはどう示せばいいのでしょう。
それとグラフを指定した場所に作りたいのですが、場所の指定と言うのは
マクロでもできますか？
よろしくお願いします。

Sub name()

'
　　Range("E19:E21").Select
　　Charts.Add
　　ActiveChart.ChartType = xlXYScatter
　　ActiveChart.SetSourceData Source:=Sheets("PL00004").Range("E19:E21"), PlotBy _
　　　　:=xlColumns
　　ActiveChart.SeriesCollection(1).XValues = "=PL00004!R19C2:R21C2"
　　ActiveChart.Location Where:=xlLocationAsObject, Name:="PL00004"
　　With ActiveChart
　　　　.HasTitle = False
　　　　.Axes(xlCategory, xlPrimary).HasTitle = True
　　　　.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "ACA11 (ng/mL)"
　　　　.Axes(xlValue, xlPrimary).HasTitle = True
　　　　.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "O.D. (492-630nm)"
　　End With
　　ActiveChart.HasLegend = False
　　ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=2 _
　　　　, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=True _
　　　　).Select
　　ActiveChart.ChartArea.Select
　　Selection.AutoScaleFont = False
　　With Selection.Font
　　　　.Name = "ＭＳゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 7
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = xlAutomatic
　　　　.Background = xlAutomatic
　　End With
　　ActiveChart.SeriesCollection(1).Select
　　With Selection.Border
　　　　.Weight = xlHairline
　　　　.LineStyle = xlNone
　　End With
　　With Selection
　　　　.MarkerBackgroundColorIndex = 3
　　　　.MarkerForegroundColorIndex = 3
　　　　.MarkerStyle = xlX
　　　　.Smooth = False
　　　　.MarkerSize = 2
　　　　.Shadow = False
　　End With
　　ActiveChart.Axes(xlValue).Select
　　
　　ActiveChart.ChartArea.Select
　　ActiveWindow.Visible = False
　　Windows("test_ELISA data_001-010.xls").Activate
　　Range("H50").Select
　　ActiveSheet.Shapes("Chart 17").Select
　　Selection.ShapeRange.LockAspectRatio = msoFalse
　　Selection.ShapeRange.Height = 138#
　　Selection.ShapeRange.Width = 303#
End Sub


	【12050】Re:２次回帰曲線のマクロについて

こうちゃん

- 04/3/22(月) 18:11 -


	引用なし

	パスワード

ぽんぽんさん、こんにちは

>グラフを作ればいいのですよね。その場合、グラフ上にグラフを書く際に
>元になったデータをスポットでおくことは簡単ですか？
「スポットでおくこと」の意味がわかりません。m(__)m

>縦軸の値を小数点以下１桁で示したいのですが、ダメでした。
　　'表示形式
　　ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "

>ならないのですが・・・単位と言うのはどう示せばいいのでしょう。
単位はポイントになります。わかりづらいのでセルの幅や高さを基準にするといいでしょう。
この例はB3セルの5倍幅で10倍高さに設定します。
　　ActiveChart.ChartArea.Select
　　ActiveSheet.Shapes("グラフ 2").Width = Range("B3").Width * 5
　　ActiveSheet.Shapes("グラフ 2").Height = Range("B3").Height * 10

>それとグラフを指定した場所に作りたいのですが、場所の指定と言うのは
>マクロでもできますか？
場所の指定もセル位置基準がわかりやすいです。　　
　　ActiveChart.ChartArea.Select
　　ActiveSheet.Shapes("グラフ 2").Left = Range("B3").Left
　　ActiveSheet.Shapes("グラフ 2").Top = Range("B3").Top


	【12054】Re:２次回帰曲線のマクロについて

ぽんぽん - 04/3/23(火) 9:23 -


	引用なし

	パスワード

こうちゃんさん、ありがとうございます。
また、ご指示通り色々いじくってみました。
で、実行を押してみると、「コンパイルエラー　
SubまたはFunctionが定義されていません」
と出るのです。（１段目が指摘されています）
これはどう直せば良いでしょうか？


	【12064】Macユーザーの方、Helpお願いします。

こうちゃん

- 04/3/23(火) 11:33 -


	引用なし

	パスワード

ぽんぽんさん、こんにちは

>また、ご指示通り色々いじくってみました。
>で、実行を押してみると、「コンパイルエラー　
>SubまたはFunctionが定義されていません」
>と出るのです。（１段目が指摘されています）
>これはどう直せば良いでしょうか？

ごめんなさい。
１段目じゃあ、わかりません。

もしかしてここのこと？
>ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "

直接これだけ書いたらエラーになります。
グラフがアクティブな状態で試験してください。
できればぽんぽんさんの試験したモジュール全体を表示して、「ここ」でエラーが出ますというように提示していただけるとわかりやすいです。

あっ、Macでしたよね！！
その辺で、関数の違いとかでエラーかな？？
だとするとこちらでは検証できませんね。
エラーの原因をつぶしていくしかないので、追加した処理をすべてコメントにして、１行ずつコメントをはずしつつ、コンパイルしてみるとかで、エラー箇所を特定しましょう。

＃グラフの軸の書式設定の表示形式の設定をマクロ記録してみてください。

＃Macだとなおのこと情報提示がないと回答側でわからないことが多いです。
何度もしつこいようですが、できるだけ情報提示をお願いします。

どなたか、Macユーザの方がレスつけていただけないでしょうかね。


	【12067】すみません、私のミスです。

ぽんぽん - 04/3/23(火) 12:02 -


	引用なし

	パスワード

わかりづらくてごめんなさい。
１段目と言うのはマクロの始まりの「Sub ____()」という意味でした。
いじくった結果、End Subの１段上にある「14 hit」というのを消せば
エラーは出なくなりました。

更に質問ですが、X軸の値を小数点以下１桁の構文
ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "

は下に示した中のどこにいれればいいですか？
下の黒丸●のとろこにいれるとエラーが出ます。

Sub 回帰曲線ACA11_2()
'
' 回帰曲線ACA11_2 Macro
' マクロ記録日 : 2004.3.23　ユーザー名 : mitoh yuko
'

'
　　ActiveWindow.SmallScroll Down:=-27
　　Range("E19:E21").Select
　　Charts.Add
　　ActiveChart.ChartType = xlXYScatter
　　ActiveChart.SetSourceData Source:=Sheets("PL00005").Range("E19:E21"), PlotBy _
　　　　:=xlColumns
　　ActiveChart.SeriesCollection(1).XValues = "=PL00005!R19C2:R21C2"
　　ActiveChart.SeriesCollection(1).Name = "=""ACA11"""
　　ActiveChart.Location Where:=xlLocationAsObject, Name:="PL00005"
　　With ActiveChart
　　　　.HasTitle = True
　　　　.ChartTitle.Characters.Text = "ACA11"
　　　　.Axes(xlCategory, xlPrimary).HasTitle = True
　　　　.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "ACA11 (ng/mL)"
　　　　.Axes(xlValue, xlPrimary).HasTitle = True
　　　　.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "O.D. (492-630nm)"
　　End With
　　●
　　ActiveChart.HasLegend = False
　　ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=2 _
　　　　, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=True _
　　　　).Select
End Sub


	【12069】Re:すみません、私のミスです。

こうちゃん

- 04/3/23(火) 13:06 -


	引用なし

	パスワード

ぽんぽんさん、こんにちは

>更に質問ですが、X軸の値を小数点以下１桁の構文
>ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "
>
>は下に示した中のどこにいれればいいですか？
>
>Sub 回帰曲線ACA11_2()
>'
>' 回帰曲線ACA11_2 Macro
>' マクロ記録日 : 2004.3.23　ユーザー名 : mitoh yuko
>'
>
>'
この２行はいらないのでは？
---------------------------------------------
>　　ActiveWindow.SmallScroll Down:=-27
>　　Range("E19:E21").Select
---------------------------------------------
>　　Charts.Add
>　　ActiveChart.ChartType = xlXYScatter
>　　ActiveChart.SetSourceData Source:=Sheets("PL00005").Range("E19:E21"), PlotBy _
>　　　　:=xlColumns
この形ではグラフシートがつくられませんか？
>　　ActiveChart.SeriesCollection(1).XValues = "=PL00005!R19C2:R21C2"
>　　ActiveChart.SeriesCollection(1).Name = "=""ACA11"""
>　　ActiveChart.Location Where:=xlLocationAsObject, Name:="PL00005"
>　　With ActiveChart
>　　　　.HasTitle = True
>　　　　.ChartTitle.Characters.Text = "ACA11"
>　　　　.Axes(xlCategory, xlPrimary).HasTitle = True
>　　　　.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "ACA11 (ng/mL)"
>　　　　.Axes(xlValue, xlPrimary).HasTitle = True
>　　　　.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "O.D. (492-630nm)"
>　　End With
>　　●
>　　ActiveChart.HasLegend = False
>　　ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=2 _
>　　　　, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=True _
>　　　　).Select
>End Sub

で、順番直して実行してみましたが、エラーはでません。
Sub 回帰曲線ACA11_2()
　　Charts.Add
　　ActiveChart.ChartType = xlXYScatter
　　ActiveChart.SetSourceData Source:=Sheets("PL00005").Range("E19:E21"), PlotBy _
　　　　:=xlColumns
　　ActiveChart.Location Where:=xlLocationAsObject, Name:="PL00005"
　　ActiveChart.SeriesCollection(1).XValues = "=PL00005!R19C2:R21C2"
　　ActiveChart.SeriesCollection(1).Name = """ACA11"""
　　With ActiveChart
　　　　.HasTitle = True
　　　　.ChartTitle.Characters.Text = "ACA11"
　　　　.Axes(xlCategory, xlPrimary).HasTitle = True
　　　　.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "ACA11 (ng/mL)"
　　　　.Axes(xlValue, xlPrimary).HasTitle = True
　　　　.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "O.D. (492-630nm)"
　　End With
　　
　　ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "

　　ActiveChart.HasLegend = False
　　ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=2 _
　　　　, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=True _
　　　　).Select
End Sub


	【12072】Re:すみません、私のミスです。

ぽんぽん - 04/3/23(火) 14:04 -


	引用なし

	パスワード

ありがとうございます。
自分なりにいじくってやってみましたが、エラーが出るので
こうちゃんさんが書かれたものをそのままコピーしてやってみました。
やはり

>>ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "

のところでひっかかります。
マックのバグでしょうか？

他にも質問していいですか？
今、ひとつのブックに１０個のシートがあります。
それぞれのシートには同じ形でデータが並んでいます。
例で示していたのは[PL00005]というシート中のE19:E21までの
データからグラフを書き始めているのですが、それぞれのシートに
同じようにマクロでグラフを書きたいのです。
グラフはそのアクティブシートのある場所に書きたいです。
その場合
Sub 回帰曲線ACA11_2()
　　Charts.Add
　　ActiveChart.ChartType = xlXYScatter
　　ActiveChart.SetSourceData Source:=Sheets("PL00005").Range("E19:E21"), PlotBy _
　　　　:=xlColumns
　　ActiveChart.Location Where:=xlLocationAsObject, Name:="PL00005"
　　ActiveChart.SeriesCollection(1).XValues = "=PL00005!R19C2:R21C2"
　　ActiveChart.SeriesCollection(1).Name = """ACA11"""

の[PL00005]はどう示せば良いのでしょうか？


	【12074】Re:すみません、私のミスです。

こうちゃん

- 04/3/23(火) 14:45 -


	引用なし

	パスワード

ぽんぽんさん、こんにちは

>自分なりにいじくってやってみましたが、エラーが出るので
>こうちゃんさんが書かれたものをそのままコピーしてやってみました。
>やはり
>
>>>ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "
>
>のところでひっかかります。
>マックのバグでしょうか？

ですから、[#12064]でマクロ記録を試してみてくださいといっています。
MacではTickLabels.NumberFormatLocal というプロパティがないかも知れないし、違う名前かもしれないので。

>他にも質問していいですか？
>今、ひとつのブックに１０個のシートがあります。
>それぞれのシートには同じ形でデータが並んでいます。
>例で示していたのは[PL00005]というシート中のE19:E21までの
>データからグラフを書き始めているのですが、それぞれのシートに
>同じようにマクロでグラフを書きたいのです。
>グラフはそのアクティブシートのある場所に書きたいです。
>その場合
>Sub 回帰曲線ACA11_2()
> 　　Charts.Add
> 　　ActiveChart.ChartType = xlXYScatter
> 　　ActiveChart.SetSourceData Source:=Sheets("PL00005").Range("E19:E21"), PlotBy _
> 　　　　:=xlColumns
> 　　ActiveChart.Location Where:=xlLocationAsObject, Name:="PL00005"
> 　　ActiveChart.SeriesCollection(1).XValues = "=PL00005!R19C2:R21C2"
> 　　ActiveChart.SeriesCollection(1).Name = """ACA11"""
>
>の[PL00005]はどう示せば良いのでしょうか？

シート名ですね。「どう」の意味がよくわかりせんが、別シートが例えばSheet2という名前なら、
ActiveChart.SeriesCollection(1).XValues = "=Sheet2!R19C2:R21C2"
のようにどうぞ。

シート名に規則性があればループで処理できるかもしれません。
またも情報が少なくて、そのあたりは直接回答ができません。

質問が複数回にわたるのは構いません。大歓迎です。
ただ、こちらからの質問には答えない、前回のアドバイスなりは試験しない、情報の提示をのお願いはなかなか聞いていただけないでは、レスがつけづらいです。
＃怒っているわけではありませんが、若干もどかしく感じております。


	【12075】すみません。

ぽんぽん - 04/3/23(火) 15:08 -


	引用なし

	パスワード

ホントに申し訳ありません。
方法が正しいかどうかわかりませんが、作ったグラフ（X軸は小数点以下
３桁になっているもの）を選択し、マクロの記録をしてみました。

Sub 軸の書式()

　　ActiveChart.Axes(xlValue).Select
　　Selection.TickLabels.NumberFormatLocal = "0.0_ "
End Sub

上記のように示されました。
このマクロを他のグラフで試してみると、
「実行時エラー438
オブジェクトはこのプロパティまたはメソッドをサポートしていません。」
というエラーが出ます。


	【12078】Re:すみません。

こうちゃん

- 04/3/23(火) 15:33 -


	引用なし

	パスワード

>ホントに申し訳ありません。
いえいえ^^

>方法が正しいかどうかわかりませんが、作ったグラフ（X軸は小数点以下
>３桁になっているもの）を選択し、マクロの記録をしてみました。
>
>Sub 軸の書式()
>
>　　ActiveChart.Axes(xlValue).Select
>　　Selection.TickLabels.NumberFormatLocal = "0.0_ "
>End Sub
>
>上記のように示されました。
>このマクロを他のグラフで試してみると、
>「実行時エラー438
>オブジェクトはこのプロパティまたはメソッドをサポートしていません。」
>というエラーが出ます。

>　　ActiveChart.Axes(xlValue).Select
>　　Selection.TickLabels.NumberFormatLocal = "0.0_ "
は
ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "
とほぼ等価ですので、MacではVBA上ではこのプロパティは使えないと見たほうがいいかもしれませんね。
他のグラフでエラーになるようですが、マクロ記録したそのまま実行したらどうなります？
また他のグラフで試験するときにはグラフをアクティブにしてるんですよね？


	【12079】Re:すみません。

ぽんぽん - 04/3/23(火) 15:43 -


	引用なし

	パスワード

こんにちは。

>>　　ActiveChart.Axes(xlValue).Select
>>　　Selection.TickLabels.NumberFormatLocal = "0.0_ "
>は
>ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "
>とほぼ等価ですので、MacではVBA上ではこのプロパティは使えないと見たほうがいいかもしれませんね。

そうですかー　なにかとMacでは普通にExcelなどを使っていても不便を感じることが
多いです。

>他のグラフでエラーになるようですが、マクロ記録したそのまま実行したらどうなります？

すみません、「マクロ記録したそのまま実行したらどうなります？」と言う意味が
よくわからないのですが、実際に「マクロ記録」で作ってるときはきちんと
小数点以下１桁になります。
新しく他のグラフで実行にうつすと、エラーが出るといった具合です。

>また他のグラフで試験するときにはグラフをアクティブにしてるんですよね？

はい。そうしています。


	【12080】Re:すみません。

こうちゃん

- 04/3/23(火) 16:01 -


	引用なし

	パスワード

ぽんぽんさん、こんにちは
>>他のグラフでエラーになるようですが、マクロ記録したそのまま実行したらどうなります？
>
>すみません、「マクロ記録したそのまま実行したらどうなります？」と言う意味が
>よくわからないのですが、実際に「マクロ記録」で作ってるときはきちんと
>小数点以下１桁になります。
>新しく他のグラフで実行にうつすと、エラーが出るといった具合です。

マクロの記録を終了したら、何もせずに（今変更したグラフがアクティブのまま）「ツール」「マクロ」「マクロ」で記録したマクロを実行してもエラーになるか、ということです。
つまり、マクロ記録時はマクロを実行するのではなく、操作をマクロとして記録しています。
その状態のまま、いま登録したマクロの実行で同様のエラーならあきらめるしかないかなということなのですが・・
わかりづらいでしょうか？


	【12082】Re:すみません。

ぽんぽん - 04/3/23(火) 16:09 -


	引用なし

	パスワード

こうちゃんさん、こんにちは。
>マクロの記録を終了したら、何もせずに（今変更したグラフがアクティブのまま）「ツール」「マクロ」「マクロ」で記録したマクロを実行してもエラーになるか、ということです。
>つまり、マクロ記録時はマクロを実行するのではなく、操作をマクロとして記録しています。
>その状態のまま、いま登録したマクロの実行で同様のエラーならあきらめるしかないかなということなのですが・・
>わかりづらいでしょうか？

いえいえ、丁寧にありがとうございます。
やってみましたが、全く同じエラーメッセージが出ました。
この点については、あきらめるしかなさそうですね。
ありがとうございました！


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12155 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free