teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

23

2021/10/01 09:37

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -92,4 +92,9 @@
92
92
  ![コンパイルエラー](4c030d1fb068f1931ab1d2d7e58135be.png)
93
93
 
94
94
  デバッガが止まるところ
95
- ![デバッガが止まるところ](d9a003f1ce12edf9090a3803507f298f.png)
95
+ ![デバッガが止まるところ](d9a003f1ce12edf9090a3803507f298f.png)
96
+
97
+ 追記
98
+ エラーラベルのコロンは付け忘れていませんでした。
99
+ 自分のフォルダ名取得にこのサイトを参考にしたのが間違いでした。
100
+ https://lilia-study.com/excel/excel-sample/cell-folbosh.html

22

補足追記

2021/10/01 09:37

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -88,5 +88,8 @@
88
88
  将棋に例えるなら封じ手をして2日間お休みする感じです。
89
89
 
90
90
  補足(解決した)
91
+ コンパイルエラー
91
92
  ![コンパイルエラー](4c030d1fb068f1931ab1d2d7e58135be.png)
93
+
94
+ デバッガが止まるところ
92
95
  ![デバッガが止まるところ](d9a003f1ce12edf9090a3803507f298f.png)

21

ソースコード追加

2021/09/28 14:57

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -1,3 +1,16 @@
1
+ ```VBA
2
+ Private Sub Workbook_BeforeClose(Cancel As Boolean)
3
+
4
+ On Error GoTo ERROR_
5
+ '
6
+ 'ここに100行くらい書いたわけですよ。
7
+ '
8
+ Cancel = False
9
+ Exit Sub
10
+ ERROR_
11
+ Cancel = True
12
+ End Sub
13
+ ```
1
14
  Private Sub Workbook_BeforeClose(Cancel)を使うと「Sub または Function が定義されていません。」という意味不明なエラーが出ます。
2
15
 
3
16
  綴りも大文字、小文字も間違っていません。

20

解決した。

2021/09/28 14:55

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -72,4 +72,8 @@
72
72
  その問題は解決して、呼ばれるようになったけど、Private Sub Workbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。
73
73
 
74
74
  補足
75
- 将棋に例えるなら封じ手をして2日間お休みする感じです。
75
+ 将棋に例えるなら封じ手をして2日間お休みする感じです。
76
+
77
+ 補足(解決した)
78
+ ![コンパイルエラー](4c030d1fb068f1931ab1d2d7e58135be.png)
79
+ ![デバッガが止まるところ](d9a003f1ce12edf9090a3803507f298f.png)

19

2021/09/28 14:54

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body 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
  どうすれば良いでしょうか?
@@ -50,7 +50,7 @@
50
50
  >コードを示さず「この部分です」って言えるわけないだろ。
51
51
 
52
52
  エラーが出ていたコードは示しています。
53
- Auto_Close()とかWorkbook_BeforeClose(Cancel)
53
+ Private Sub Workbook_BeforeClose(Cancel)
54
54
  ↑デバッグ実行すると、この行でエラーになります。
55
55
 
56
56
  補足
@@ -69,7 +69,7 @@
69
69
  >ブックを閉じたときに動くイベント処理を書きたくて、ネットで検索したコードを見よう見まねで貼り付けてみたけど、うまく動かなくて、よくよく調べてみたら標準モジュールじゃなくてThisWorkbookに書かないといけないという説明を見落としていた、というのが原因でした、正しい場所に移動させたら動くようになりました、ということでいいの??
70
70
 
71
71
  違います。
72
- その問題は解決して、呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。
72
+ その問題は解決して、呼ばれるようになったけど、Private Sub Workbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。
73
73
 
74
74
  補足
75
75
  将棋に例えるなら封じ手をして2日間お休みする感じです。

18

2021/09/28 14:36

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -69,4 +69,7 @@
69
69
  >ブックを閉じたときに動くイベント処理を書きたくて、ネットで検索したコードを見よう見まねで貼り付けてみたけど、うまく動かなくて、よくよく調べてみたら標準モジュールじゃなくてThisWorkbookに書かないといけないという説明を見落としていた、というのが原因でした、正しい場所に移動させたら動くようになりました、ということでいいの??
70
70
 
71
71
  違います。
72
- その問題は解決して、呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。
72
+ その問題は解決して、呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。
73
+
74
+ 補足
75
+ 将棋に例えるなら封じ手をして2日間お休みする感じです。

17

2021/09/28 14:31

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -69,4 +69,4 @@
69
69
  >ブックを閉じたときに動くイベント処理を書きたくて、ネットで検索したコードを見よう見まねで貼り付けてみたけど、うまく動かなくて、よくよく調べてみたら標準モジュールじゃなくてThisWorkbookに書かないといけないという説明を見落としていた、というのが原因でした、正しい場所に移動させたら動くようになりました、ということでいいの??
70
70
 
71
71
  違います。
72
- その問題は解決して、呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込ました。
72
+ その問題は解決して、呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込んで会社を出ました。

16

2021/09/28 14:28

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -62,4 +62,11 @@
62
62
  だから!この行には何も問題ないのに、この行でエラーが出るからエクセルが馬鹿だって言ってるんだよ!
63
63
 
64
64
  もういいです。
65
- 明日も明後日も会社休みだからソースコード見れるのは金曜日なんで。
65
+ 明日も明後日も会社休みだからソースコード見れるのは金曜日なんで。
66
+
67
+ 補足
68
+ >結局、問題というのは
69
+ >ブックを閉じたときに動くイベント処理を書きたくて、ネットで検索したコードを見よう見まねで貼り付けてみたけど、うまく動かなくて、よくよく調べてみたら標準モジュールじゃなくてThisWorkbookに書かないといけないという説明を見落としていた、というのが原因でした、正しい場所に移動させたら動くようになりました、ということでいいの??
70
+
71
+ 違います。
72
+ その問題は解決して、イ呼ばれるようになったけど、Auto_Close()とかWorkbook_BeforeClose(Cancel)の行で「Sub または Function が定義されていません。」という意味不明なエラーが出てイラッとしたので、ここに書き込みました。

15

2021/09/28 14:26

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -59,4 +59,7 @@
59
59
  >問題がある個所を示したんだよな?
60
60
  >解決だな。
61
61
 
62
- だから!この行には何も問題ないのに、この行でエラーが出るからエクセルが馬鹿だって言ってるんだよ!
62
+ だから!この行には何も問題ないのに、この行でエラーが出るからエクセルが馬鹿だって言ってるんだよ!
63
+
64
+ もういいです。
65
+ 明日も明後日も会社休みだからソースコード見れるのは金曜日なんで。

14

2021/09/28 14:08

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -51,4 +51,12 @@
51
51
 
52
52
  エラーが出ていたコードは示しています。
53
53
  Auto_Close()とかWorkbook_BeforeClose(Cancel)
54
- ↑デバッグ実行すると、この行でエラーになります。
54
+ ↑デバッグ実行すると、この行でエラーになります。
55
+
56
+ 補足
57
+ >じゃあそこ直せよ。
58
+ >そこに問題があるんだろ?
59
+ >問題がある個所を示したんだよな?
60
+ >解決だな。
61
+
62
+ だから!この行には何も問題ないのに、この行でエラーが出るからエクセルが馬鹿だって言ってるんだよ!

13

2021/09/28 14:03

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -44,4 +44,11 @@
44
44
  >がベストアンサーでいいんじゃないの?
45
45
 
46
46
  いや、そうではありません。
47
- 「エクセルのエラーメッセージは間違っています。エクセルのエラーメッセージを真に受けてはいけません。また、エクセルのデバッガは馬鹿なのでステップ実行もあきらめましょう。関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から1行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。」が正解です。
47
+ 「エクセルのエラーメッセージは間違っています。エクセルのエラーメッセージを真に受けてはいけません。また、エクセルのデバッガは馬鹿なのでステップ実行もあきらめましょう。関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から1行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。」が正解です。
48
+
49
+ 補足
50
+ >コードを示さず「この部分です」って言えるわけないだろ。
51
+
52
+ エラーが出ていたコードは示しています。
53
+ Auto_Close()とかWorkbook_BeforeClose(Cancel)
54
+ ↑デバッグ実行すると、この行でエラーになります。

12

2021/09/28 13:30

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
File without changes

11

2021/09/28 12:49

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -36,7 +36,7 @@
36
36
  補足
37
37
  >要件に対して間違ったコードなのかどうか第三者が分かる情報を提示しないまま言えることではないです。「百聞は一見に如かず」と言うでしょう?
38
38
 
39
- いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
39
+ いや、最初に「Sub または Function が定義されてません。」という意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。VBAに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
40
40
 
41
41
  補足
42
42
  >ということなら、y_waiwaiさんの

10

2021/09/28 12:49

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body 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

title CHANGED
File without changes
body CHANGED
@@ -36,4 +36,12 @@
36
36
  補足
37
37
  >要件に対して間違ったコードなのかどうか第三者が分かる情報を提示しないまま言えることではないです。「百聞は一見に如かず」と言うでしょう?
38
38
 
39
- いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
39
+ いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
40
+
41
+ 補足
42
+ >ということなら、y_waiwaiさんの
43
+ >「意味不明、と切り捨てずに、エラーメッセージを理解し、正しく修正すればいいです」
44
+ >がベストアンサーでいいんじゃないの?
45
+
46
+ いや、そうではありません。
47
+ 「エクセルのエラーメッセージは間違っています。エクセルのエラーメッセージを真に受けてはいけません。また、エクセルのデバッガは馬鹿なのでステップ実行もあきらめましょう。関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から1行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。」が正解です。

8

2021/09/28 12:33

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -36,4 +36,4 @@
36
36
  補足
37
37
  >要件に対して間違ったコードなのかどうか第三者が分かる情報を提示しないまま言えることではないです。「百聞は一見に如かず」と言うでしょう?
38
38
 
39
- いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。
39
+ いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の必要十分な情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。

7

2021/09/28 11:32

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -31,4 +31,9 @@
31
31
  >コードは書いた通りにしか動きません。
32
32
  >書いたのは誰ですか?
33
33
 
34
- 間違ったエラーを出したのはエクセルです。エクセルが馬鹿なので。
34
+ 間違ったエラーを出したのはエクセルです。エクセルが馬鹿なので。
35
+
36
+ 補足
37
+ >要件に対して間違ったコードなのかどうか第三者が分かる情報を提示しないまま言えることではないです。「百聞は一見に如かず」と言うでしょう?
38
+
39
+ いや、最初に「functionまたはsubが定義されてませんという意味不明なエラーが出ます。」と最大限の情報を提示しています。エクセルに精通している人なら「それはfunctionの中身がどこか間違っているだけです。」と的確な回答が出来たハズです。

6

2021/09/28 11:29

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -24,4 +24,11 @@
24
24
 
25
25
  補足
26
26
  1行ずつ元に戻すのはアホみたいなので、二分探索法を使います。
27
- 最初は上半分だけ戻して実行してエラーが出たら、上半分にエラーがあると確定します。そんな感じで半分ずつ戻すことを繰り返すと早く解決します。
27
+ 最初は上半分だけ戻して実行してエラーが出たら、上半分にエラーがあると確定します。そんな感じで半分ずつ戻すことを繰り返すと早く解決します。
28
+
29
+ 補足
30
+ >>エクセルは馬鹿なので。
31
+ >コードは書いた通りにしか動きません。
32
+ >書いたのは誰ですか?
33
+
34
+ 間違ったエラーを出したのはエクセルです。エクセルが馬鹿なので。

5

2021/09/28 11:05

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body 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

title CHANGED
File without changes
body CHANGED
@@ -20,4 +20,8 @@
20
20
 
21
21
  今回は、関数を呼び出したら、関数名を定義している行にエラーが出ましたが、そこに間違いがあると思うとわけがわからなくなってイライラしました。
22
22
 
23
- たぶん、関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から1行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。
23
+ たぶん、関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から1行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。
24
+
25
+ 補足
26
+ 1行ずつ元に戻すのはアホみたいなので、二分探索法を使います。
27
+ 最初は上半分だけ戻して実行してエラーが出たら、上半分にエラーがあると確定します。そんな感じで半分ずつ戻すことを繰り返すと早く解決します。

3

2021/09/28 10:26

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -12,4 +12,12 @@
12
12
  考えていたら何がおかしいのかわかってきたような気がします。
13
13
  エラーが出ている行は間違っていません。
14
14
  関係ないところが間違っていると思います。
15
- エクセルは馬鹿なので。
15
+ エクセルは馬鹿なので。
16
+
17
+ 補足
18
+ エクセルがエラーメッセージを出したら、自分が間違えていると思って調べるとわけがわからなくなってイライラします。
19
+ エクセルが間違っていると考えなくてはなりません。
20
+
21
+ 今回は、関数を呼び出したら、関数名を定義している行にエラーが出ましたが、そこに間違いがあると思うとわけがわからなくなってイライラしました。
22
+
23
+ たぶん、関数の中身を全部切り取ってメモ帳に貼り付けて関数の中身を空っぽにして、メモ帳から1行ずつ元に戻しては実行を繰り返すというアホみたいなことをすれば解決します。

2

2021/09/28 10:17

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -6,4 +6,10 @@
6
6
  補足
7
7
  ソースコードは間違っていません。
8
8
  エクセルがおかしいのです。
9
- どうすれば良いでしょうか?
9
+ どうすれば良いでしょうか?
10
+
11
+ 補足
12
+ 考えていたら何がおかしいのかわかってきたような気がします。
13
+ エラーが出ている行は間違っていません。
14
+ 関係ないところが間違っていると思います。
15
+ エクセルは馬鹿なので。

1

2021/09/28 09:44

投稿

qqfsdfsafd
qqfsdfsafd

スコア599

title CHANGED
File without changes
body CHANGED
@@ -1,4 +1,9 @@
1
1
  autocloseとかbeforecloseを使うとfunctionまたはsubが定義されてませんという意味不明なエラーが出ます。
2
2
 
3
3
  綴りも大文字、小文字も間違っていません。
4
+ どうすれば良いでしょうか?
5
+
6
+ 補足
7
+ ソースコードは間違っていません。
8
+ エクセルがおかしいのです。
4
9
  どうすれば良いでしょうか?