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 -

引用なし
パスワード
   こんにちは。
VBAで「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 さん:
>VBAで「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