Excel VBA質問箱 IV

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

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


7961 / 76732 ←次へ | 前へ→

【74352】Re:文字の比較
質問  愛子 E-MAIL  - 13/5/24(金) 18:24 -

引用なし
パスワード
   ▼UO3 さん:
下記サンプル22をようやく見つけました。
色々チェックしていたら、解らなくなって来ました。

下記サンプル22は同じシート内のE列(名前)L列(金額)N列(全員の名前)
O列(同じ名前の合計金額)で(小計機能を使わずに)1件1件のデータの集まり
を処理されるコードでしょうか?コードをラーンしましたらL列の金額合計と
O列の同じ名前の合計金額の総計と合いません、O列の総計がL列の合計に比べて
かなり少ないのです。

Sub Sample22()
'Dictionary処理案。
  Dim c As Range
  Dim newV As Variant
  Dim i As Long
  Dim dic As Object

  Set dic = CreateObject("Scripting.Dictionary")

  With Sheets("集計")
    'bシートの名前と金額をDictionaryに格納(2行目以降)
    For Each c In .Range("E2", .Range("E" & .Rows.Count).End(xlUp))
      dic(c.Value) = c.EntireRow.Range("L1").Value
    Next
    'bシートの N列、O列の内容(2行目以降)を配列に格納
    newV = .Range("N2", .Range("N" & .Rows.Count).End(xlUp)).Resize(, 2).Value
    For i = 1 To UBound(newV, 1)
      If dic.exists(newV(i, 1)) Then newV(i, 2) = dic(newV(i, 1))
    Next
    .Range("N2").Resize(UBound(newV, 1), UBound(newV, 2)).Value = newV
    .Select
  End With

End Sub

改めてのお願いですが、aシートをシート名:"集計"にします bシートを
シート名:"一致"にします。シート名:"集計"には,選ばれたデータが何行にも
亘ってあります。(小計機能は使いません)

シート名:"一致"にはN列に全員の名前があり、O列にはシート名:"集計"
と同じ名前の金額(同じ名前であれば合計します)が入ります。

シート名:"集計"のE列(名前)とシート名:"一致"のN列(名前)が合致した
ところで、シート名:"一致"のN列の右(O列)にE列の同じ名前のたした金額
が表示されます様にお願いします。

5 hits

【74321】文字の比較 愛子 13/5/22(水) 17:13 発言
【74328】Re:文字の比較 UO3 13/5/23(木) 11:13 発言
【74330】Re:文字の比較 愛子 13/5/23(木) 12:34 発言
【74331】Re:文字の比較 愛子 13/5/23(木) 12:43 発言
【74332】Re:文字の比較 UO3 13/5/23(木) 14:22 発言
【74333】Re:文字の比較 愛子 13/5/23(木) 17:09 発言
【74334】Re:文字の比較 愛子 13/5/23(木) 18:21 発言
【74335】Re:文字の比較 UO3 13/5/23(木) 19:58 発言
【74337】Re:文字の比較 愛子 13/5/23(木) 21:21 質問
【74340】Re:文字の比較 UO3 13/5/24(金) 10:17 発言
【74344】Re:文字の比較 愛子 13/5/24(金) 12:55 発言
【74347】Re:文字の比較 UO3 13/5/24(金) 13:16 発言
【74350】Re:文字の比較 愛子 13/5/24(金) 15:20 発言
【74352】Re:文字の比較 愛子 13/5/24(金) 18:24 質問
【74353】Re:文字の比較 UO3 13/5/24(金) 19:37 発言
【74354】Re:文字の比較 愛子 13/5/24(金) 20:27 お礼
【74341】Re:文字の比較 UO3 13/5/24(金) 10:42 発言
【74346】Re:文字の比較 愛子 13/5/24(金) 13:14 発言
【74342】Re:文字の比較 UO3 13/5/24(金) 11:15 発言
【74345】Re:文字の比較 愛子 13/5/24(金) 12:57 発言
【74343】Re:文字の比較 UO3 13/5/24(金) 11:20 発言
【74329】Re:文字の比較 UO3 13/5/23(木) 11:34 発言

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