Excel VBA質問箱 IV

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

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


69182 / 76733 ←次へ | 前へ→

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

引用なし
パスワード
   ぽんぽんさん、こんにちは

>更に質問ですが、X軸の値を小数点以下1桁の構文
>ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "
>
>は下に示した中のどこにいれればいいですか?
>
>Sub 回帰曲線ACA11_2()
>'
>' 回帰曲線ACA11_2 Macro
>' マクロ記録日 : 2004.3.23 ユーザー名 : mitoh yuko
>'
>
>'
この2行はいらないのでは?
---------------------------------------------
>  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

2 hits

【12031】2次回帰曲線のマクロについて ぽんぽん 04/3/22(月) 16:06 質問
【12034】Re:2次回帰曲線のマクロについて こうちゃん 04/3/22(月) 16:45 回答
【12047】Re:2次回帰曲線のマクロについて ぽんぽん 04/3/22(月) 17:36 質問
【12050】Re:2次回帰曲線のマクロについて こうちゃん 04/3/22(月) 18:11 回答
【12054】Re:2次回帰曲線のマクロについて ぽんぽん 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 お礼

69182 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free