編集履歴

質問編集履歴

変更

2021/06/09 08:12

投稿

スコア0

test CHANGED Viewed

	@@ -1 +1 @@
1	- ~~このキ~~ー~~は既にこのコレクションの要素に割り当てら~~れています
1	+ 出力時、新しいシートが追加されるがデータが出力されない

test CHANGED Viewed

@@ -4,87 +4,7 @@
 以下を実現するプログラムを作りたいと考えております。
-しかし、表題のエラーが原因で実現できずにいます。
+しかし、表題が原因で実現できずにいます。
-また、
-それとは別に空白だった値にデータを入れたいので
-dという重複回数を示す変数を定義したものの、
-2種類目の重複データに遭遇した時のdの値は2
-k-dを行うと2個戻ってしまい、
-値が入っていないキーへ入れられず、
-何の意味も持たない変数になってしまいます。
-どの様に実現すると良いでしょうか。
-----【実現したい事】----
-重複時に該当するキーには値を入れない
-しかし、重複しない時は、
-重複していたキーに値を入れないと空白のデータになる。
-そこで、空白のキーに値を入れたい
-------------------------
-エラー内容　　　：このキーは既にこのコレクションの要素に割り当てられています
-エラー対象行　　：areaName.Add extractedData(k - d, 1), k - d
-エラー時の変数値：k=4,d=1,j=4
-----【具体例】----
-例えば、k=3の時、
-データが重複しており、
-If Not areaName.Exists(extractedData(k, 1)) Then
-の直下にある処理内容を通りません。
-であれば、当然、
-areaNameの連想配列にはk=3の時の値が入らない事になります。
-そうなると、Else以下の文に通る事になります。
-Else以下の文で重複している時の処理を終えると、
-End Ifに辿り着き、kが加算されます。
-この時のkの値はk=4です。
-そして、重複チェックに戻ります。
-すると、k=3の時、
-areaName.Add extractedData
-が行われていない為、空白になります。
-------　---------　---------

変更

2021/06/09 08:12

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -180,7 +180,7 @@
     Dim feeValue() As Variant
     'B列とD列～O列の動的配列の入れ物作成
@@ -188,15 +188,13 @@
      k = 1 'kはキー変数
-     d = 0 'dは重複回数
        For j = 1 To lineNum
             'キーがまだ存在してないのなら値を配列に追加/常にキー列(A列)を取得するので列固定
@@ -206,9 +204,9 @@
                 '値が重複→その時のindexNumberのitemは空のままだから重複回数分をマイナス
-                areaName.Add extractedData(k - d, 1), k - d
+                areaName.Add extractedData(k, 1), k
                 'B列追加、D列～O列追加
@@ -228,26 +226,24 @@
                     '売上を合算
-                    For a = 2 To 12
+                    For a = 1 To 12
                     'a = 2のとき、合算しないが重複データは削除
-                        If a = 2 Then
+                        If a = 1 Then
-                            feeValue(k, a) = extractedData(k, a)
+                            feeValue(areaName.Count, a) = extractedData(k, a + 1)
                             Else
                                 '元の位置にあるデータ＋重複している行の列の値。
-                                feeValue(k - 1, a) = extractedData(k - 1, a) + extractedData(k, a)
+                                feeValue(areaName.Count, a + 1) = extractedData(areaName.Count, a + 1) + extractedData(k, a + 1)
                         End If
                     Next
-                    d = d + 1 '重複カウント
             End If
             k = k + 1
@@ -256,12 +252,6 @@
-    areaNameKey = areaName.keys
-    areaNameItem = areaName.items
     '新規シートを名前を変更してシートの最後尾に挿入
@@ -278,13 +268,13 @@
     'リストを出力 areaNameの値とfeeValueの値をキーで対応させて出力する
-    For j = 1 To UBound(areaNameKey)
+    For j = 1 To UBound(areaName.keys)
         For i = 1 To 14
-            NewWorkSheet.Cells(j + 3, i).Value = areaNameKey(i)
+            NewWorkSheet.Cells(j + 4, i).Value = areaName.Item(i)
-            NewWorkSheet.Cells(j + 3, i + 1).Value = feeValue(j, i)
+            NewWorkSheet.Cells(j + 4, i + 1).Value = feeValue(j, i)
        Next

文章間違い

2021/06/09 08:00

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -282,7 +282,7 @@
         For i = 1 To 14
-            NewWorkSheet.Cells(j + 3, i).Value = areaNameItem(i)
+            NewWorkSheet.Cells(j + 3, i).Value = areaNameKey(i)
             NewWorkSheet.Cells(j + 3, i + 1).Value = feeValue(j, i)

かみ砕いた説明を記載

2021/06/09 06:14

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,3 +1,7 @@
+※サンプルデータとして画像を追加しました。
 以下を実現するプログラムを作りたいと考えております。
 しかし、表題のエラーが原因で実現できずにいます。
@@ -22,6 +26,8 @@
 ----【実現したい事】----
 重複時に該当するキーには値を入れない
@@ -46,43 +52,37 @@
-----【試そうとした事】----
+----【具体例】----
+例えば、k=3の時、
+データが重複しており、
+If Not areaName.Exists(extractedData(k, 1)) Then
+の直下にある処理内容を通りません。
+であれば、当然、
+areaNameの連想配列にはk=3の時の値が入らない事になります。
+そうなると、Else以下の文に通る事になります。
+Else以下の文で重複している時の処理を終えると、
+End Ifに辿り着き、kが加算されます。
+この時のkの値はk=4です。
+そして、重複チェックに戻ります。
+すると、k=3の時、
-For文で事前にextractedDataの値が、
+areaName.Add extractedData
-areaNameに存在するかどうか重複チェックを行い、
-該当したらExitForで強制的に抜ける。
-ただし、重複しなかった場合でもFor文は抜けてしまうので、
-更に抜けた後にIf文を追加し、
- z = Ubound(areaName.keys)
-とすればいいのでは、と思いましたが
-コードが増えすぎていきますし、
-そもそもデータによっては
-z = Ubound(areaName.keys)
-の時に重複する可能性もあります。
+が行われていない為、空白になります。
-よって現実的ではないと判断し、やめました。
-For z=1 To Ubound(areaName.keys)
- If extractedData(k, 1) = areaName(a)
-Exit For
- End If
-Next
 ------　---------　---------

文章間違い

2021/06/09 06:08

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -104,7 +104,7 @@
+【extractedDataのサンプルデータ】
 ![extractedDataのサンプルデータ](96854bf0017dbac649d5677ee5178776.png)

かみ砕いた説明を記載

2021/06/09 05:57

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -104,6 +104,14 @@
+![extractedDataのサンプルデータ](96854bf0017dbac649d5677ee5178776.png)
 【以下コード】

文章間違い

2021/06/09 05:56

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -8,9 +8,11 @@
 dという重複回数を示す変数を定義したものの、
-初期値は0なので、
-初めて重複したデータに出会った時は、
+2種類目の重複データに遭遇した時のdの値は2
+k-dを行うと2個戻ってしまい、
+値が入っていないキーへ入れられず、
 何の意味も持たない変数になってしまいます。

文章間違い

2021/06/09 05:47

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -36,7 +36,7 @@
 エラー内容　　　：このキーは既にこのコレクションの要素に割り当てられています
-エラー対象行　　：If Not areaName.Exists(extractedData(k, 1)) Then
+エラー対象行　　：areaName.Add extractedData(k - d, 1), k - d
 エラー時の変数値：k=4,d=1,j=4

文章間違い

2021/06/09 05:11

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -2,6 +2,18 @@
 しかし、表題のエラーが原因で実現できずにいます。
+また、
+それとは別に空白だった値にデータを入れたいので
+dという重複回数を示す変数を定義したものの、
+初期値は0なので、
+初めて重複したデータに出会った時は、
+何の意味も持たない変数になってしまいます。
 どの様に実現すると良いでしょうか。

文章間違い

2021/06/09 05:05

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -70,7 +70,7 @@
 Next
-------------------------
+------　---------　---------

文章間違い

2021/06/09 04:20

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -10,10 +10,6 @@
 ----【実現したい事】----
-If Not 取得してきたデータつまりextractedDataの値 = areaNameに存在する値
 重複時に該当するキーには値を入れない
 しかし、重複しない時は、