質問編集履歴
5
追加
title
CHANGED
File without changes
|
body
CHANGED
@@ -40,6 +40,21 @@
|
|
40
40
|
|
41
41
|
↓は決算期が1Qの場合を作成してみましたが最終行までにするにはどうしたらいいかわからず途中までとなっております。
|
42
42
|
|
43
|
+
### 手動の場合の動き(イメージ)
|
44
|
+
|
45
|
+
(1)sheet仕様書に条件①~③を入力する
|
46
|
+
(2)sheet仕様書に集計(人毎時間)を入力する
|
47
|
+
(3)対象期間が「1Q」の場合
|
48
|
+
①sheet仕様書のセル範囲「K列からS列」までをコピーする
|
49
|
+
②sheet当期時間のA23に貼り付ける
|
50
|
+
(4)対象期間が「2Q」の場合
|
51
|
+
①sheet仕様書の「K列からM列」とsheet当期時間が同じか調べる
|
52
|
+
②①が同じ場合はsheet仕様書の「O列からS列」をsheet当期時間「J列からN列」に貼り付ける
|
53
|
+
③①が違う場合はsheet当期時間に行を挿入し、sheet仕様書の「K列からN列」をsheet当期時間「A列からD列」に貼り付ける
|
54
|
+
同じ行にsheet仕様書の「O列からS列」を貼り付ける
|
55
|
+
|
56
|
+
|
57
|
+
|
43
58
|
### 該当のソースコード
|
44
59
|
|
45
60
|
```ここに言語名を入力
|
4
タイトルの変更
title
CHANGED
@@ -1,1 +1,1 @@
|
|
1
|
-
|
1
|
+
比較表の作成(一致、不一致)
|
body
CHANGED
File without changes
|
3
質問修正
title
CHANGED
File without changes
|
body
CHANGED
@@ -11,6 +11,13 @@
|
|
11
11
|
対象期間 ⇒ H23
|
12
12
|
入力しているセルの範囲 ⇒ 開始列H25、終了列H26
|
13
13
|
|
14
|
+
※ピンク色のセルは手入力箇所です
|
15
|
+
|
16
|
+
例:対象期間「1Q」のセル範囲「K22:S28」をsheet当期のA23に貼り付ける。
|
17
|
+
対象期間「2Q」のセル範囲「K22:N28」を元にsheet当期のA列~D列に人を追加する。
|
18
|
+
(区分コード昇順、氏名コード昇順)
|
19
|
+
セル範囲「O22:S28」をsheet当期21行目が「2Q」の場所に追加する。
|
20
|
+
|
14
21
|

|
15
22
|
|
16
23
|

|
2
図の変更、構文の変更
title
CHANGED
File without changes
|
body
CHANGED
@@ -3,19 +3,25 @@
|
|
3
3
|
クライアントごと人毎に実績時間の集計を行っております
|
4
4
|
sheet(仕様書)に条件、人、時間を入力し、別のsheet(当期)に比較表を作成しようしております
|
5
5
|
|
6
|
+
ボタンをクリックしたら入力しているセルの範囲をsheet(当期)の対象期間に追加するようにしたいです
|
7
|
+
|
6
8
|
条件①:役割(リーダー等) ⇒ A列区分、B列コード
|
7
9
|
条件②:氏名 ⇒ D列氏名、E列コード
|
8
|
-
条件③:
|
10
|
+
条件③:決算期:H21
|
9
11
|
対象期間 ⇒ H23
|
10
12
|
入力しているセルの範囲 ⇒ 開始列H25、終了列H26
|
11
|
-
決算期 ⇒ H28
|
12
|
-
3期比較のセル番地 ⇒ 1QH31、2QH32、3QH33、4QH34
|
13
13
|
|
14
|
-

|
15
15
|
|
16
|
-

|
17
17
|
|
18
|
+
↓
|
19
|
+
データを追加すると
|
20
|
+

|
18
21
|
|
22
|
+

|
23
|
+
|
24
|
+
|
19
25
|
### 発生している問題・エラーメッセージ
|
20
26
|
|
21
27
|
仕様書に入力した条件をもとにsheet(当期)に人毎に比較表を作成できず困っております。
|
@@ -35,20 +41,31 @@
|
|
35
41
|
Dim ws1 As Worksheet
|
36
42
|
Dim ws2 As Worksheet
|
37
43
|
|
44
|
+
|
38
45
|
Set ws1 = Worksheets("仕様書")
|
39
46
|
Set ws2 = Worksheets("当期")
|
47
|
+
|
40
|
-
|
48
|
+
r = ws1.Cells(Rows.Count, "K").End(xlUp).Row
|
49
|
+
|
50
|
+
|
51
|
+
If ws1.Range("H23").Value = "1Q" Then
|
52
|
+
|
41
|
-
|
53
|
+
'ws1.Range(.Cells(22, .Range("H25").Value), _
|
42
|
-
|
54
|
+
'.Cells(r, .Range("H26").Value)).Copy
|
55
|
+
|
56
|
+
|
57
|
+
|
58
|
+
'ws1.Range("K22:S28").Copy
|
43
|
-
|
59
|
+
ws2.Range("A16").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
44
60
|
:=False, Transpose:=False
|
61
|
+
|
62
|
+
'Else If
|
63
|
+
|
64
|
+
'ws1.Range
|
65
|
+
|
66
|
+
|
67
|
+
End If
|
68
|
+
|
69
|
+
|
45
70
|
End Sub
|
46
|
-
```
|
71
|
+
```
|
47
|
-
|
48
|
-
### 試したこと
|
49
|
-
|
50
|
-
ここに問題に対して試したことを記載してください。
|
51
|
-
|
52
|
-
### 補足情報(FW/ツールのバージョンなど)
|
53
|
-
|
54
|
-
ここにより詳細な情報を記載してください。
|
1
表を追加
title
CHANGED
File without changes
|
body
CHANGED
@@ -11,8 +11,11 @@
|
|
11
11
|
決算期 ⇒ H28
|
12
12
|
3期比較のセル番地 ⇒ 1QH31、2QH32、3QH33、4QH34
|
13
13
|
|
14
|
+

|
14
15
|
|
16
|
+

|
15
17
|
|
18
|
+
|
16
19
|
### 発生している問題・エラーメッセージ
|
17
20
|
|
18
21
|
仕様書に入力した条件をもとにsheet(当期)に人毎に比較表を作成できず困っております。
|