Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11907 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13294】統計関数のVBAでの利用 中山 04/4/30(金) 19:10 質問[未読]
【13295】Re:統計関数のVBAでの利用 BOTTA 04/4/30(金) 19:29 回答[未読]
【13296】Re:統計関数のVBAでの利用 中山 04/4/30(金) 20:04 お礼[未読]
【13396】Re:統計関数のVBAでの利用 中山 04/5/4(火) 12:03 質問[未読]
【13397】Re:統計関数のVBAでの利用 Asaki 04/5/4(火) 12:43 回答[未読]
【13414】Re:統計関数のVBAでの利用 中山 04/5/4(火) 18:09 お礼[未読]
【13294】統計関数のVBAでの利用
質問  中山 E-MAIL  - 04/4/30(金) 19:10 -
引用なし
パスワード
   はじめまして、中山と申します。

仕事でデータ処理をおこなっているのですが、項目が多いのでマクロを作成し
処理しようと思い、マクロの記録機能で統計の関数（分析ツールの基本統計量を
選択）を呼び出し記録を終了させてから、マクロを実行しようとしましたが、
エラーがでて実行できませんでした（VBAは今日はじめて使ってみました）。
マクロで統計の関数を呼び出し実行することはできないのでしょうか？

作製されたマクロを見ると次のようになっていました。
実行すると、'ATPVBAEN.XLA'が見つかりません。．．．．．と
エラーがでます。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2004/4/30　ユーザー名 : nakayama
'

'
　　 Application.Run "ATPVBAEN.XLA!Descr",　ActiveSheet.Range("$B$3:$B$27"), _
　　　　ActiveSheet.Range("$D$3:$E$18"), "C", False, True
End Sub

アドバイスしていただけると幸いです。
よろしくお願いいたします。
【13295】Re:統計関数のVBAでの利用
回答  BOTTA  - 04/4/30(金) 19:29 -
引用なし
パスワード
   中山さん、こんばんは。
>作製されたマクロを見ると次のようになっていました。
>実行すると、'ATPVBAEN.XLA'が見つかりません。．．．．．と
>エラーがでます。

「分析ツール」というのは、アドインを利用するもの。
私自身、アドインはあまり利用したことが無いのですが、
おそらく、
Application.Run ････の前に
アドインを組み込む必要があると思います。

AddIns.Add("パスを含めたファイル名").Installed=True
というコードを追加してみてください。
【13296】Re:統計関数のVBAでの利用
お礼  中山 E-MAIL  - 04/4/30(金) 20:04 -
引用なし
パスワード
   アドバイスありがとうございました。
AddIns.Add("C:\Program Files\Microsoft Office\Office\Library\Analysis\ATPVBAEN.XLA").Installed = True
の一文を追加したところうまくいきました。
おかげさまで、仕事の効率をあげることができそうです。
本当に感謝です！！
【13396】Re:統計関数のVBAでの利用
質問  中山 E-MAIL  - 04/5/4(火) 12:03 -
引用なし
パスワード
   度々すみません、さらに質問があります。
処理したいデータが別シートにあるときはどのようにしたらよいでしょうか？
例えば、Sheet1のデータをSheet2で統計処理するばあい、Sheet1のデータを
どのように選べばいいかわかりまん、試しにデータ範囲を
ActveSheet.Range("Sheet1!$B3:$12")
のように記述してみましたが、エラーでうごきませんでした。
よろしくお願いいたします。

▼BOTTA さん：
>中山さん、こんばんは。
>>作製されたマクロを見ると次のようになっていました。
>>実行すると、'ATPVBAEN.XLA'が見つかりません。．．．．．と
>>エラーがでます。
>
>「分析ツール」というのは、アドインを利用するもの。
>私自身、アドインはあまり利用したことが無いのですが、
>おそらく、
>Application.Run ････の前に
>アドインを組み込む必要があると思います。
>
>AddIns.Add("パスを含めたファイル名").Installed=True
>というコードを追加してみてください。
【13397】Re:統計関数のVBAでの利用
回答  Asaki  - 04/5/4(火) 12:43 -
引用なし
パスワード
   こんにちは。

Sheet2からデータを参照する場合は、↓のような書き方になります。
Worksheets("Sheet1").Range("$B3:$12")
【13414】Re:統計関数のVBAでの利用
お礼  中山 E-MAIL  - 04/5/4(火) 18:09 -
引用なし
パスワード
   どうもありがとうございました。
おかげさまで退屈な操作を繰り返さずにすみました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11907 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free