Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17540 / 76732

←次へ　｜　前へ→


	【64645】Re:受注データの表示形式について

UO3 - 10/2/28(日) 9:03 -


	引用なし

	パスワード

▼Akari さん：

おはようございます。
やっぱりバグがありましたね。
しかも、初歩的な。おはずかしいです。
１行追加願います。

'受注年月日、商品CD、商品名、単価、でサマリー表用Dictionary作成

　　Set myDic2 = CreateObject("Scripting.Dictionary")
　　Set myDic3 = CreateObject("Scripting.Dictionary")
　　For Each myKey1 In myDic1
　　　　aaa = Split(myKey1, Chr(13))
　　　　myKey2 = aaa(0) & Chr(13) & _
　　　　　　　　 aaa(1) & Chr(13) & _
　　　　　　　　 aaa(2) & Chr(13) & _
　　　　　　　　 aaa(3)
　　　　myBuyer = aaa(4)
　　　　myQty = myDic1(myKey1)
　　　　sepChr = ""　　　　　'<==== ここに１行、追加してください。
　　　　If myDic2(myKey2) <> "" Then sepChr = "、"
　　　　myDic2(myKey2) = myDic2(myKey2) & sepChr & myQty & "/" & myBuyer
　　　　
　　　　If myDic3(myKey2) = "" Then
　　　　　　myDic3(myKey2) = myQty
　　　　Else
　　　　　　myDic3(myKey2) = myDic3(myKey2) + myQty
　　　　End If
　　Next

0 hits

▼

【64135】受注データの表示形式について Akari 10/1/21(木) 14:39