teratail
回答率
85.48%
質問するログイン新規登録
トップVBAに関する質問【VBA】条件分岐の記述を簡素化したい

編集履歴

質問編集履歴

4

不要な情報を削除、編集。

2023/03/02 04:55

投稿

koburon
koburon

スコア30

test CHANGED
File without changes
test CHANGED
@@ -191,9 +191,9 @@
191
191
  End Sub
192
192
  ```
193
193
  ### 発生している問題
194
+ 上記のコードで希望通り、任意の日の社員名簿が出力できました。
194
- 上記のコードで希望通り、任意の日の社員名簿が出力できたのですが、マクロをレビューした際、「条件を増やしました」と説明したところ、説明不足だったためか、レビュー担当者から、
195
+ マクロをレビューした際、「条件を増やしました」と説明した際、実際のコードは見せておらず、説明不足だったためか、レビュー担当者から、
195
196
  「条件を増やし過ぎていないか？」「条件を1～2文まで減らせば済むのでは？」と指摘を受けました。
196
- 実際のコードは見せていません。
197
197
 
198
198
  ### 実現したいこと
199
199
  任意の日を出力する(out_type = 1)条件は以下の通りですが、これをなるべく簡潔にしたいです。
@@ -220,7 +220,6 @@
220
220
  ### 補足情報（FW/ツールのバージョンなど）
221
221
  PC：Windows11
222
222
  Excelのバージョン：Microsoft365 Excel
223
- PostgreSQLのバージョン：9.0.1
224
223
 
225
224
  ### コメントを受けて追記
226
225
  異動DBのサンプルです。
@@ -237,9 +236,3 @@
237
236
  |2|2023/4/1| |3|C|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
238
237
  |1|2023/4/1| |6|F|本社|管理本部|総務部|人事課|-|派遣|本社管理本部総務部人事課|
239
238
 
240
-
241
-
242
-
243
- 　
244
-
245
-
VBA

3

サンプルについて追記。

2023/03/01 07:54

投稿

koburon
koburon

スコア30

test CHANGED
File without changes
test CHANGED
@@ -224,18 +224,18 @@
224
224
 
225
225
  ### コメントを受けて追記
226
226
  異動DBのサンプルです。
227
- ※区分は1:新規入社、2:異動、3:退職です。
227
+ ※区分は0:初期状態、1:新規入社、2:異動、3:退職です。
228
-
228
+ ※サンプルでは、2022/12/31にEさんが退職、2023/4/1にCさんが異動、Fさんが新規入社した場合です。
229
229
  |区分|開始日|終了日|社員番号|氏名|支社|本部|部|課|M|役職|所属|
230
230
  |:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|
231
- |0|2022/12/1| |1|山田一郎|本社|管理本部|総務部|-|-|部長|本社管理本部総務部|
231
+ |0|2022/12/1| |1|A|本社|管理本部|総務部|-|-|部長|本社管理本部総務部|
232
- |0|2022/12/1| |2|鈴木次郎|本社|管理本部|総務部|総務課|-|課長|本社管理本部総務部総務課|
232
+ |0|2022/12/1| |2|B|本社|管理本部|総務部|総務課|-|課長|本社管理本部総務部総務課|
233
- |0|2022/12/1|2023/3/31|3|山本三郎|本社|管理本部|総務部|総務課|-|一般|本社管理本部総務部総務課|
233
+ |0|2022/12/1|2023/3/31|3|C|本社|管理本部|総務部|総務課|-|一般|本社管理本部総務部総務課|
234
- |0|2022/12/1| |4|中村四郎|本社|管理本部|総務部|人事課|-|課長|本社管理本部総務部人事課|
234
+ |0|2022/12/1| |4|D|本社|管理本部|総務部|人事課|-|課長|本社管理本部総務部人事課|
235
- |0|2022/12/1|2022/12/31|5|酒井五郎|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
235
+ |0|2022/12/1|2022/12/31|5|E|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
236
- |3|2023/1/1| |5|酒井五郎|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
236
+ |3|2023/1/1| |5|E|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
237
- |2|2023/4/1| |3|山本三郎|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
237
+ |2|2023/4/1| |3|C|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
238
- |1|2023/4/1| |6|加藤花子|本社|管理本部|総務部|人事課|-|派遣|本社管理本部総務部人事課|
238
+ |1|2023/4/1| |6|F|本社|管理本部|総務部|人事課|-|派遣|本社管理本部総務部人事課|
239
239
 
240
240
 
241
241
 
VBA

2

データサンプルを追記。

2023/03/01 07:49

投稿

koburon
koburon

スコア30

test CHANGED
File without changes
test CHANGED
@@ -8,6 +8,17 @@
8
8
  0. 社員名簿
9
9
  0. 今日現在の社員名簿
10
10
 
11
+ 異動DB
12
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-01/0664bcdd-d6c9-4901-9a6b-69af3d3d920e.jpeg)
13
+ 組織マスター
14
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-01/8c689ba9-c70d-4bf9-bfe9-103230064169.jpeg)
15
+ 社員基本情報
16
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-01/65d373dd-0182-4522-bb82-e106247e763f.jpeg)
17
+ 社員名簿
18
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-01/81c71dec-9637-439e-9ab6-8283212e22d2.jpeg)
19
+ 今日現在の社員名簿
20
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-01/d589df47-fbda-4834-9d60-c631e0e6d9eb.jpeg)
21
+
11
22
  以下のURLを参考にしています。
12
23
  ・[社員名簿を作る～その2～](https://kuroneconote.com/jinjisystem02/#toc8)
13
24
 
@@ -19,7 +30,6 @@
19
30
  - 過去または未来の特定の日付⇒「社員名簿」
20
31
  - 今日の日付⇒「今日時点の社員名簿」
21
32
  に書き込むコードです。
22
- ※下記コード内の区分は1:新規入社、2:異動、3:退職です。
23
33
 
24
34
  ```VBA
25
35
  Sub meibokosin(d As Date, c As Collection, ByVal out_type As Long)
@@ -212,4 +222,24 @@
212
222
  Excelのバージョン：Microsoft365 Excel
213
223
  PostgreSQLのバージョン：9.0.1
214
224
 
215
-
225
+ ### コメントを受けて追記
226
+ 異動DBのサンプルです。
227
+ ※区分は1:新規入社、2:異動、3:退職です。
228
+
229
+ |区分|開始日|終了日|社員番号|氏名|支社|本部|部|課|M|役職|所属|
230
+ |:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|
231
+ |0|2022/12/1| |1|山田一郎|本社|管理本部|総務部|-|-|部長|本社管理本部総務部|
232
+ |0|2022/12/1| |2|鈴木次郎|本社|管理本部|総務部|総務課|-|課長|本社管理本部総務部総務課|
233
+ |0|2022/12/1|2023/3/31|3|山本三郎|本社|管理本部|総務部|総務課|-|一般|本社管理本部総務部総務課|
234
+ |0|2022/12/1| |4|中村四郎|本社|管理本部|総務部|人事課|-|課長|本社管理本部総務部人事課|
235
+ |0|2022/12/1|2022/12/31|5|酒井五郎|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
236
+ |3|2023/1/1| |5|酒井五郎|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
237
+ |2|2023/4/1| |3|山本三郎|本社|管理本部|総務部|人事課|-|一般|本社管理本部総務部人事課|
238
+ |1|2023/4/1| |6|加藤花子|本社|管理本部|総務部|人事課|-|派遣|本社管理本部総務部人事課|
239
+
240
+
241
+
242
+
243
+ 　
244
+
245
+
VBA

1

不足部分を追記。

2023/03/01 03:01

投稿

koburon
koburon

スコア30

test CHANGED
File without changes
test CHANGED
@@ -19,6 +19,7 @@
19
19
  - 過去または未来の特定の日付⇒「社員名簿」
20
20
  - 今日の日付⇒「今日時点の社員名簿」
21
21
  に書き込むコードです。
22
+ ※下記コード内の区分は1:新規入社、2:異動、3:退職です。
22
23
 
23
24
  ```VBA
24
25
  Sub meibokosin(d As Date, c As Collection, ByVal out_type As Long)
VBA