Excel VBA質問箱 IV

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

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


69185 / 76734 ←次へ | 前へ→

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

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

更に質問ですが、X軸の値を小数点以下1桁の構文
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
1 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 お礼

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