質問編集履歴
5
追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -82,6 +82,36 @@
|
|
|
82
82
|
|
|
83
83
|
|
|
84
84
|
|
|
85
|
+
### 手動の場合の動き（イメージ）
|
|
86
|
+
|
|
87
|
+
|
|
88
|
+
|
|
89
|
+
（1）sheet仕様書に条件①～③を入力する
|
|
90
|
+
|
|
91
|
+
（2）sheet仕様書に集計（人毎時間）を入力する
|
|
92
|
+
|
|
93
|
+
（3）対象期間が「1Q」の場合
|
|
94
|
+
|
|
95
|
+
①sheet仕様書のセル範囲「K列からS列」までをコピーする
|
|
96
|
+
|
|
97
|
+
②sheet当期時間のA23に貼り付ける
|
|
98
|
+
|
|
99
|
+
（4）対象期間が「2Q」の場合
|
|
100
|
+
|
|
101
|
+
①sheet仕様書の「K列からM列」とsheet当期時間が同じか調べる
|
|
102
|
+
|
|
103
|
+
②①が同じ場合はsheet仕様書の「O列からS列」をsheet当期時間「J列からN列」に貼り付ける
|
|
104
|
+
|
|
105
|
+
③①が違う場合はsheet当期時間に行を挿入し、sheet仕様書の「K列からN列」をsheet当期時間「A列からD列」に貼り付ける
|
|
106
|
+
|
|
107
|
+
同じ行にsheet仕様書の「O列からS列」を貼り付ける
|
|
108
|
+
|
|
109
|
+
|
|
110
|
+
|
|
111
|
+
|
|
112
|
+
|
|
113
|
+
|
|
114
|
+
|
|
85
115
|
### 該当のソースコード
|
|
86
116
|
|
|
87
117
|
|
4
タイトルの変更
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
比較表の作成（一致、不一致）
|
test
CHANGED
|
File without changes
|
3
質問修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -21,6 +21,20 @@
|
|
|
21
21
|
対象期間 ⇒ H23
|
|
22
22
|
|
|
23
23
|
入力しているセルの範囲 ⇒ 開始列H25、終了列H26
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+
|
|
27
|
+
※ピンク色のセルは手入力箇所です
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
例：対象期間「1Q」のセル範囲「K22：S28」をsheet当期のA23に貼り付ける。
|
|
32
|
+
|
|
33
|
+
対象期間「2Q」のセル範囲「K22：N28」を元にsheet当期のA列～D列に人を追加する。
|
|
34
|
+
|
|
35
|
+
（区分コード昇順、氏名コード昇順）
|
|
36
|
+
|
|
37
|
+
セル範囲「O22：S28」をsheet当期21行目が「2Q」の場所に追加する。
|
|
24
38
|
|
|
25
39
|
|
|
26
40
|
|
2
図の変更、構文の変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,27 +8,39 @@
|
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
|
+
ボタンをクリックしたら入力しているセルの範囲をsheet（当期）の対象期間に追加するようにしたいです
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
11
15
|
条件①：役割（リーダー等） ⇒ A列区分、B列コード
|
|
12
16
|
|
|
13
17
|
条件②：氏名 ⇒ D列氏名、E列コード
|
|
14
18
|
|
|
15
|
-
条件③：
|
|
19
|
+
条件③：決算期：H21
|
|
16
20
|
|
|
17
21
|
対象期間 ⇒ H23
|
|
18
22
|
|
|
19
23
|
入力しているセルの範囲 ⇒ 開始列H25、終了列H26
|
|
20
24
|
|
|
21
|
-
決算期 ⇒ H28
|
|
22
25
|
|
|
26
|
+
|
|
23
|
-
|
|
27
|
+
|
|
24
28
|
|
|
25
29
|
|
|
26
30
|
|
|
27
|
-
|
|
28
32
|
|
|
29
33
|
|
|
30
34
|
|
|
35
|
+
↓
|
|
36
|
+
|
|
37
|
+
データを追加すると
|
|
38
|
+
|
|
31
|
-
|
|
40
|
+
|
|
41
|
+
|
|
42
|
+
|
|
43
|
+
|
|
32
44
|
|
|
33
45
|
|
|
34
46
|
|
|
@@ -72,36 +84,58 @@
|
|
|
72
84
|
|
|
73
85
|
|
|
74
86
|
|
|
87
|
+
|
|
88
|
+
|
|
75
89
|
Set ws1 = Worksheets("仕様書")
|
|
76
90
|
|
|
77
91
|
Set ws2 = Worksheets("当期")
|
|
78
92
|
|
|
93
|
+
|
|
79
94
|
|
|
95
|
+
r = ws1.Cells(Rows.Count, "K").End(xlUp).Row
|
|
80
96
|
|
|
81
|
-
|
|
97
|
+
|
|
82
98
|
|
|
83
|
-
|
|
99
|
+
|
|
84
100
|
|
|
101
|
+
If ws1.Range("H23").Value = "1Q" Then
|
|
102
|
+
|
|
103
|
+
|
|
104
|
+
|
|
105
|
+
'ws1.Range(.Cells(22, .Range("H25").Value), _
|
|
106
|
+
|
|
107
|
+
'.Cells(r, .Range("H26").Value)).Copy
|
|
108
|
+
|
|
109
|
+
|
|
110
|
+
|
|
111
|
+
|
|
112
|
+
|
|
113
|
+
|
|
114
|
+
|
|
115
|
+
'ws1.Range("K22:S28").Copy
|
|
116
|
+
|
|
85
|
-
ws2.Range("A16").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
|
117
|
+
ws2.Range("A16").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
|
86
118
|
|
|
87
119
|
:=False, Transpose:=False
|
|
120
|
+
|
|
121
|
+
|
|
122
|
+
|
|
123
|
+
'Else If
|
|
124
|
+
|
|
125
|
+
|
|
126
|
+
|
|
127
|
+
'ws1.Range
|
|
128
|
+
|
|
129
|
+
|
|
130
|
+
|
|
131
|
+
|
|
132
|
+
|
|
133
|
+
End If
|
|
134
|
+
|
|
135
|
+
|
|
136
|
+
|
|
137
|
+
|
|
88
138
|
|
|
89
139
|
End Sub
|
|
90
140
|
|
|
91
141
|
```
|
|
92
|
-
|
|
93
|
-
|
|
94
|
-
|
|
95
|
-
### 試したこと
|
|
96
|
-
|
|
97
|
-
|
|
98
|
-
|
|
99
|
-
ここに問題に対して試したことを記載してください。
|
|
100
|
-
|
|
101
|
-
|
|
102
|
-
|
|
103
|
-
### 補足情報（FW/ツールのバージョンなど）
|
|
104
|
-
|
|
105
|
-
|
|
106
|
-
|
|
107
|
-
ここにより詳細な情報を記載してください。
|
1
表を追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -23,6 +23,12 @@
|
|
|
23
23
|
3期比較のセル番地 ⇒ 1QH31、2QH32、3QH33、4QH34
|
|
24
24
|
|
|
25
25
|
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
|
|
26
32
|
|
|
27
33
|
|
|
28
34
|
|