質問編集履歴
3
訂正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,9 +19,9 @@
|
|
|
19
19
|
For Each ws In Worksheets
|
|
20
20
|
ws.Activate
|
|
21
21
|
If ws.Name Like "*" & 社員番号 & "*" Then
|
|
22
|
-
Range("D" & 日付行).Value = Worksheets("
|
|
22
|
+
Range("D" & 日付行).Value = Worksheets("入力データ1").Range("B" & b).Value
|
|
23
|
-
Range("E" & 日付行).Value = Worksheets("
|
|
23
|
+
Range("E" & 日付行).Value = Worksheets("入力データ1").Range("C" & b).Value
|
|
24
|
-
Range("F" & 日付行).Value = Worksheets("
|
|
24
|
+
Range("F" & 日付行).Value = Worksheets("入力シート1").Range("D" & b).Value
|
|
25
25
|
|
|
26
26
|
MsgBox "ありました"
|
|
27
27
|
End If
|
2
写真の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
日付が一致した行に別シートに入力されているデータを転記する。
|
|
2
2
|
|
|
3
3
|
やりたいことは、入力データ1シートのE3から入力してある社員番号の一致したシートに入力データ1シートのB列からD列に入力されているデータを日付が一致した行のD列からF列に転記を行いたいです。
|
|
4
|
-
自分で書いてみたコードは以下の通りで入力データ1の社員番号から該当のシートをアクティブにすることまではできたのですが（見つけた場合の処理内容としてメッセージボックスが出るようにしてあります。）、入力データ2に入力されている日付を各社員番号の一致したシートから検索することがいろいろ試してもできませんでしたのでアドバイスをお願いします。
|
|
4
|
+
自分で書いてみたコードは以下の通りで入力データ1の社員番号から該当のシートをアクティブにすることまではできたのですが（見つけた場合の処理内容としてメッセージボックスが出るようにしてあります。）、入力データ2に入力されている日付を各社員番号の一致したシートから検索することがいろいろ試してもできませんでしたのでアドバイスをお願いします。日付行だけが取得できれば転記の作業はこれでできると思います。
|
|
5
5
|
※・シートは実際には1000枚もありません。後の修正で最終行までループさせるようにするつもりです。
|
|
6
6
|
・入力シート1には入力シート2に入力された日付のB列：シフト番号、C列：出勤時間、D列：退勤時間が入 力されています。
|
|
7
7
|
・入力シート2にはマクロで組んだボタンを配置するつもりです。
|
|
@@ -19,9 +19,31 @@
|
|
|
19
19
|
For Each ws In Worksheets
|
|
20
20
|
ws.Activate
|
|
21
21
|
If ws.Name Like "*" & 社員番号 & "*" Then
|
|
22
|
+
Range("D" & 日付行).Value = Worksheets("ダイヤ抽出1").Range("B" & b).Value
|
|
23
|
+
Range("E" & 日付行).Value = Worksheets("ダイヤ抽出1").Range("C" & b).Value
|
|
24
|
+
Range("F" & 日付行).Value = Worksheets("ダイヤ抽出1").Range("D" & b).Value
|
|
25
|
+
|
|
22
|
-
|
|
26
|
+
MsgBox "ありました"
|
|
23
27
|
End If
|
|
24
28
|
Next ws
|
|
25
29
|
Next b
|
|
26
30
|
End Sub
|
|
27
|
-
```
|
|
31
|
+
```
|
|
32
|
+
|
|
33
|
+
|
|
34
|
+
|
|
35
|
+
|
|
36
|
+
|
|
37
|
+
↑入力データ1
|
|
38
|
+
|
|
39
|
+
|
|
40
|
+
|
|
41
|
+
|
|
42
|
+
|
|
43
|
+
↑入力データ2
|
|
44
|
+
|
|
45
|
+
|
|
46
|
+
|
|
47
|
+
|
|
48
|
+
|
|
49
|
+
↑各社員の個人シート
|
1
補足説明を書きたしました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,8 +1,10 @@
|
|
|
1
1
|
日付が一致した行に別シートに入力されているデータを転記する。
|
|
2
2
|
|
|
3
3
|
やりたいことは、入力データ1シートのE3から入力してある社員番号の一致したシートに入力データ1シートのB列からD列に入力されているデータを日付が一致した行のD列からF列に転記を行いたいです。
|
|
4
|
-
自分で書いてみたコードは以下の通りで入力データ1の社員番号から該当のシートをアクティブにすることまではできたのですが（見つけた場合の処理内容としてメッセージボックスが出るようにしてあります。）、入力データ
|
|
4
|
+
自分で書いてみたコードは以下の通りで入力データ1の社員番号から該当のシートをアクティブにすることまではできたのですが（見つけた場合の処理内容としてメッセージボックスが出るようにしてあります。）、入力データ2に入力されている日付を各社員番号の一致したシートから検索することがいろいろ試してもできませんでしたのでアドバイスをお願いします。
|
|
5
|
-
※シートは実際には1000枚もありません。後の修正で最終行までループさせるようにするつもりです。
|
|
5
|
+
※・シートは実際には1000枚もありません。後の修正で最終行までループさせるようにするつもりです。
|
|
6
|
+
・入力シート1には入力シート2に入力された日付のB列：シフト番号、C列：出勤時間、D列：退勤時間が入 力されています。
|
|
7
|
+
・入力シート2にはマクロで組んだボタンを配置するつもりです。
|
|
6
8
|
|
|
7
9
|
|
|
8
10
|
|