Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3883 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59693】「subまたはfunctionが定義されていません」というエラーの解決 aoiro 09/1/2(金) 21:22 質問[未読]
【59695】Re:「subまたはfunctionが定義されていませ... neptune 09/1/2(金) 21:41 回答[未読]
【59696】Re:「subまたはfunctionが定義されていませ... aoiro 09/1/2(金) 23:05 お礼[未読]
【59697】Re:「subまたはfunctionが定義されていませ... ホグペン 09/1/2(金) 23:09 回答[未読]
【59699】Re:「subまたはfunctionが定義されていませ... monyo 09/1/3(土) 0:02 お礼[未読]
【59701】Re:「subまたはfunctionが定義されていませ... question 09/1/3(土) 0:27 発言[未読]
【59693】「subまたはfunctionが定義されていませ...
質問  aoiro  - 09/1/2(金) 21:22 -
引用なし
パスワード
   こんにちは。
ＶＢＡで「subまたはfunctionが定義されていません」
というエラーが出て困っています。
解決方法がわかる方、回答をお願い致します。

現在のコードは以下になります。

Sub kikas()
Dim r As Double 'カッタ半径
Dim cl As Double
Dim engage As Double
Dim ac As Double

Sheets("Sheet1").Activate
r = Cells(3, 3).Value / 2
cl = Cells(10, 3).Value
engage = 1 - (cl / r)
ac = Acos(engage)

End Sub
【59695】Re:「subまたはfunctionが定義されていま...
回答  neptune  - 09/1/2(金) 21:41 -
引用なし
パスワード
   ▼aoiro さん：
こんにちは。

>ac = Acos(engage)
適当に書いてはVBAに拒否されるということです。
Acos等というVBAに用意されて無い関数は自分で作成しなければなりません。

以下が参考になると思います。
ht tp://msdn.microsoft.com/ja-jp/library/cc392350.aspx
【59696】Re:「subまたはfunctionが定義されていま...
お礼  aoiro  - 09/1/2(金) 23:05 -
引用なし
パスワード
   ▼neptune さん：
Acosというのはexcel上で使用可能な関数だったんですね。
勉強不足でした。
おかげさまで、無事解決しました。
早急な回答ありがとうございました
【59697】Re:「subまたはfunctionが定義されていま...
回答  ホグペン  - 09/1/2(金) 23:09 -
引用なし
パスワード
   ▼aoiro さん：
>ＶＢＡで「subまたはfunctionが定義されていません」

　neptuneさんのご指摘のように、Acos() という関数が、VBA にないからですね。VBA のヘルプで確認してみましょう。ワークシートでは使えるのに、VBAでは使えない、という関数はいくつもあります。

　VBA に用意されていない関数は自分で作る、ということになりますが、それがワークシートで使える関数なら、自作しなくても次のようにして使えます。

>ac = Acos(engage)

というところを

ac = WorksheetFunction.Acos(engage)

としてみてください。
【59699】Re:「subまたはfunctionが定義されていま...
お礼  monyo  - 09/1/3(土) 0:02 -
引用なし
パスワード
   ▼ホグペン さん：
ご回答ありがとうございます。
ac = WorksheetFunction.Acos(engage)
で実行してみたら解決しました。
こちらの方がコードが短くて良いですね。
とても参考になりました。
【59701】Re:「subまたはfunctionが定義されていま...
発言  question  - 09/1/3(土) 0:27 -
引用なし
パスワード
   あなたは誰ですか？
aoiroさんとのご関係は？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3883 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free