Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3903 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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さんとのご関係は？


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3903 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free