teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

5

追加

2020/08/11 01:06

投稿

ichigo15
ichigo15

スコア14

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

タイトルの変更

2020/08/11 01:06

投稿

ichigo15
ichigo15

スコア14

title CHANGED
@@ -1,1 +1,1 @@
1
- データを人毎に集計して比較するには?
1
+ 比較表の作成(一致、不一致)
body CHANGED
File without changes

3

質問修正

2020/08/07 08:03

投稿

ichigo15
ichigo15

スコア14

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
  ![イメージ説明](974bc3fa8338378b8d2f0986db05673d.png)
15
22
 
16
23
  ![イメージ説明](cb200fcf42dafd36cb54163346b87000.png)

2

図の変更、構文の変更

2020/08/06 03:53

投稿

ichigo15
ichigo15

スコア14

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
- 条件③:計画時間  ⇒ H21
10
+ 条件③:決算期:H21
9
11
      対象期間  ⇒ H23
10
12
      入力しているセルの範囲 ⇒ 開始列H25、終了列H26
11
-     決算期  ⇒  H28
12
-     3期比較のセル番地 ⇒ 1QH31、2QH32、3QH33、4QH34
13
13
 
14
- ![イメージ説明](1d27c2180dc1f984d9d2fae04ee579f3.png)
14
+ ![イメージ説明](974bc3fa8338378b8d2f0986db05673d.png)
15
15
 
16
- ![イメージ説明](d7418813f81665c95c6816d6a0f397ea.png)
16
+ ![イメージ説明](cb200fcf42dafd36cb54163346b87000.png)
17
17
 
18
+
19
+ データを追加すると
20
+ ![イメージ説明](9569b98f4e87ae367ca89e5abfceb1e7.png)
18
21
 
22
+ ![イメージ説明](65c66ede46ab99e4050d28dbbbf9d8e2.png)
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
- ws1.Range(.Cells(22,Range("H").Value),_
53
+ 'ws1.Range(.Cells(22, .Range("H25").Value), _
42
- .Cells(Rows.Count, 1).Ebd(xlUp).Copy
54
+ '.Cells(r, .Range("H26").Value)).Copy
55
+
56
+
57
+
58
+ 'ws1.Range("K22:S28").Copy
43
- ws2.Range("A16").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
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

表を追加

2020/08/06 03:43

投稿

ichigo15
ichigo15

スコア14

title CHANGED
File without changes
body CHANGED
@@ -11,8 +11,11 @@
11
11
      決算期  ⇒  H28
12
12
      3期比較のセル番地 ⇒ 1QH31、2QH32、3QH33、4QH34
13
13
 
14
+ ![イメージ説明](1d27c2180dc1f984d9d2fae04ee579f3.png)
14
15
 
16
+ ![イメージ説明](d7418813f81665c95c6816d6a0f397ea.png)
15
17
 
18
+
16
19
  ### 発生している問題・エラーメッセージ
17
20
 
18
21
  仕様書に入力した条件をもとにsheet(当期)に人毎に比較表を作成できず困っております。