質問編集履歴
2
追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -83,4 +83,19 @@
|
|
|
83
83
|
End Sub
|
|
84
84
|
|
|
85
85
|
|
|
86
|
-
```
|
|
86
|
+
```
|
|
87
|
+
|
|
88
|
+
### 追記
|
|
89
|
+
|
|
90
|
+
・必ず入力するセル
|
|
91
|
+
a）商品名：B4
|
|
92
|
+
b）期間:B6（以降）B7（以前）
|
|
93
|
+
c）抽出するシート名：F4
|
|
94
|
+
|
|
95
|
+
※ 抽出すべき項目と抽出しない項目は入力しない場合があります。
|
|
96
|
+
入力しない場合は商品名と期間の条件で全て抽出します。
|
|
97
|
+
|
|
98
|
+
※ 抽出すべき項目と抽出しない項目はどちらか一方のみ入力します。
|
|
99
|
+
同時に入力することはありません。
|
|
100
|
+
100項目のうち、抽出すべき項目が99件、抽出しない項目が1件の場合に抽出しない項目1件を
|
|
101
|
+
入力するようにしております。
|
1
コードが見づらいため編集
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -33,6 +33,7 @@
|
|
|
33
33
|
|
|
34
34
|
### 該当のソースコード
|
|
35
35
|
|
|
36
|
+
```ここに言語を入力
|
|
36
37
|
Sub OneInstance01()
|
|
37
38
|
Dim dstSheet As Worksheet
|
|
38
39
|
Dim Ns As Worksheet
|
|
@@ -79,4 +80,7 @@
|
|
|
79
80
|
Set srcBook = Nothing
|
|
80
81
|
Set Ns = Nothing
|
|
81
82
|
Set WF = Nothing
|
|
82
|
-
End Sub
|
|
83
|
+
End Sub
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
```
|