teratail
回答率
85.30%
質問するログイン新規登録
トップに関する質問VBA:クラスへの代入値を他の関数で呼び出すためには。

編集履歴

質問編集履歴

4

-

2020/10/29 04:31

投稿

masafumi55
masafumi55

スコア12

title CHANGED
File without changes
body CHANGED
@@ -18,27 +18,23 @@
18
18
 
19
19
 
20
20
  ```ここに言語を入力
21
- '<クラス名>
21
+ '<クラス名：ClassTemporary>
22
- Option Explicit
23
- Public userName As String
22
+ Public tpBcName As String
24
-
25
23
  ```
26
24
 
27
25
 
28
26
  ```ここに言語を入力
29
- '<標準モジュール側>
30
27
 
28
+ '<フォーム>
31
- Dim classUserName As Class1
29
+ Dim classTemporary As classTemporary '(注)関数外のモジュールにて宣言。
32
30
 
33
- Function start() As String
31
+ Private Sub SpinButton1_Change()
34
- 　Set classUserName = New Class1
32
+ Set classTemporary = New classTemporary
35
- 　classUserName.userName = "代入"
33
+ classTemporary.tpBcName = "鬼滅"
36
- 　MsgBox classUserName.userName
34
+ MsgBox classTemporary.tpBcName　' ←(注)こちらはきちんと代入値「"鬼滅"」が表示されます。
37
- End Function
38
35
 
39
- Function finish()
36
+ Public Function errorManEffect(ByVal page As Integer)' ← (注)ｴﾗｰ処理になります。
40
- 'Set classUserName = New Class1
37
+ Set classTemporary = New classTemporary
41
- 　MsgBox classUserName.userName
38
+ MsgBox classTemporary.tpBcName　' ←(注)こちらは、「""」が表示されてしまいます。
42
- End Function
43
39
 
44
40
  ```

3

-

2020/10/29 04:30

投稿

masafumi55
masafumi55

スコア12

title CHANGED
File without changes
body CHANGED
@@ -27,6 +27,9 @@
27
27
 
28
28
  ```ここに言語を入力
29
29
  '<標準モジュール側>
30
+
31
+ Dim classUserName As Class1
32
+
30
33
  Function start() As String
31
34
  　Set classUserName = New Class1
32
35
  　classUserName.userName = "代入"

2

コードの余分な変数をとりのぞきました。

2020/10/29 04:19

投稿

masafumi55
masafumi55

スコア12

title CHANGED
File without changes
body CHANGED
@@ -16,23 +16,26 @@
16
16
 
17
17
  <コード概要>
18
18
 
19
+
19
20
  ```ここに言語を入力
20
- '<クラス名：ClassTemporary>
21
+ '<クラス名>
22
+ Option Explicit
21
- Public tpBcName As String
23
+ Public userName As String
24
+
22
25
  ```
23
26
 
27
+
24
28
  ```ここに言語を入力
25
- '<フォーム>
29
+ '<標準モジュール側>
30
+ Function start() As String
31
+ 　Set classUserName = New Class1
26
- Dim classTemporary As classTemporary '(注)関数外のモジュールにて宣言。
32
+ 　classUserName.userName = "代入"
33
+ 　MsgBox classUserName.userName
34
+ End Function
27
35
 
28
- Private Sub SpinButton1_Change()
36
+ Function finish()
29
- Set classTemporary = New classTemporary
37
+ 'Set classUserName = New Class1
30
- classTemporary.tpBcName = "鬼滅"
38
+ 　MsgBox classUserName.userName
31
- MsgBox classTemporary.tpBcName　' ←(注)こちらはきちんと代入値「"鬼滅"」が表示されます。
39
+ End Function
32
40
 
33
- Public Function errorManEffect(ByVal page As Integer)' ← (注)ｴﾗｰ処理になります。
34
- Set classTemporary = New classTemporary
35
- MsgBox classTemporary.tpBcName　' ←(注)こちらは、「""」が表示されてしまいます。
36
-
37
-
38
41
  ```

1

コード内のコメントをVBAのコメント仕様に是正しました。

2020/10/29 04:18

投稿

masafumi55
masafumi55

スコア12

title CHANGED
File without changes
body CHANGED
@@ -17,22 +17,22 @@
17
17
  <コード概要>
18
18
 
19
19
  ```ここに言語を入力
20
- <クラス名：ClassTemporary>
20
+ '<クラス名：ClassTemporary>
21
21
  Public tpBcName As String
22
22
  ```
23
23
 
24
24
  ```ここに言語を入力
25
- <フォーム>
25
+ '<フォーム>
26
- Dim classTemporary As classTemporary (注)関数外のモジュールにて宣言。
26
+ Dim classTemporary As classTemporary '(注)関数外のモジュールにて宣言。
27
27
 
28
28
  Private Sub SpinButton1_Change()
29
29
  Set classTemporary = New classTemporary
30
30
  classTemporary.tpBcName = "鬼滅"
31
- MsgBox classTemporary.tpBcName　←(注)こちらはきちんと代入値「"鬼滅"」が表示されます。
31
+ MsgBox classTemporary.tpBcName　' ←(注)こちらはきちんと代入値「"鬼滅"」が表示されます。
32
32
 
33
- Public Function errorManEffect(ByVal page As Integer) ← (注)ｴﾗｰ処理になります。
33
+ Public Function errorManEffect(ByVal page As Integer)' ← (注)ｴﾗｰ処理になります。
34
34
  Set classTemporary = New classTemporary
35
- MsgBox classTemporary.tpBcName　←(注)こちらは、「""」が表示されてしまいます。
35
+ MsgBox classTemporary.tpBcName　' ←(注)こちらは、「""」が表示されてしまいます。
36
36
 
37
37
 
38
38
  ```