teratail
回答率
85.46%
質問するログイン新規登録
トップに関する質問オブジェクトが必要です。とエラーが出てます。

編集履歴

質問編集履歴

3

追記しました。

2018/10/23 06:59

投稿

ffhtfttfh
ffhtfttfh

スコア18

test CHANGED
File without changes
test CHANGED
@@ -36,279 +36,77 @@
36
36
 
37
37
 
38
38
 
39
- ```If kekka = vbYes Then
39
+ 追記です。
40
40
 
41
- Dim lRow As Long
41
+ 検証した結果、このコードを除けば実行はしてくれます。
42
42
 
43
- Dim ws As Worksheet
43
+ どうやらここが悪いことがわかりました。
44
44
 
45
- Set ws = Worksheets("入力画面")
46
-
47
- If date1.Value Like "*2018/01/*" Then
48
-
49
- Dim ws1 As Worksheet
50
-
51
- Set ws1 = Worksheets("1月")
52
-
53
- lRow = ws1.Range("A" & Rows.Count).End(xlUp).Row
54
-
55
- ws1.Range("A" & lRow + 1).Value = date1.Value
56
-
57
- ws1.Range("B" & lRow + 1).Value = maker.Value
58
-
59
- ws1.Range("C" & lRow + 1).Value = kategori.Value
60
-
61
- ws1.Range("D" & lRow + 1).Value = hinban.Value
62
-
63
- ws1.Range("E" & lRow + 1).Value = kingaku.Value
64
-
65
- ws1.Range("F" & lRow + 1).Value = suryo.Value
66
-
67
- ws1.Range("G" & lRow + 1).Value = gokei.Value
68
-
69
- lRow = ws.Range("A" & Rows.Count).End(xlUp).Row
70
-
71
- ws.Range("A" & lRow + 1).Value = date1.Value
72
-
73
- ws.Range("B" & lRow + 1).Value = maker.Value
74
-
75
- ws.Range("C" & lRow + 1).Value = kategori.Value
76
-
77
- ws.Range("D" & lRow + 1).Value = hinban.Value
78
-
79
- ws.Range("E" & lRow + 1).Value = kingaku.Value
80
-
81
- ws.Range("F" & lRow + 1).Value = suryo.Value
82
-
83
- ws.Range("G" & lRow + 1).Value = gokei.Value
84
-
85
- hinban.Value = ""
86
-
87
- kingaku.Value = ""
45
+ ですが、どこを消しても、先ほどと同じエラーが起きてしまします。
88
-
89
- suryo.Value = ""
90
-
91
- gokei.Value = ""
92
-
93
- MsgBox "処理を行います。"
94
-
95
- hinban.SetFocus
96
-
97
- ElseIf date1.Value Like "*2018/02/*" Then
98
-
99
- Dim ws2 As Worksheet
100
-
101
- Set ws2 = Worksheets("2月")
102
-
103
- lRow = ws2.Range("A" & Rows.Count).End(xlUp).Row
104
-
105
- ws2.Range("A" & lRow + 1).Value = date1.Value
106
-
107
- ws2.Range("B" & lRow + 1).Value = maker.Value
108
-
109
- ws2.Range("C" & lRow + 1).Value = kategori.Value
110
-
111
- ws2.Range("D" & lRow + 1).Value = hinban.Value
112
-
113
- ws2.Range("E" & lRow + 1).Value = kingaku.Value
114
-
115
- ws2.Range("F" & lRow + 1).Value = suryo.Value
116
-
117
- ws2.Range("G" & lRow + 1).Value = gokei.Value
118
-
119
- lRow = ws.Range("A" & Rows.Count).End(xlUp).Row
120
-
121
- ws.Range("A" & lRow + 1).Value = date1.Value
122
-
123
- ws.Range("B" & lRow + 1).Value = maker.Value
124
-
125
- ws.Range("C" & lRow + 1).Value = kategori.Value
126
-
127
- ws.Range("D" & lRow + 1).Value = hinban.Value
128
-
129
- ws.Range("E" & lRow + 1).Value = kingaku.Value
130
-
131
- ws.Range("F" & lRow + 1).Value = suryo.Value
132
-
133
- ws.Range("G" & lRow + 1).Value = gokei.Value
134
-
135
- hinban.Value = ""
136
-
137
- kingaku.Value = ""
138
-
139
- suryo.Value = ""
140
-
141
- gokei.Value = ""
142
-
143
- MsgBox "処理を行います。"
144
-
145
- hinban.SetFocus
146
-
147
- ElseIf date1.Value Like "*2018/03/*" Then
148
-
149
- Dim ws3 As Worksheet
150
-
151
- Set ws3 = Worksheets("3月")
152
-
153
- lRow = ws3.Range("A" & Rows.Count).End(xlUp).Row
154
-
155
- ws3.Range("A" & lRow + 1).Value = date1.Value
156
-
157
- ws3.Range("B" & lRow + 1).Value = maker.Value
158
-
159
- ws3.Range("C" & lRow + 1).Value = kategori.Value
160
-
161
- ws3.Range("D" & lRow + 1).Value = hinban.Value
162
-
163
- ws3.Range("E" & lRow + 1).Value = kingaku.Value
164
-
165
- ws3.Range("F" & lRow + 1).Value = suryo.Value
166
-
167
- ws3.Range("G" & lRow + 1).Value = gokei.Value
168
-
169
- lRow = ws.Range("A" & Rows.Count).End(xlUp).Row
170
-
171
- ws.Range("A" & lRow + 1).Value = date1.Value
172
-
173
- ws.Range("B" & lRow + 1).Value = maker.Value
174
-
175
- ws.Range("C" & lRow + 1).Value = kategori.Value
176
-
177
- ws.Range("D" & lRow + 1).Value = hinban.Value
178
-
179
- ws.Range("E" & lRow + 1).Value = kingaku.Value
180
-
181
- ws.Range("F" & lRow + 1).Value = suryo.Value
182
-
183
- ws.Range("G" & lRow + 1).Value = gokei.Value
184
-
185
- hinban.Value = ""
186
-
187
- kingaku.Value = ""
188
-
189
- suryo.Value = ""
190
-
191
- gokei.Value = ""
192
-
193
- MsgBox "処理を行います。"
194
-
195
- hinban.SetFocus
196
-
197
- ElseIf date1.Value Like "*2018/04/*" Then
198
-
199
- Dim ws4 As Worksheet
200
-
201
- Set ws4 = Worksheets("4月")
202
-
203
- lRow = ws4.Range("A" & Rows.Count).End(xlUp).Row
204
-
205
- ws4.Range("A" & lRow + 1).Value = date1.Value
206
-
207
- ws4.Range("B" & lRow + 1).Value = maker.Value
208
-
209
- ws4.Range("C" & lRow + 1).Value = kategori.Value
210
-
211
- ws4.Range("D" & lRow + 1).Value = hinban.Value
212
-
213
- ws4.Range("E" & lRow + 1).Value = kingaku.Value
214
-
215
- ws4.Range("F" & lRow + 1).Value = suryo.Value
216
-
217
- ws4.Range("G" & lRow + 1).Value = gokei.Value
218
-
219
- lRow = ws.Range("A" & Rows.Count).End(xlUp).Row
220
-
221
- ws.Range("A" & lRow + 1).Value = date1.Value
222
-
223
- ws.Range("B" & lRow + 1).Value = maker.Value
224
-
225
- ws.Range("C" & lRow + 1).Value = kategori.Value
226
-
227
- ws.Range("D" & lRow + 1).Value = hinban.Value
228
-
229
- ws.Range("E" & lRow + 1).Value = kingaku.Value
230
-
231
- ws.Range("F" & lRow + 1).Value = suryo.Value
232
-
233
- ws.Range("G" & lRow + 1).Value = gokei.Value
234
-
235
- hinban.Value = ""
236
-
237
- kingaku.Value = ""
238
-
239
- suryo.Value = ""
240
-
241
- gokei.Value = ""
242
-
243
- MsgBox "処理を行います。"
244
-
245
- hinban.SetFocus
246
46
 
247
47
 
248
48
 
249
- ------------------こんな感じで12月まで------------------
49
+ ```
250
50
 
51
+ Private Sub UserForm_Initialize()
251
52
 
53
+ With maker
252
54
 
253
- Set ws12 = Worksheets("12月")
55
+ .AddItem "A"
254
56
 
255
- lRow = ws12.Range("A" & Rows.Count).End(xlUp).Row
57
+ .AddItem "B"
256
58
 
257
- ws12.Range("A" & lRow + 1).Value = date1.Value
59
+ .AddItem "C"
258
60
 
259
- ws12.Range("B" & lRow + 1).Value = maker.Value
61
+ .AddItem "D"
260
62
 
261
- ws12.Range("C" & lRow + 1).Value = kategori.Value
63
+ .AddItem "E"
262
64
 
263
- ws12.Range("D" & lRow + 1).Value = hinban.Value
65
+ .AddItem "F"
264
66
 
265
- ws12.Range("E" & lRow + 1).Value = kingaku.Value
67
+ .AddItem "G"
266
68
 
267
- ws12.Range("F" & lRow + 1).Value = suryo.Value
69
+ .AddItem "H"
268
70
 
269
- ws12.Range("G" & lRow + 1).Value = gokei.Value
71
+ .AddItem "I"
270
72
 
271
- lRow = ws.Range("A" & Rows.Count).End(xlUp).Row
73
+ .AddItem "J"
272
74
 
273
- ws.Range("A" & lRow + 1).Value = date1.Value
75
+ End With
274
76
 
275
- ws.Range("B" & lRow + 1).Value = maker.Value
77
+ With kategori
276
78
 
277
- ws.Range("C" & lRow + 1).Value = kategori.Value
79
+ .AddItem "１"
278
80
 
279
- ws.Range("D" & lRow + 1).Value = hinban.Value
81
+ .AddItem "２"
280
82
 
281
- ws.Range("E" & lRow + 1).Value = kingaku.Value
83
+ .AddItem "３"
282
84
 
283
- ws.Range("F" & lRow + 1).Value = suryo.Value
85
+ .AddItem "４"
284
86
 
285
- ws.Range("G" & lRow + 1).Value = gokei.Value
87
+ .AddItem "５"
286
88
 
287
- hinban.Value = ""
89
+ .AddItem "６"
288
90
 
289
- kingaku.Value = ""
91
+ .AddItem "７"
290
92
 
291
- suryo.Value = ""
93
+ .AddItem "８"
292
94
 
293
- gokei.Value = ""
95
+ .AddItem "９"
294
96
 
295
- MsgBox "処理を行います。"
97
+ .AddItem "１０"
98
+
99
+ .AddItem "１１"
100
+
101
+ End With
102
+
103
+ If ToggleButton1.Value = True Then
296
104
 
297
105
  hinban.SetFocus
298
106
 
299
107
  Else
300
108
 
301
- MsgBox "処理を中断します。"
302
-
303
- hinban.SetFocus
109
+ date1.SetFocus
304
-
305
- End If
306
-
307
- Else
308
-
309
- MsgBox "処理を中断します。"
310
-
311
- hinban.SetFocus
312
110
 
313
111
  End If
314
112
 
@@ -316,6 +114,8 @@
316
114
 
317
115
  End Sub
318
116
 
117
+
118
+
319
119
  コード
320
120
 
321
121
  ```

2

エラーメッセージを表示しました。

2018/10/23 06:59

投稿

ffhtfttfh
ffhtfttfh

スコア18

test CHANGED
File without changes
test CHANGED
@@ -16,6 +16,26 @@
16
16
 
17
17
 
18
18
 
19
+ 課題と言いましたが、独学です。
20
+
21
+ こんな事で質問することが恥ずかしく、
22
+
23
+ つい学校と言ってしましました。
24
+
25
+ 不快に思われた方、申し訳有りませんでした。
26
+
27
+
28
+
29
+ エラーメッセージは、
30
+
31
+
32
+
33
+ 実行時エラー'424'
34
+
35
+ オブジェクトが必要です。
36
+
37
+
38
+
19
39
  ```If kekka = vbYes Then
20
40
 
21
41
  Dim lRow As Long

1

申し訳ありませんでした。自分でやってみたことを書いてみました。

2018/10/23 05:48

投稿

ffhtfttfh
ffhtfttfh

スコア18

test CHANGED
@@ -1 +1 @@
1
- エラーが出てます。お手数おかけ致します。
1
+ オブジェクトが必要です。とエラーが出てます。
test CHANGED
@@ -1,20 +1,22 @@
1
- ```お世話になっております。
1
+ お世話になっております。
2
-
3
-
4
-
5
- VBAを学校で使う中、課題を授かりました。
2
+
6
-
3
+
4
+
7
- 初心者ですので、エラーの箇所以外も参考にさせていただければと思います。
5
+ テキストボックスとコンボボックスで入力した値を、エクセルの表に反映させル表を作りたいと思います。
6
+
8
-
7
+ Setをいろいろなところにつけてみたり、変数を変えたりしたんですがわからなく
8
+
9
- オブジェクトエラー424がでました。
9
+ デバッグもしてみたんですが、1行目の段階でエラーが出てしまっていて、
10
-
10
+
11
- 添削も含めて教授いただければと思います。
11
+ 手を付けられない状態になっております。
12
+
13
+
12
14
 
13
15
  よろしくお願い致します。
14
16
 
15
- ---------------------------------------------------------------
17
+
16
-
18
+
17
- If kekka = vbYes Then
19
+ ```If kekka = vbYes Then
18
20
 
19
21
  Dim lRow As Long
20
22
 
@@ -293,3 +295,7 @@
293
295
 
294
296
 
295
297
  End Sub
298
+
299
+ コード
300
+
301
+ ```