teratail
回答率
85.46%
質問するログイン新規登録
トップに関する質問VBAのエラーの意味がわかりません。

編集履歴

質問編集履歴

23

2021/10/01 09:37

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -187,3 +187,13 @@
187
187
  デバッガが止まるところ
188
188
 
189
189
  ![デバッガが止まるところ](d9a003f1ce12edf9090a3803507f298f.png)
190
+
191
+
192
+
193
+ 追記
194
+
195
+ エラーラベルのコロンは付け忘れていませんでした。
196
+
197
+ 自分のフォルダ名取得にこのサイトを参考にしたのが間違いでした。
198
+
199
+ https://lilia-study.com/excel/excel-sample/cell-folbosh.html

22

補足追記

2021/10/01 09:37

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -178,6 +178,12 @@
178
178
 
179
179
  補足（解決した）
180
180
 
181
+ コンパイルエラー
182
+
181
183
  ![コンパイルエラー](4c030d1fb068f1931ab1d2d7e58135be.png)
182
184
 
185
+
186
+
187
+ デバッガが止まるところ
188
+
183
189
  ![デバッガが止まるところ](d9a003f1ce12edf9090a3803507f298f.png)

21

ソースコード追加

2021/09/28 14:57

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -1,3 +1,29 @@
1
+ ```VBA
2
+
3
+ Private Sub Workbook_BeforeClose(Cancel As Boolean)
4
+
5
+
6
+
7
+ On Error GoTo ERROR_
8
+
9
+ '
10
+
11
+ 'ここに100行くらい書いたわけですよ。
12
+
13
+ '
14
+
15
+ Cancel = False
16
+
17
+ Exit Sub
18
+
19
+ ERROR_
20
+
21
+ Cancel = True
22
+
23
+ End Sub
24
+
25
+ ```
26
+
1
27
  Private Sub Workbook_BeforeClose(Cancel)を使うと「Sub または Function が定義されていません。」という意味不明なエラーが出ます。
2
28
 
3
29
 

20

解決した。

2021/09/28 14:55

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -147,3 +147,11 @@
147
147
  補足
148
148
 
149
149
  将棋に例えるなら封じ手をして２日間お休みする感じです。
150
+
151
+
152
+
153
+ 補足（解決した）
154
+
155
+ ![コンパイルエラー](4c030d1fb068f1931ab1d2d7e58135be.png)
156
+
157
+ ![デバッガが止まるところ](d9a003f1ce12edf9090a3803507f298f.png)

19

2021/09/28 14:54

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- Auto_Close()とかWorkbook_BeforeClose(Cancel)とかを使うと「Sub または Function が定義されていません。」という意味不明なエラーが出ます。
1
+ Private Sub Workbook_BeforeClose(Cancel)を使うと「Sub または Function が定義されていません。」という意味不明なエラーが出ます。
2
2
 
3
3
 
4
4
 
@@ -102,7 +102,7 @@
102
102
 
103
103
  エラーが出ていたコードは示しています。
104
104
 
105
- Auto_Close()とかWorkbook_BeforeClose(Cancel)
105
+ Private Sub Workbook_BeforeClose(Cancel)
106
106
 
107
107
  ↑デバッグ実行すると、この行でエラーになります。
108
108
 
@@ -140,7 +140,7 @@
140
140
 
141
141
  違います。
142
142
 
143
- その問題は解決して、呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。
143
+ その問題は解決して、呼ばれるようになったけど、Private Sub Workbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。
144
144
 
145
145
 
146
146
 

18

2021/09/28 14:36

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -141,3 +141,9 @@
141
141
  違います。
142
142
 
143
143
  その問題は解決して、呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。
144
+
145
+
146
+
147
+ 補足
148
+
149
+ 将棋に例えるなら封じ手をして２日間お休みする感じです。

17

2021/09/28 14:31

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -140,4 +140,4 @@
140
140
 
141
141
  違います。
142
142
 
143
- その問題は解決して、イ呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込みました。
143
+ その問題は解決して、呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。

16

2021/09/28 14:28

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -127,3 +127,17 @@
127
127
  もういいです。
128
128
 
129
129
  明日も明後日も会社休みだからソースコード見れるのは金曜日なんで。
130
+
131
+
132
+
133
+ 補足
134
+
135
+ ＞結局、問題というのは
136
+
137
+ ＞ブックを閉じたときに動くイベント処理を書きたくて、ネットで検索したコードを見よう見まねで貼り付けてみたけど、うまく動かなくて、よくよく調べてみたら標準モジュールじゃなくてThisWorkbookに書かないといけないという説明を見落としていた、というのが原因でした、正しい場所に移動させたら動くようになりました、ということでいいの？？
138
+
139
+
140
+
141
+ 違います。
142
+
143
+ その問題は解決して、イ呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込みました。

15

2021/09/28 14:26

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -121,3 +121,9 @@
121
121
 
122
122
 
123
123
  だから！この行には何も問題ないのに、この行でエラーが出るからエクセルが馬鹿だって言ってるんだよ！
124
+
125
+
126
+
127
+ もういいです。
128
+
129
+ 明日も明後日も会社休みだからソースコード見れるのは金曜日なんで。

14

2021/09/28 14:08

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -105,3 +105,19 @@
105
105
  Auto_Close()とかWorkbook_BeforeClose(Cancel)
106
106
 
107
107
  ↑デバッグ実行すると、この行でエラーになります。
108
+
109
+
110
+
111
+ 補足
112
+
113
+ ＞じゃあそこ直せよ。
114
+
115
+ ＞そこに問題があるんだろ？
116
+
117
+ ＞問題がある個所を示したんだよな？
118
+
119
+ ＞解決だな。
120
+
121
+
122
+
123
+ だから！この行には何も問題ないのに、この行でエラーが出るからエクセルが馬鹿だって言ってるんだよ！

13

2021/09/28 14:03

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -91,3 +91,17 @@
91
91
  いや、そうではありません。
92
92
 
93
93
  「エクセルのエラーメッセージは間違っています。エクセルのエラーメッセージを真に受けてはいけません。また、エクセルのデバッガは馬鹿なのでステップ実行もあきらめましょう。関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から１行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。」が正解です。
94
+
95
+
96
+
97
+ 補足
98
+
99
+ ＞コードを示さず「この部分です」って言えるわけないだろ。
100
+
101
+
102
+
103
+ エラーが出ていたコードは示しています。
104
+
105
+ Auto_Close()とかWorkbook_BeforeClose(Cancel)
106
+
107
+ ↑デバッグ実行すると、この行でエラーになります。

12

2021/09/28 13:30

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
File without changes

11

2021/09/28 12:49

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -74,7 +74,7 @@
74
74
 
75
75
 
76
76
 
77
- いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
77
+ いや、最初に「Sub または Function が定義されていません。」という意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。VBAに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
78
78
 
79
79
 
80
80
 

10

2021/09/28 12:49

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- Auto_Close()とかWorkbook_BeforeClose(Cancel)とかを使うとfunctionまたはsubが定義されてませんという意味不明なエラーが出ます。
1
+ Auto_Close()とかWorkbook_BeforeClose(Cancel)とかを使うと「Sub または Function が定義されていません。」という意味不明なエラーが出ます。
2
2
 
3
3
 
4
4
 

9

2021/09/28 12:46

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -75,3 +75,19 @@
75
75
 
76
76
 
77
77
  いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
78
+
79
+
80
+
81
+ 補足
82
+
83
+ ＞ということなら、y_waiwaiさんの
84
+
85
+ ＞「意味不明、と切り捨てずに、エラーメッセージを理解し、正しく修正すればいいです」
86
+
87
+ ＞がベストアンサーでいいんじゃないの？
88
+
89
+
90
+
91
+ いや、そうではありません。
92
+
93
+ 「エクセルのエラーメッセージは間違っています。エクセルのエラーメッセージを真に受けてはいけません。また、エクセルのデバッガは馬鹿なのでステップ実行もあきらめましょう。関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から１行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。」が正解です。

8

2021/09/28 12:33

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -74,4 +74,4 @@
74
74
 
75
75
 
76
76
 
77
- いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
77
+ いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。

7

2021/09/28 11:32

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -65,3 +65,13 @@
65
65
 
66
66
 
67
67
  間違ったエラーを出したのはエクセルです。エクセルが馬鹿なので。
68
+
69
+
70
+
71
+ 補足
72
+
73
+ ＞要件に対して間違ったコードなのかどうか第三者が分かる情報を提示しないまま言えることではないです。「百聞は一見に如かず」と言うでしょう？
74
+
75
+
76
+
77
+ いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。

6

2021/09/28 11:29

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -51,3 +51,17 @@
51
51
  １行ずつ元に戻すのはアホみたいなので、二分探索法を使います。
52
52
 
53
53
  最初は上半分だけ戻して実行してエラーが出たら、上半分にエラーがあると確定します。そんな感じで半分ずつ戻すことを繰り返すと早く解決します。
54
+
55
+
56
+
57
+ 補足
58
+
59
+ ＞＞エクセルは馬鹿なので。
60
+
61
+ ＞コードは書いた通りにしか動きません。
62
+
63
+ ＞書いたのは誰ですか？
64
+
65
+
66
+
67
+ 間違ったエラーを出したのはエクセルです。エクセルが馬鹿なので。

5

2021/09/28 11:05

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- autocloseとかbeforecloseを使うとfunctionまたはsubが定義されてませんという意味不明なエラーが出ます。
1
+ Auto_Close()とかWorkbook_BeforeClose(Cancel)とかを使うとfunctionまたはsubが定義されてませんという意味不明なエラーが出ます。
2
2
 
3
3
 
4
4
 

4

2021/09/28 10:52

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -43,3 +43,11 @@
43
43
 
44
44
 
45
45
  たぶん、関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から１行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。
46
+
47
+
48
+
49
+ 補足
50
+
51
+ １行ずつ元に戻すのはアホみたいなので、二分探索法を使います。
52
+
53
+ 最初は上半分だけ戻して実行してエラーが出たら、上半分にエラーがあると確定します。そんな感じで半分ずつ戻すことを繰り返すと早く解決します。

3

2021/09/28 10:26

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -27,3 +27,19 @@
27
27
  関係ないところが間違っていると思います。
28
28
 
29
29
  エクセルは馬鹿なので。
30
+
31
+
32
+
33
+ 補足
34
+
35
+ エクセルがエラーメッセージを出したら、自分が間違えていると思って調べるとわけがわからなくなってイライラします。
36
+
37
+ エクセルが間違っていると考えなくてはなりません。
38
+
39
+
40
+
41
+ 今回は、関数を呼び出したら、関数名を定義している行にエラーが出ましたが、そこに間違いがあると思うとわけがわからなくなってイライラしました。
42
+
43
+
44
+
45
+ たぶん、関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から１行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。

2

2021/09/28 10:17

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -15,3 +15,15 @@
15
15
  エクセルがおかしいのです。
16
16
 
17
17
  どうすれば良いでしょうか？
18
+
19
+
20
+
21
+ 補足
22
+
23
+ 考えていたら何がおかしいのかわかってきたような気がします。
24
+
25
+ エラーが出ている行は間違っていません。
26
+
27
+ 関係ないところが間違っていると思います。
28
+
29
+ エクセルは馬鹿なので。

1

2021/09/28 09:44

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

test CHANGED
File without changes
test CHANGED
@@ -5,3 +5,13 @@
5
5
  綴りも大文字、小文字も間違っていません。
6
6
 
7
7
  どうすれば良いでしょうか？
8
+
9
+
10
+
11
+ 補足
12
+
13
+ ソースコードは間違っていません。
14
+
15
+ エクセルがおかしいのです。
16
+
17
+ どうすれば良いでしょうか？