VBA初心者です。
現在、Excel2003-VBAでクラスにプロパティの実装を試みていますが、うまくいきません。
Publicで宣言する方法は問題なく出来たのですが…。
勉強用のため、敢えて簡単なサンプルを自分で作っています。
【状況】
下記プログラムで、メッセージを「20」と表示させたいのですが、
「スタック領域が不足しています」エラーにより、実行できません。
また「Atai」を「Suji」にかえると、メッセージとして「0」と出てきます。
あるいは、「Suji = Atai + 5」を消してみても「15」ではなく「0」と出ます。
【質問】
どちらでもうまくいかないのですが、これは
(1)このコードがおかしいのか、それとも
(2)単純なプログラムであるのに領域不足と出るところから、
VBA特有の不具合でどうしようもない物なのでしょうか?
ご意見お待ちしています。
===通常Module(呼び出し側)===
Option Explicit
Sub 実行()
Dim Haichi As New Class1
With Haichi
.Suji = 15
.MSGクラス
End With
End Sub
===クラスMODULE(Class1)===
Option Explicit
Sub MSGクラス()
MsgBox Suji
End Sub
Public Property Let Suji(Atai As Double)
Suji = Atai + 5
End Property
Public Property Get Suji() As Double
End Property
No.2ベストアンサー
- 回答日時:
一般的な実装
' プロパティSujiの値を記憶しておく実体
Private dSuji as Double
public Property Let Suji( Atai as Double )
dSuji = atai + 5
end Property
Public Property Get Suji() as Double
Suji = dSuji
End Property
といった具合に実装します
質問のような記述をすると #1の回答のように
実行時に
With Haichi
.Suji = 15
で Class1の
Public Property Let Suji(Atai As Double)
ここが呼び出されます
次の
Suji = Atai + 5 が Sujiへの代入なので
また
Public Property Let Suji(Atai As Double)
の行が実行されます
これが繰り返されて スタックを食いつぶすことになります
この回答への補足
ご回答の通りにしてみたらできました。
まだ理解が浅いので、ヘンな表現ですが、
SujiがAtaiに代入され、
Ataiを使ってdSujiが計算され、
dSujiがSujiに代入されるという感じでしょうか。
(AtaiとdSujiは一時的に値を記憶なり取得なりする?)
No.4
- 回答日時:
簡単な例を挙げてみます。
参考になれば。クラスでプロパティとメソッドを作る例
VBEの画面で
挿入ークラスモジュール
2つめのクラスモジュールに作ったので名前はClass2になってます。
Nameはモジュールで1つのプロパティの名として使います。
keisanはメッソドでモジュールでメソッドとして、この名で使います。
下記はいわゆる設計図に当たります。
Dim m_strName As String
Dim keisann As Integer
Public Property Get Name() As String
Name = m_strName
End Property
Public Property Let Name(ByVal NewValue As String)
m_strName = NewValue
End Property
Public Function keisan(a As Integer)
keisan = a + 5
End Function
ーー
標準モジュールのModule1に
Dim aaa As New Class2
Sub test01()
Set aaa = New Class2
aaa.Name = "AAAAAA"
MsgBox aaa.Name
MsgBox aaa.keisan(10)
End Sub
aaaは実体化した時のオブジェクトの名前。
Set aaa = New Class2はクラスClass2をインスタント化
aaa.Name = "AAAAAA" はNameプロパティにAAAAAAにセット
MsgBox aaa.Name はプロパティの値を利用している。
MsgBox aaa.keisan(10) は計算メソッドを利用している。
引数に+5している。
ーーー
>Public Property Let Suji(Atai As Double)
Suji = Atai + 5
End Property
はプロパティでの定義でするものではないのではないか。
===
VBAはApplicationであるエクセル・アクセスの操作などを対象にしたもので、普通の操作に使う、プロパティ・メソッドは既に備わっている。解説書の量で言えば、エクセルで1000ページに近い。
ですからエクセルなどでクラスの考えを使わなければならないことは
ほとんどない。もっとシステム設計やアルゴリズムなどのことで勉強することがたくさん有るだろう。深入りしても無駄だと思う。VB.NETではメインの考えだろうが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Excel(エクセル) Excel-VBAの「しばらくお待ちください」のダイアログが自動的に閉じない 2 2023/05/24 15:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
共通モジュールでDBへの接続と...
-
[VBA] Classから他のClassを呼...
-
Excel vbaで複数のテキストボッ...
-
用語の意味の違いを教えてくだ...
-
(初歩)インスタンス化の負担と...
-
バウンドプロパティとは?
-
コンポーネント指向って、どの...
-
VB.netで、動的な型変換を行い...
-
パソコンへの「Dropbox...
-
worksheetFunctionクラスのVloo...
-
VBA シートのボタン名を変更し...
-
ユーザーフォームを表示中にシ...
-
実行時エラー 438になった時の...
-
ウォッチ式の文字数制限について
-
エクセルエラー13型が一致しま...
-
今日スマホでネットをしていた...
-
MSGBOXのフォント大きさ変更
-
「Columns("A:C")」の列文字を...
-
eclipseのデバッグ中に変数の値...
-
VBAでユーザーフォームを再表示...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
共通モジュールでDBへの接続と...
-
[VBA] Classから他のClassを呼...
-
Excel vbaで複数のテキストボッ...
-
用語の意味の違いを教えてくだ...
-
他のモジュールのプロシージャ...
-
VB.netで、動的な型変換を行い...
-
WPFでCanvas の子要素にアクセ...
-
VB.NETにて文字列で指定した関...
-
【JSF】バッキングビーンから別...
-
バウンドプロパティとは?
-
VBAで、Functionを、クラスモジュール...
-
VBA オブジェクト追加
-
Form2の変数をForm1に渡す方法...
-
コンポーネント指向って、どの...
-
VBA クラスにプロパティが実装...
-
シーケンス図について。
-
VBA モジュールレベル・パブリ...
-
worksheetFunctionクラスのVloo...
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
おすすめ情報