teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問VBA コード簡略化　下記処理の場合

編集履歴

質問編集履歴

3

コメント追記

2017/10/20 08:49

投稿

King_of_Flies
King_of_Flies

スコア382

test CHANGED
File without changes
test CHANGED
@@ -180,9 +180,9 @@
180
180
 
181
181
  ```vba
182
182
 
183
- [BeforePro]
183
+ [BeforePro]'クラス内に存在するそれぞれのプロシージャ実行前に流れる処理。
184
-
184
+
185
- [AfterPro]
185
+ [AfterPro]'クラス内に存在するそれぞれのプロシージャ実行後に流れる処理。
186
186
 
187
187
  Class 実行トリガープロシージャ　'こんな概念ないと思いますがプロシージャをグループ化する意図です。
188
188
 

2

不要なコードを削除

2017/10/20 08:49

投稿

King_of_Flies
King_of_Flies

スコア382

test CHANGED
File without changes
test CHANGED
@@ -178,80 +178,76 @@
178
178
 
179
179
  イメージとしてはこんな感じにしたいです。
180
180
 
181
-
182
-
183
181
  ```vba
184
182
 
185
- [BeforePro]'Proはプロシージャの意味です。
183
+ [BeforePro]
186
184
 
187
185
  [AfterPro]
188
186
 
189
- Sub 実行()
190
-
191
- Call SetReportDate
192
-
193
- Call EditFormats
194
-
195
- Call SetLines
196
-
197
- Call SetCells
198
-
199
- Range("A1").Select
200
-
201
- MsgBox ("処理が正常に完了しました。")
202
-
203
- End Sub
204
-
205
-
206
-
207
- [BeforePro]
208
-
209
- [AfterPro]
210
-
211
- Sub リセット()
212
-
213
- Cells.Select
214
-
215
- Selection.EntireRow.Hidden = False
216
-
217
- Sheet1.ComboBox1.Clear
218
-
219
- Call SetRows
220
-
221
- Call ResetColors
222
-
223
- Call ResetInputDataProjects
224
-
225
- Range("A1").Select
226
-
227
- MsgBox ("リセットしました。")
228
-
229
- End Sub
230
-
231
-
232
-
233
- [BeforePro]
234
-
235
- [AfterPro]
236
-
237
- Sub 絞り込み()
238
-
239
- Cells.Select
240
-
241
- Selection.EntireRow.Hidden = False
242
-
243
- Range("A1").Select
244
-
245
- Call NarrowRows
246
-
247
- End Sub
248
-
249
-
187
+ Class 実行トリガープロシージャ　'こんな概念ないと思いますがプロシージャをグループ化する意図です。
188
+
189
+ 　　Sub 実行()
190
+
191
+ 　　Call SetReportDate
192
+
193
+ 　　Call EditFormats
194
+
195
+ 　　Call SetLines
196
+
197
+ 　　Call SetCells
198
+
199
+ 　　Range("A1").Select
200
+
201
+ 　　MsgBox ("処理が正常に完了しました。")
202
+
203
+ 　　End Sub
204
+
205
+
206
+
207
+
208
+
209
+ 　　Sub リセット()
210
+
211
+ 　　Cells.Select
212
+
213
+ 　　Selection.EntireRow.Hidden = False
214
+
215
+ 　　Sheet1.ComboBox1.Clear
216
+
217
+ 　　Call SetRows
218
+
219
+ 　　Call ResetColors
220
+
221
+ 　　Call ResetInputDataProjects
222
+
223
+ 　　Range("A1").Select
224
+
225
+ 　　MsgBox ("リセットしました。")
226
+
227
+ 　　End Sub
228
+
229
+
230
+
231
+ 　　Sub 絞り込み()
232
+
233
+ 　　Cells.Select
234
+
235
+ 　　 Selection.EntireRow.Hidden = False
236
+
237
+ 　　Range("A1").Select
238
+
239
+ 　　Call NarrowRows
240
+
241
+ 　　End Sub
242
+
243
+ End Class
250
244
 
251
245
  ```
252
246
 
253
247
 
254
248
 
249
+
250
+
255
251
  現在ＶＢＡ学習段階ですので、
256
252
 
257
253
  実装できないようであるなら普通にプロシージャを二つ作成して
@@ -269,75 +265,3 @@
269
265
 
270
266
 
271
267
  ＊繰り返しますが、不可能なら不可能ですとおっしゃていただければそれでよいです。
272
-
273
-
274
-
275
-
276
-
277
- 追記あるいはこうできたらベスト
278
-
279
- ```vba
280
-
281
- [BeforePro]
282
-
283
- [AfterPro]
284
-
285
- Class 実行トリガープロシージャ　'こんな概念ないと思いますがプロシージャをグループ化する意図です。
286
-
287
- 　　Sub 実行()
288
-
289
- 　　Call SetReportDate
290
-
291
- 　　Call EditFormats
292
-
293
- 　　Call SetLines
294
-
295
- 　　Call SetCells
296
-
297
- 　　Range("A1").Select
298
-
299
- 　　MsgBox ("処理が正常に完了しました。")
300
-
301
- 　　End Sub
302
-
303
-
304
-
305
-
306
-
307
- 　　Sub リセット()
308
-
309
- 　　Cells.Select
310
-
311
- 　　Selection.EntireRow.Hidden = False
312
-
313
- 　　Sheet1.ComboBox1.Clear
314
-
315
- 　　Call SetRows
316
-
317
- 　　Call ResetColors
318
-
319
- 　　Call ResetInputDataProjects
320
-
321
- 　　Range("A1").Select
322
-
323
- 　　MsgBox ("リセットしました。")
324
-
325
- 　　End Sub
326
-
327
-
328
-
329
- 　　Sub 絞り込み()
330
-
331
- 　　Cells.Select
332
-
333
- 　　 Selection.EntireRow.Hidden = False
334
-
335
- 　　Range("A1").Select
336
-
337
- 　　Call NarrowRows
338
-
339
- 　　End Sub
340
-
341
- End Class
342
-
343
- ```

1

追記　例コード追加

2017/10/20 08:48

投稿

King_of_Flies
King_of_Flies

スコア382

test CHANGED
File without changes
test CHANGED
@@ -269,3 +269,75 @@
269
269
 
270
270
 
271
271
  ＊繰り返しますが、不可能なら不可能ですとおっしゃていただければそれでよいです。
272
+
273
+
274
+
275
+
276
+
277
+ 追記あるいはこうできたらベスト
278
+
279
+ ```vba
280
+
281
+ [BeforePro]
282
+
283
+ [AfterPro]
284
+
285
+ Class 実行トリガープロシージャ　'こんな概念ないと思いますがプロシージャをグループ化する意図です。
286
+
287
+ 　　Sub 実行()
288
+
289
+ 　　Call SetReportDate
290
+
291
+ 　　Call EditFormats
292
+
293
+ 　　Call SetLines
294
+
295
+ 　　Call SetCells
296
+
297
+ 　　Range("A1").Select
298
+
299
+ 　　MsgBox ("処理が正常に完了しました。")
300
+
301
+ 　　End Sub
302
+
303
+
304
+
305
+
306
+
307
+ 　　Sub リセット()
308
+
309
+ 　　Cells.Select
310
+
311
+ 　　Selection.EntireRow.Hidden = False
312
+
313
+ 　　Sheet1.ComboBox1.Clear
314
+
315
+ 　　Call SetRows
316
+
317
+ 　　Call ResetColors
318
+
319
+ 　　Call ResetInputDataProjects
320
+
321
+ 　　Range("A1").Select
322
+
323
+ 　　MsgBox ("リセットしました。")
324
+
325
+ 　　End Sub
326
+
327
+
328
+
329
+ 　　Sub 絞り込み()
330
+
331
+ 　　Cells.Select
332
+
333
+ 　　 Selection.EntireRow.Hidden = False
334
+
335
+ 　　Range("A1").Select
336
+
337
+ 　　Call NarrowRows
338
+
339
+ 　　End Sub
340
+
341
+ End Class
342
+
343
+ ```