Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11137 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【17873】ﾋｽﾄｸﾞﾗﾑをマクロで実行したい きく 04/9/9(木) 13:10 質問[未読]
【17874】Re:ﾋｽﾄｸﾞﾗﾑをマクロで実行したい つん 04/9/9(木) 13:28 回答[未読]
【17875】Re:ﾋｽﾄｸﾞﾗﾑをマクロで実行したい きく 04/9/9(木) 13:40 発言[未読]
【17876】誰か助けて〜！ つん 04/9/9(木) 13:58 発言[未読]
【17878】これでいいかも・・・ つん 04/9/9(木) 14:17 回答[未読]
【17880】Re:これでいいかも・・・ きく 04/9/9(木) 14:54 発言[未読]
【17881】Re:これでいいかも・・・ つん 04/9/9(木) 15:09 発言[未読]
【17883】Re:これでいいかも・・・ きく 04/9/9(木) 15:32 お礼[未読]
【17911】できました！ きく 04/9/10(金) 10:02 お礼[未読]
【17873】ﾋｽﾄｸﾞﾗﾑをマクロで実行したい
質問  きく  - 04/9/9(木) 13:10 -
引用なし
パスワード
   Sub ヒストグラム作成()
　　Sheets("Histogram").Select
　　 Application.Run "C:\Program Files\Microsoft Office\Office\Library\Analysis\ATPVBAEN.XLA!Histogram", ActiveSheet.Range("$D$2:$D$301") _
　　　　, ActiveSheet.Range("$A$2"), ActiveSheet.Range("$E$2:$E$5"), False, False, False, False
　　　　
　　Range("A7").Select
　　ActiveCell.FormulaR1C1 = "100"
　　Range("A8").Select
End Sub
マクロを記録して実行したら、
Sheets("Histogram").Select
のところで
インデックスが有効範囲にありません。
とｴﾗｰがでてしまいます。
どのようにしたら良いでしょうか？
【17874】Re:ﾋｽﾄｸﾞﾗﾑをマクロで実行したい
回答  つん E-MAIL  - 04/9/9(木) 13:28 -
引用なし
パスワード
   こんにちは。

>Sheets("Histogram").Select
>のところで
>インデックスが有効範囲にありません。
>とｴﾗｰがでてしまいます。

「Histogram」というシートがない（シート名が間違っている）とか
そのシートがあるブックがアクティブになってない、とかじゃないですか？
【17875】Re:ﾋｽﾄｸﾞﾗﾑをマクロで実行したい
発言  きく  - 04/9/9(木) 13:40 -
引用なし
パスワード
   ▼つん さん：
早速ありがとうございます。
実はその次の行のATPVBAEN.XLA!Histogramがないというエラーがでて
何度もやってみてるうちに
エラーがその上のSheets("Histogram").Select
に移ってしまったんです。
分析ツールのヒストグラムの作成をマクロで記録したのですが、
実行するとエラーになってしまうんです。
記録したときはC:\Program Files\Microsoft Office\Office\Library\Analysis\はなくてATPVBAEN.XLA!Histogramが見つからないというエラーでした。
Sheets("Histogram").Select
　　 Application.Run "C:\Program Files\Microsoft Office\Office\Library\Analysis\ATPVBAEN.XLA!Histogram", ActiveSheet.Range("$D$2:$D$301") _
　　　　, ActiveSheet.Range("$A$2"), ActiveSheet.Range("$E$2:$E$5"), False, False, False, False
【17876】誰か助けて〜！
発言  つん E-MAIL  - 04/9/9(木) 13:58 -
引用なし
パスワード
   ども・・・

>実はその次の行のATPVBAEN.XLA!Histogramがないというエラーがでて
>何度もやってみてるうちに
>エラーがその上のSheets("Histogram").Select
>に移ってしまったんです。
>分析ツールのヒストグラムの作成をマクロで記録したのですが、
>実行するとエラーになってしまうんです。
>記録したときはC:\Program Files\Microsoft Office\Office\Library\Analysis\はなくてATPVBAEN.XLA!Histogramが見つからないというエラーでした。

あー、そうですか・・・
ちょっと私にはお手上げです(T_T)
達人の方々のご登場をお待ちしましょう。すんません。
誰か助けて〜(>_<)
【17878】これでいいかも・・・
回答  つん E-MAIL  - 04/9/9(木) 14:17 -
引用なし
パスワード
   あ、わかりました。
こんな感じみたいです。

AddIns.Add("C:\Program Files\Microsoft Office\Office10\Library\Analysis\ATPVBAEN.XLA").Installed = True

Application.Run "ATPVBAEN.XLA!Histogram", ActiveSheet.Range("A1:A10"), ActiveSheet.Range("C1"), ActiveSheet.Range("B1:B5"), False, False, False, False

データの範囲適当ですけど・・・

で、ヒストグラムって何なんだろう？・・とか聞いてみたりして（＾＾;
【17880】Re:これでいいかも・・・
発言  きく  - 04/9/9(木) 14:54 -
引用なし
パスワード
   ▼つん さん：
AddIns使ってみました。
でもやっぱりATPVBAEN.XLA!Histogramがないといってきます。
いろいろありがとうございます。
>で、ヒストグラムって何なんだろう？・・とか聞いてみたりして（＾＾;
オフィシャルマニュアルから「あるデータ群を対象として、それらのデータが特定のデータ区間（範囲）に出現する回数（頻度）をプロットしたグラフ」です。
２０％以上の正解者が何人、４０％以上の正解者が何人とか・・・
【17881】Re:これでいいかも・・・
発言  つん E-MAIL  - 04/9/9(木) 15:09 -
引用なし
パスワード
   >AddIns使ってみました。
>でもやっぱりATPVBAEN.XLA!Histogramがないといってきます。

AddIns.Add("C:\Program Files\Microsoft Office\Office10\Library\Analysis\ATPVBAEN.XLA").Installed = True

ここで指定するパスが違ってるとか・・・
調べたサンプルでは、「Microsoft Office\Office」ってなってて、
うちでは「Microsoft Office\Office10」で10がついてました。
・・・って、たぶん調べてますよね・・・
うーんなんでだろう？
こっちでは一応上手くいってます。
でも、いろいろやってたらダメになってきた・・で、再起動した上手くいきました。
関係ないかしらん？

>>で、ヒストグラムって何なんだろう？・・とか聞いてみたりして（＾＾;
>オフィシャルマニュアルから「あるデータ群を対象として、それらのデータが特定のデータ区間（範囲）に出現する回数（頻度）をプロットしたグラフ」です。
>２０％以上の正解者が何人、４０％以上の正解者が何人とか・・・

なるほど・・・納得！まではいかないけど、なんとなくイメージ沸きました
ありがとうございます＾＾
【17883】Re:これでいいかも・・・
お礼  きく  - 04/9/9(木) 15:32 -
引用なし
パスワード
   ▼つん さん：
うまくいった！というので励みになりました。
ファイルの場所も何度も確認しているのですが。。。
そういった単純な間違いなのかもしれません。
今日はこれで外出します。ありがとうございました。
【17911】できました！
お礼  きく  - 04/9/10(金) 10:02 -
引用なし
パスワード
   なんでか良くわからないけど、またすべてを０にして
マクロを記録してみたらできました。
ありがとうございました。
コードは次のとおりです。
Sub ヒストグラム作成()
　　 Application.Run "ATPVBAEN.XLA!Histogram", ActiveSheet.Range("$D$2:$D$13"), _
　　　　Worksheets("総合正答率ﾋｽﾄｸﾞﾗﾑｼｰﾄ").Range("$A$2"), ActiveSheet.Range("$E$2:$E$5"), False, False, _
　　　　False, False
　　Range("A7").Select
　　ActiveCell.FormulaR1C1 = "100"
　　Range("A8").Select
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11137 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free