Excel VBA質問箱 IV

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

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


10514 / 13644 ツリー ←次へ | 前へ→

【21379】マクロで表を作成するには たむきくn 05/1/20(木) 13:52 質問[未読]
【21381】Re:マクロで表を作成するには Jaka 05/1/20(木) 14:08 回答[未読]
【21382】Re:マクロで表を作成するには たむきくん 05/1/20(木) 14:14 質問[未読]
【21383】Re:マクロで表を作成するには たむきくん 05/1/20(木) 14:30 発言[未読]
【21385】Re:マクロで表を作成するには Jaka 05/1/20(木) 15:02 回答[未読]
【21386】Re:マクロで表を作成するには たむきくん 05/1/20(木) 15:07 発言[未読]
【21387】Re:マクロで表を作成するには G-Luck 05/1/20(木) 15:11 回答[未読]
【21389】Re:マクロで表を作成するには たむきくん 05/1/20(木) 15:17 お礼[未読]

【21379】マクロで表を作成するには
質問  たむきくn WEB  - 05/1/20(木) 13:52 -

引用なし
パスワード
   マクロで表を自動で作成するにはどうしたらいいですか?
自動マクロ作成機能で作ってみたんですが、Charts.Addで
エラーになります。自動作成機能で作ったマクロは以下の
ような感じです。

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A1200"), PlotBy _ :=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

【21381】Re:マクロで表を作成するには
回答  Jaka  - 05/1/20(木) 14:08 -

引用なし
パスワード
   こんにちは。

ここがおかしいだけで、
(動く動かないで無く、コンパイルエラー)
PlotBy _ :=xlColumns

直すとちゃんと動きました。
PlotBy:=xlColumns

>自動作成機能で作ったマクロは以下のような感じです。
感じですって事は、エラーになったコードとは別なコードって事ですよね。
別のコードを載せられても困ります。

【21382】Re:マクロで表を作成するには
質問  たむきくん WEB  - 05/1/20(木) 14:14 -

引用なし
パスワード
   以下のようにやってみたんですがPlotBy_:=で名前つき引数がみつかりませんと
エラーがでます。

  Charts.Add
  ActiveChart.ChartType = xlXYScatter
  ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A1200"), PlotBy_:=xlColumns
  ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
  With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "ハッシュが満杯になるデータの個数"
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "頻度"
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "個数"
  End With
  ActiveChart.PlotArea.Select
  Selection.Left = 17
  Selection.Top = 16
  ActiveChart.ChartArea.Select
  ActiveSheet.Shapes("グラフ 7").IncrementLeft -68.25
  ActiveSheet.Shapes("グラフ 7").IncrementTop -77.25
  ActiveSheet.Shapes("グラフ 7").ScaleWidth 1.41,msoFalse,msoScaleFromTopLeft
  ActiveSheet.Shapes("グラフ 7").ScaleHeight 1.72, msoFalse, msoScaleFromTopLeft

【21383】Re:マクロで表を作成するには
発言  たむきくん WEB  - 05/1/20(木) 14:30 -

引用なし
パスワード
   こんにちは
上の発言はまちがいで、以下のようになおしたんですが
PlotBy:=xlColumns
やはりCharts.AddでAddメソッドが失敗しましたとでます。

【21385】Re:マクロで表を作成するには
回答  Jaka  - 05/1/20(木) 15:02 -

引用なし
パスワード
   これだけでもエラーが出ますか?

Sub nmmk()
Charts.Add
End Sub

【21386】Re:マクロで表を作成するには
発言  たむきくん WEB  - 05/1/20(木) 15:07 -

引用なし
パスワード
   ▼Jaka さん:
>これだけでもエラーが出ますか?
>
>Sub nmmk()
>Charts.Add
>End Sub

まったく同じエラーがでます。

【21387】Re:マクロで表を作成するには
回答  G-Luck  - 05/1/20(木) 15:11 -

引用なし
パスワード
   Bookを保護していませんか?

【21389】Re:マクロで表を作成するには
お礼  たむきくん WEB  - 05/1/20(木) 15:17 -

引用なし
パスワード
   ▼G-Luck さん:
>Bookを保護していませんか?

Bookを保護してました。残念!
JakaさんG-Luckさんどうもありがとう。

これでハッシュテーブルが最初に満杯になるデータの数をシミュレーションする
プログラムのユーザインターフェイスが完成しました。VBAの練習のために
つくったやつですが。ホムペにいずれ紹介します。

それでは

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