質問編集履歴

2

コード内のコメント部分を修正。

2023/01/23 08:47

投稿

koburon
koburon

スコア29

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

書式を修正。

2023/01/23 08:31

投稿

koburon
koburon

スコア29

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
- 【異動DB】D列と【社員マスタ】A列を比較して社員番号が一致した時、【社員マスタ】1行分をコピー
24
+ 【異動DB】D列と【社員マスタ】A列を比較して社員番号が一致した時、【社員マスタ】1行分をコピー
27
- コピーした1行分のセル値を【異動者リスト】にペースト
25
+ コピーした1行分のセル値を【異動者リスト】にペースト
28
- 最終行までこれを繰り返す
26
+ 最終行までこれを繰り返す
29
27
 
30
28
  ### 該当のソースコード
31
29
  ```VBA