質問編集履歴
1
変数宣言について。エラー部分について補強
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -26,6 +26,8 @@
|
|
|
26
26
|
|
|
27
27
|
```VBA
|
|
28
28
|
|
|
29
|
+
Option Explicit
|
|
30
|
+
|
|
29
31
|
Sub 下付き文字にするコード例()
|
|
30
32
|
|
|
31
33
|
Dim pos As Long
|
|
@@ -33,6 +35,12 @@
|
|
|
33
35
|
Dim Strnum As Long
|
|
34
36
|
|
|
35
37
|
Dim RepList() As Variant
|
|
38
|
+
|
|
39
|
+
Dim sld
|
|
40
|
+
|
|
41
|
+
Dim shp
|
|
42
|
+
|
|
43
|
+
Dim txt As String
|
|
36
44
|
|
|
37
45
|
RepList = Array(“●”, “●”, “●")
|
|
38
46
|
|
|
@@ -114,6 +122,24 @@
|
|
|
114
122
|
|
|
115
123
|
|
|
116
124
|
|
|
125
|
+
エラーの種類
|
|
126
|
+
|
|
127
|
+
・Call→ Private Sub() ()は空欄
|
|
128
|
+
|
|
129
|
+
→「変数が定義されていません」
|
|
130
|
+
|
|
131
|
+
・Call→ Private Sub(ByVal Strnum As Long, txt As String, RepList() As Variant, pos As Long)
|
|
132
|
+
|
|
133
|
+
→構文全体が青くなり、エラー表示はされないがエラー音が鳴って何も起こらない
|
|
134
|
+
|
|
135
|
+
・Call→ Function(ByVal Strnum As Long, txt As String, RepList() As Variant, pos As Long)
|
|
136
|
+
|
|
137
|
+
→エラー表示はされないが、エラー音が鳴って何も起こらない
|
|
138
|
+
|
|
139
|
+
・txt = she. 〜〜 をPrivate Subに入れないようにすると、「オブジェクトの指定が必要」のエラーは無くなりました。
|
|
140
|
+
|
|
141
|
+
|
|
142
|
+
|
|
117
143
|
### 補足情報（FW/ツールのバージョンなど）
|
|
118
144
|
|
|
119
145
|
|