質問編集履歴
4
-
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -38,13 +38,9 @@
|
|
|
38
38
|
|
|
39
39
|
```ここに言語を入力
|
|
40
40
|
|
|
41
|
-
'<クラス名>
|
|
41
|
+
'<クラス名：ClassTemporary>
|
|
42
42
|
|
|
43
|
-
Option Explicit
|
|
44
|
-
|
|
45
|
-
Public
|
|
43
|
+
Public tpBcName As String
|
|
46
|
-
|
|
47
|
-
|
|
48
44
|
|
|
49
45
|
```
|
|
50
46
|
|
|
@@ -54,33 +50,29 @@
|
|
|
54
50
|
|
|
55
51
|
```ここに言語を入力
|
|
56
52
|
|
|
53
|
+
|
|
54
|
+
|
|
57
|
-
'<
|
|
55
|
+
'<フォーム>
|
|
56
|
+
|
|
57
|
+
Dim classTemporary As classTemporary '(注)関数外のモジュールにて宣言。
|
|
58
58
|
|
|
59
59
|
|
|
60
60
|
|
|
61
|
+
Private Sub SpinButton1_Change()
|
|
62
|
+
|
|
61
|
-
|
|
63
|
+
Set classTemporary = New classTemporary
|
|
64
|
+
|
|
65
|
+
classTemporary.tpBcName = "鬼滅"
|
|
66
|
+
|
|
67
|
+
MsgBox classTemporary.tpBcName ' ←(注)こちらはきちんと代入値「"鬼滅"」が表示されます。
|
|
62
68
|
|
|
63
69
|
|
|
64
70
|
|
|
65
|
-
Function
|
|
71
|
+
Public Function errorManEffect(ByVal page As Integer)' ← (注)ｴﾗｰ処理になります。
|
|
66
72
|
|
|
67
|
-
|
|
73
|
+
Set classTemporary = New classTemporary
|
|
68
74
|
|
|
69
|
-
|
|
75
|
+
MsgBox classTemporary.tpBcName ' ←(注)こちらは、「""」が表示されてしまいます。
|
|
70
|
-
|
|
71
|
-
MsgBox classUserName.userName
|
|
72
|
-
|
|
73
|
-
End Function
|
|
74
|
-
|
|
75
|
-
|
|
76
|
-
|
|
77
|
-
Function finish()
|
|
78
|
-
|
|
79
|
-
'Set classUserName = New Class1
|
|
80
|
-
|
|
81
|
-
MsgBox classUserName.userName
|
|
82
|
-
|
|
83
|
-
End Function
|
|
84
76
|
|
|
85
77
|
|
|
86
78
|
|
3
-
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -56,6 +56,12 @@
|
|
|
56
56
|
|
|
57
57
|
'<標準モジュール側>
|
|
58
58
|
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
Dim classUserName As Class1
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
59
65
|
Function start() As String
|
|
60
66
|
|
|
61
67
|
Set classUserName = New Class1
|
2
コードの余分な変数をとりのぞきました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -34,41 +34,47 @@
|
|
|
34
34
|
|
|
35
35
|
|
|
36
36
|
|
|
37
|
+
|
|
38
|
+
|
|
37
39
|
```ここに言語を入力
|
|
38
40
|
|
|
39
|
-
'<クラス名
|
|
41
|
+
'<クラス名>
|
|
40
42
|
|
|
43
|
+
Option Explicit
|
|
44
|
+
|
|
41
|
-
|
|
45
|
+
Public userName As String
|
|
46
|
+
|
|
47
|
+
|
|
42
48
|
|
|
43
49
|
```
|
|
44
50
|
|
|
45
51
|
|
|
46
52
|
|
|
53
|
+
|
|
54
|
+
|
|
47
55
|
```ここに言語を入力
|
|
48
56
|
|
|
49
|
-
'<
|
|
57
|
+
'<標準モジュール側>
|
|
50
58
|
|
|
59
|
+
Function start() As String
|
|
60
|
+
|
|
61
|
+
Set classUserName = New Class1
|
|
62
|
+
|
|
51
|
-
|
|
63
|
+
classUserName.userName = "代入"
|
|
64
|
+
|
|
65
|
+
MsgBox classUserName.userName
|
|
66
|
+
|
|
67
|
+
End Function
|
|
52
68
|
|
|
53
69
|
|
|
54
70
|
|
|
55
|
-
|
|
71
|
+
Function finish()
|
|
56
72
|
|
|
57
|
-
Set class
|
|
73
|
+
'Set classUserName = New Class1
|
|
58
74
|
|
|
59
|
-
class
|
|
75
|
+
MsgBox classUserName.userName
|
|
60
76
|
|
|
61
|
-
MsgBox classTemporary.tpBcName ' ←(注)こちらはきちんと代入値「"鬼滅"」が表示されます。
|
|
62
|
-
|
|
63
|
-
|
|
64
|
-
|
|
65
|
-
Public Function errorManEffect(ByVal page As Integer)' ← (注)ｴﾗｰ処理になります。
|
|
66
|
-
|
|
67
|
-
|
|
77
|
+
End Function
|
|
68
|
-
|
|
69
|
-
MsgBox classTemporary.tpBcName ' ←(注)こちらは、「""」が表示されてしまいます。
|
|
70
|
-
|
|
71
|
-
|
|
72
78
|
|
|
73
79
|
|
|
74
80
|
|
1
コード内のコメントをVBAのコメント仕様に是正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
```ここに言語を入力
|
|
38
38
|
|
|
39
|
-
<クラス名：ClassTemporary>
|
|
39
|
+
'<クラス名：ClassTemporary>
|
|
40
40
|
|
|
41
41
|
Public tpBcName As String
|
|
42
42
|
|
|
@@ -46,9 +46,9 @@
|
|
|
46
46
|
|
|
47
47
|
```ここに言語を入力
|
|
48
48
|
|
|
49
|
-
<フォーム>
|
|
49
|
+
'<フォーム>
|
|
50
50
|
|
|
51
|
-
Dim classTemporary As classTemporary (注)関数外のモジュールにて宣言。
|
|
51
|
+
Dim classTemporary As classTemporary '(注)関数外のモジュールにて宣言。
|
|
52
52
|
|
|
53
53
|
|
|
54
54
|
|
|
@@ -58,15 +58,15 @@
|
|
|
58
58
|
|
|
59
59
|
classTemporary.tpBcName = "鬼滅"
|
|
60
60
|
|
|
61
|
-
MsgBox classTemporary.tpBcName ←(注)こちらはきちんと代入値「"鬼滅"」が表示されます。
|
|
61
|
+
MsgBox classTemporary.tpBcName ' ←(注)こちらはきちんと代入値「"鬼滅"」が表示されます。
|
|
62
62
|
|
|
63
63
|
|
|
64
64
|
|
|
65
|
-
Public Function errorManEffect(ByVal page As Integer) ← (注)ｴﾗｰ処理になります。
|
|
65
|
+
Public Function errorManEffect(ByVal page As Integer)' ← (注)ｴﾗｰ処理になります。
|
|
66
66
|
|
|
67
67
|
Set classTemporary = New classTemporary
|
|
68
68
|
|
|
69
|
-
MsgBox classTemporary.tpBcName ←(注)こちらは、「""」が表示されてしまいます。
|
|
69
|
+
MsgBox classTemporary.tpBcName ' ←(注)こちらは、「""」が表示されてしまいます。
|
|
70
70
|
|
|
71
71
|
|
|
72
72
|
|