質問編集履歴
2
具体的な方法を記載
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -149,3 +149,17 @@
|
|
|
149
149
|
Next
|
|
150
150
|
|
|
151
151
|
Application.ScreenUpdating = True
|
|
152
|
+
|
|
153
|
+
|
|
154
|
+
|
|
155
|
+
|
|
156
|
+
|
|
157
|
+
|
|
158
|
+
|
|
159
|
+
（上から、sheet1・sheet2・skeet3）
|
|
160
|
+
|
|
161
|
+
①sheet2のD5の値とsheet2の4行目の値を突き合わせる
|
|
162
|
+
|
|
163
|
+
②突き合わせた結果のsheet2の縦列（例：23日の場合、sheet2の23日の7～19行目）をsheet1のD13～d20に貼る
|
|
164
|
+
|
|
165
|
+
③shhet1のD13～d20で入力されている値とsheet3のB列を突き合わせて、一致した個所のsheet3のD～V列をsheet1のE～Xに貼る
|
1
コードを追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -129,3 +129,23 @@
|
|
|
129
129
|
③に関しては、以下のコードで達成できたのですが、他の個所の書き方がわかりませんでした。
|
|
130
130
|
|
|
131
131
|
申し訳ございませんがお分かりになられる方、ご教授願います
|
|
132
|
+
|
|
133
|
+
|
|
134
|
+
|
|
135
|
+
'対象外のユーザーは非表示
|
|
136
|
+
|
|
137
|
+
Application.ScreenUpdating = False
|
|
138
|
+
|
|
139
|
+
|
|
140
|
+
|
|
141
|
+
For Rw = 13 To 25
|
|
142
|
+
|
|
143
|
+
If Range("D" & Rw) = "" Then
|
|
144
|
+
|
|
145
|
+
Rows(Rw).EntireRow.Hidden = True
|
|
146
|
+
|
|
147
|
+
End If
|
|
148
|
+
|
|
149
|
+
Next
|
|
150
|
+
|
|
151
|
+
Application.ScreenUpdating = True
|