Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14738 / 76734 ←次へ | 前へ→

【67485】Dictionaryについて
質問  八家九僧陀  - 10/12/9(木) 1:45 -

引用なし
パスワード
   年末調整事務をしています。
1年間の課税所得額、社会保険料控除額、源泉徴収税額をDictinaryを利用して集計をしようとネットで調べて、あるサイトでDictionaryを使って「重複しない品名と個数の合計を計算します」というものを見つけたのですが、なにせ初心者、読解力なしの私には難解で、すぐに活用できそうにありません。
自分のデータ表に合うようなコードを教えてください。

1年12ヶ月分の各個人の給与支給データ(A列〜CR列、毎月約80名×12=約1,000行ほどのデータ量)が格納されたシート”支給台帳”(A列〜CR列)のうち、C列=社員IDを元に、その社員IDに対応したD列=氏名を抽出すると同時に、CN列=課税所得額、BZ列=社会保険控除額、CO列=源泉徴収税額の3項目の合計額の結果を、シート”年調データ”のA列に社員ID、B列に氏名、C列に課税所得額、D列に社会保険控除額、E列に源泉徴収税額の各集計結果を抽出させたいのですが、ご教示いただけませんか?
折角しらべたのだから、下のコードでいろいろ試せばいいのでしょうが、いかんせん、実稼動させる期限がせまり余裕がなくあせっています。
丸投げで申し訳ありませんが、ご教示ください。


'///以下は調べたサイトのコードです。
Sub rei21_2()
 Dim myDic As Object, myKey, myItem
 Dim myVal
 Dim i As Long
  Set myDic = CreateObject("Scripting.Dictionary")
  Range("D2", Range("E" & Rows.Count).End(xlUp)).ClearContents
  Range("D1:E1").Value = Range("A1:B1").Value
  ' ---元データを配列に格納
  myVal = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 2).Value
  ' ---myDicへデータを格納
    For i = 1 To UBound(myVal, 1)
      If Not myVal(i, 1) = Empty Then
        If Not myDic.exists(myVal(i, 1)) Then
          '---新たなkeyの時はkeyとitemを追加します
          myDic.Add myVal(i, 1), myVal(i, 2)
        Else
          '---すでに存在しているkeyの時はitemを加算します
          myDic(myVal(i, 1)) = myDic(myVal(i, 1)) + myVal(i, 2)
        End If
      End If
    Next
  ' ---Key,Itemの書き出し
  myKey = myDic.keys
  myItem = myDic.items
    For i = 0 To UBound(myKey)
      Cells(i + 2, 4).Value = myKey(i)
      Cells(i + 2, 5).Value = myItem(i)
    Next
  Set myDic = Nothing
End Sub
1 hits

【67485】Dictionaryについて 八家九僧陀 10/12/9(木) 1:45 質問
【67487】Re:Dictionaryについて Hirofumi 10/12/9(木) 8:33 回答
【67490】Re:Dictionaryについて Hirofumi 10/12/9(木) 9:29 回答
【67505】Re:Dictionaryについて Hirofumi 10/12/9(木) 18:05 発言
【67507】Re:Dictionaryについて 八家九僧陀 10/12/9(木) 18:15 お礼
【67511】Re:Dictionaryについて Hirofumi 10/12/9(木) 19:03 回答
【67575】Re:Dictionaryについて 八家九僧陀 10/12/15(水) 0:48 お礼
【67492】Re:Dictionaryについて kanabun 10/12/9(木) 10:00 発言
【67500】Re:Dictionaryについて kanabun 10/12/9(木) 16:12 発言
【67506】Re:Dictionaryについて Hirofumi 10/12/9(木) 18:06 発言
【67508】Re:Dictionaryについて 八家九僧陀 10/12/9(木) 18:22 お礼
【67510】Re:Dictionaryについて kanabun 10/12/9(木) 18:46 発言
【67512】Re:Dictionaryについて kanabun 10/12/9(木) 19:11 発言
【67576】Re:Dictionaryについて 八家九僧陀 10/12/15(水) 0:57 お礼
【67577】Re:Dictionaryについて kanabun 10/12/15(水) 9:25 発言
【67582】Re:Dictionaryについて 八家九僧陀 10/12/15(水) 22:30 お礼
【67493】Re:Dictionaryについて UO3 10/12/9(木) 10:21 回答
【67494】Re:Dictionaryについて kanabun 10/12/9(木) 11:19 発言
【67496】Re:Dictionaryについて UO3 10/12/9(木) 14:18 発言
【67499】Re:Dictionaryについて kanabun 10/12/9(木) 16:06 発言
【67509】Re:Dictionaryについて 八家九僧陀 10/12/9(木) 18:31 お礼

14738 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free