Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10535 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21379】マクロで表を作成するには たむきくｎ 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】マクロで表を作成するには
質問  たむきくｎ 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の練習のために
つくったやつですが。ホムペにいずれ紹介します。

それでは
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10535 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free