質問編集履歴
3
コード表示にしてみました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,8 @@
|
|
|
1
|
+
```ここに言語を入力
|
|
2
|
+
|
|
3
|
+
コード
|
|
4
|
+
|
|
1
|
-
dataというシートに
|
|
5
|
+
```dataというシートに
|
|
2
6
|
|
|
3
7
|
会社名・注文番号（連番）・注文年・注文月・注文日（この3つは整数でリストから選択）
|
|
4
8
|
|
|
@@ -86,7 +90,7 @@
|
|
|
86
90
|
|
|
87
91
|
|
|
88
92
|
|
|
89
|
-
Sub main()
|
|
93
|
+
Sub main()
|
|
90
94
|
|
|
91
95
|
Dim c As Range, sht As Worksheet
|
|
92
96
|
|
|
@@ -126,4 +130,6 @@
|
|
|
126
130
|
|
|
127
131
|
|
|
128
132
|
|
|
129
|
-
End Sub
|
|
133
|
+
End Subード
|
|
134
|
+
|
|
135
|
+
```
|
2
詳しく書いてみました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,12 +1,88 @@
|
|
|
1
|
-
dataというシートに
|
|
1
|
+
dataというシートに
|
|
2
2
|
|
|
3
|
-
月
|
|
3
|
+
会社名・注文番号（連番）・注文年・注文月・注文日（この3つは整数でリストから選択）
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
品名・数量・単価（税抜き）・納品年・納品月・納品日（この3つもリストから選択）
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
納品場所・支払方法・備考
|
|
8
8
|
|
|
9
|
-
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+
A2からデータを1年間入力します。
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
このdataを1月～12月というシートに振り分けたいです。
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
分けるのは注文月の数字で4なら4月という風にデータを月毎に振り分けるにはどうしたらいいのでしょうか？
|
|
20
|
+
|
|
21
|
+
月のシートは
|
|
22
|
+
|
|
23
|
+
注文内容・会社名・注文番号・注文日（こちらは日付表示）納品日（これも日付表示）代金（単価の税込金額）
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+
|
|
27
|
+
うまく説明できませんが宜しくお願いします。
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
|
|
32
|
+
|
|
33
|
+
dataシート
|
|
34
|
+
|
|
35
|
+
A B C D E F C G H I J K L M N O P Q R S T U V W X Y Z AA AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ AR AS AT AU
|
|
36
|
+
|
|
37
|
+
1 会社名 注文番号 注文年 注文月 注文日 品名 数量 単価 納品年 納品月 納品日 納品場所 支払方法 備考 ～ № 内容 業者 番号 注文書 注文日 発行 要・不要 受領日 税込価格 支払日 備考
|
|
38
|
+
|
|
39
|
+
2 ああ 20001 2020 4 1 あ 1 100 2020 4 2 あああ 振込 1
|
|
40
|
+
|
|
41
|
+
3 いい 20002 2020 4 25 あ 1 200 2020 4 26 いいい 振込 2
|
|
42
|
+
|
|
43
|
+
4 ああ 20003 2020 4 27 い 1 100 2020 4 28 ううう 振込 3
|
|
44
|
+
|
|
45
|
+
5 うう 20004 2020 5 1 う 1 250 2020 5 2 いいい 振込 1
|
|
46
|
+
|
|
47
|
+
6 いい 20005 2020 5 24 あ 1 320 2020 5 25 あああ 振込
|
|
48
|
+
|
|
49
|
+
|
|
50
|
+
|
|
51
|
+
|
|
52
|
+
|
|
53
|
+
4月シート
|
|
54
|
+
|
|
55
|
+
A B C D I F G H I J K L
|
|
56
|
+
|
|
57
|
+
1 № 内容 業者 番号 注文書 注文日 発行 要・不要 受領日 税込価格 支払日 備考
|
|
58
|
+
|
|
59
|
+
2 1
|
|
60
|
+
|
|
61
|
+
3 2
|
|
62
|
+
|
|
63
|
+
4 3
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
67
|
+
5月
|
|
68
|
+
|
|
69
|
+
A B C D I F G H I J K L
|
|
70
|
+
|
|
71
|
+
1 № 内容 業者 番号 注文書 注文日 発行 要・不要 受領日 税込価格 支払日 備考
|
|
72
|
+
|
|
73
|
+
2 1
|
|
74
|
+
|
|
75
|
+
3 2
|
|
76
|
+
|
|
77
|
+
|
|
78
|
+
|
|
79
|
+
～
|
|
80
|
+
|
|
81
|
+
|
|
82
|
+
|
|
83
|
+
6月～12月
|
|
84
|
+
|
|
85
|
+
|
|
10
86
|
|
|
11
87
|
|
|
12
88
|
|
|
@@ -42,14 +118,6 @@
|
|
|
42
118
|
|
|
43
119
|
|
|
44
120
|
|
|
45
|
-
|
|
46
|
-
|
|
47
|
-
Range("A:AU").Copy
|
|
48
|
-
|
|
49
|
-
Range("A:AU").PasteSpecial xlPasteValues
|
|
50
|
-
|
|
51
|
-
Range("A:AU").PasteSpecial xlPasteFormats
|
|
52
|
-
|
|
53
121
|
Application.CutCopyMode = False
|
|
54
122
|
|
|
55
123
|
|
1
コピーまで作成しました。削除方法を教えてほしいです。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,3 +1,15 @@
|
|
|
1
|
+
dataというシートに1年間のデータが入っていて、このマクロを使うと、月毎にシートに振り分けられます。
|
|
2
|
+
|
|
3
|
+
月毎のデータに分けて必要なデータだけ残したいのです。
|
|
4
|
+
|
|
5
|
+
なので、まずは月毎に振り分けて、計算式も入っているのでコピーをして値のみ貼り付けをしました。
|
|
6
|
+
|
|
7
|
+
ここからA～AUのデータの内AJ～AUのデータが必要です。
|
|
8
|
+
|
|
9
|
+
コピー後の書き方を教えてください。
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
1
13
|
Sub main()
|
|
2
14
|
|
|
3
15
|
Dim c As Range, sht As Worksheet
|
|
@@ -26,12 +38,24 @@
|
|
|
26
38
|
|
|
27
39
|
Next c
|
|
28
40
|
|
|
29
|
-
End Sub
|
|
30
41
|
|
|
31
42
|
|
|
32
43
|
|
|
33
|
-
この結果の後にさらに処理したいです。
|
|
34
44
|
|
|
35
45
|
|
|
36
46
|
|
|
47
|
+
Range("A:AU").Copy
|
|
48
|
+
|
|
37
|
-
|
|
49
|
+
Range("A:AU").PasteSpecial xlPasteValues
|
|
50
|
+
|
|
51
|
+
Range("A:AU").PasteSpecial xlPasteFormats
|
|
52
|
+
|
|
53
|
+
Application.CutCopyMode = False
|
|
54
|
+
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
End Sub
|