質問編集履歴
2
コード内のコメント部分を修正。
test
CHANGED
File without changes
|
test
CHANGED
@@ -186,7 +186,7 @@
|
|
186
186
|
MsgBox ("何も入力されていません")
|
187
187
|
|
188
188
|
ElseIf IsDate(dval) = False Then
|
189
|
-
'入力
|
189
|
+
'入力値が正しくない場合
|
190
190
|
MsgBox ("入力し直してください")
|
191
191
|
|
192
192
|
Else
|
1
書式を修正。
test
CHANGED
File without changes
|
test
CHANGED
@@ -18,14 +18,12 @@
|
|
18
18
|
### 実現したいこと
|
19
19
|
以下の流れを実行するコードを作りたいです。
|
20
20
|
|
21
|
-
【異動DB】
|
22
|
-
- A列の区分の数字
|
23
|
-
- B列の日付
|
24
|
-
①
|
21
|
+
①【異動DB】A列「区分」を最初のインプットボックスに入力
|
22
|
+
②【異動DB】B列「日付」を2番目のインプットボックスに入力
|
25
|
-
|
23
|
+
③入力結果をオートフィルタで抽出
|
26
|
-
|
24
|
+
④【異動DB】D列と【社員マスタ】A列を比較して社員番号が一致した時、【社員マスタ】1行分をコピー
|
27
|
-
|
25
|
+
⑤コピーした1行分のセル値を【異動者リスト】にペースト
|
28
|
-
|
26
|
+
⑥最終行までこれを繰り返す
|
29
27
|
|
30
28
|
### 該当のソースコード
|
31
29
|
```VBA
|