質問編集履歴
1
申し訳ございませんでした。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,99 +1,3 @@
|
|
|
1
|
-
|
|
1
|
+
サービスを勘違いしておりました。
|
|
2
2
|
|
|
3
|
-
色々自分でも試したのですが、上手くいかず、質問させていただきました。
|
|
4
|
-
|
|
5
|
-
PC自体もそこまで詳しくない為、説明が下手でわかりずらいかと思うのですが、
|
|
6
|
-
|
|
7
|
-
|
|
3
|
+
不適切な質問をしてしまいました。
|
|
8
|
-
|
|
9
|
-
|
|
10
|
-
|
|
11
|
-
### 【したい事】
|
|
12
|
-
|
|
13
|
-
①②のVBAを教えてください。
|
|
14
|
-
|
|
15
|
-
①別フォルダに格納している複数のデータを別ブックに転記したいです。
|
|
16
|
-
|
|
17
|
-
具体的には
|
|
18
|
-
|
|
19
|
-
フォルダ：テストに格納されているブック：2020年 社内日報 まとめ.xlsm(J～T列) に
|
|
20
|
-
|
|
21
|
-
フォルダ：2020年5月 社員別に格納されている
|
|
22
|
-
|
|
23
|
-
【●●】社内日報 5月.xlsx(シート：5月/A～K列)を1日毎に転記したいです。
|
|
24
|
-
|
|
25
|
-
|
|
26
|
-
|
|
27
|
-
例：5月1日に各社員が対応した分を5月2日に転記
|
|
28
|
-
|
|
29
|
-
5月2日に各社員が対応した分を5月3日に転記
|
|
30
|
-
|
|
31
|
-
※5月2日に対応した分を5月3日に転記する際は、5月1日分は転記したくない(転記していない分のみ転記したい)
|
|
32
|
-
|
|
33
|
-
|
|
34
|
-
|
|
35
|
-
②転記を開始するボタンをブック：2020年 社内日報 まとめ.xlsm に転記していくシートとは別のシートに作りたい
|
|
36
|
-
|
|
37
|
-
|
|
38
|
-
|
|
39
|
-
### 【使用するもの(？)】
|
|
40
|
-
|
|
41
|
-
・フォルダ：テスト
|
|
42
|
-
|
|
43
|
-
・フォルダ：テスト に格納されているもの
|
|
44
|
-
|
|
45
|
-
⇒ブック：2020年 社内日報 まとめ.xlsm,フォルダ：2020年5月 社員別
|
|
46
|
-
|
|
47
|
-
・フォルダ：2020年5月 社員別 に格納されているもの
|
|
48
|
-
|
|
49
|
-
⇒【●●】社内日報 5月.xlsx というブックが複数ある
|
|
50
|
-
|
|
51
|
-
※●●には各社員の苗字が入ります。
|
|
52
|
-
|
|
53
|
-
|
|
54
|
-
|
|
55
|
-
※ブック：2020年 社内日報 まとめ.xlsm,【●●】社内日報 5月.xlsx
|
|
56
|
-
|
|
57
|
-
共に1行目は項目、2行目は記入例を記載しています
|
|
58
|
-
|
|
59
|
-
|
|
60
|
-
|
|
61
|
-
### 【使用するもの(？)の用途】
|
|
62
|
-
|
|
63
|
-
・ブック：2020年 社内日報 まとめ.xlsm
|
|
64
|
-
|
|
65
|
-
⇒管理者が各社員が対応した案件をダブルチェックするために使用します。
|
|
66
|
-
|
|
67
|
-
A～Iは関数や別のVBA(下記VBAでH,Iを使用)を適応させるために使用
|
|
68
|
-
|
|
69
|
-
|
|
70
|
-
|
|
71
|
-
-----------------------------------------------------------------------------
|
|
72
|
-
|
|
73
|
-
Sub チェック1_Click()
|
|
74
|
-
|
|
75
|
-
|
|
76
|
-
|
|
77
|
-
'チェックボックスの1つ右に0か-1を返す
|
|
78
|
-
|
|
79
|
-
With ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, 1)
|
|
80
|
-
|
|
81
|
-
.Value = Not .Value
|
|
82
|
-
|
|
83
|
-
End With
|
|
84
|
-
|
|
85
|
-
|
|
86
|
-
|
|
87
|
-
End Sub
|
|
88
|
-
|
|
89
|
-
|
|
90
|
-
|
|
91
|
-
-----------------------------------------------------------------------------
|
|
92
|
-
|
|
93
|
-
・【●●】社内日報 5月.xlsx
|
|
94
|
-
|
|
95
|
-
⇒各社員が個人のブックに1日対応した案件を追記していきます。(3行目から1案件毎にA～K列を入力)
|
|
96
|
-
|
|
97
|
-
|
|
98
|
-
|
|
99
|
-
※A～K列の項目はブック：2020年 社内日報 まとめ.xlsmのJ～T列と同一項目です。
|