Excel VBA質問箱 IV

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

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


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

14941 / 76734

←次へ　｜　前へ→


	【67279】例１

ichinose - 10/11/19(金) 20:11 -


	引用なし

	パスワード

例１

新規ブックにて、

クラスモジュール作成してください（クラス名は、既定名のClass1）

このClass1のモジュールには

'==========================================================
Option Explicit
Function method_add(x As Double, y As Double) As Double
　　method_add = x + y
End Function

という足し算の答えを返す　method_add　というメソッドだけです。

標準モジュールに

Sub test1()
　　Dim cls As Class1
　　Set cls = New Class1
　　MsgBox cls.method_add(15, 23)
　　MsgBox cls.aaa(15, 12)
End Sub

これを実行すると、

MsgBox cls.aaa(15, 12)
↑ここがコンパイルエラーになります。

が、
Sub test1()
　　Dim cls As Class1
　　Set cls = New Class1
　　MsgBox cls.method_add(15, 23)
　　'MsgBox cls.aaa(15, 12)　ここは、コメント化しておく
End Sub
Sub test2()
　　Dim cls As Object
　　Set cls = New Class1
　　MsgBox cls.method_add(15, 23)
　　MsgBox cls.aaa(15, 12)
End Sub

test2を実行すると、コンパイルエラーにはならず、
MsgBox cls.method_add(15, 23)
↑この結果の38は、表示され、
MsgBox cls.aaa(15, 12)
この実行時にエラーになります。これは、当たり前
つまり、プロシジャーの実行はされていることになります。

2 hits

▼

【67265】バージョンの違いによる引数変化の対応 ぴのぽ 10/11/18(木) 16:30