Excel VBA質問箱 IV

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

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


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

24 / 13618 ﾂﾘｰ

←次へ　｜　前へ→

▼

【82179】VBA いとう 23/8/21(月) 17:07

【82181】Re:VBA いとう 23/8/22(火) 10:54

【82182】Re:VBA MK 23/8/22(火) 12:15

【82183】Re:VBA いとう 23/8/22(火) 13:54

【82184】Re:VBA マナ 23/8/23(水) 14:01

【82185】Re:VBA いとう 23/8/24(木) 8:53

【82186】Re:VBA マナ 23/8/24(木) 11:25

【82187】Re:VBA いとう 23/8/24(木) 13:01

【82188】Re:VBA マナ 23/8/24(木) 13:39

【82189】Re:VBA いとう 23/8/24(木) 13:44

【82190】Re:VBA マナ 23/8/24(木) 16:09

【82192】Re:VBA いとう 23/8/28(月) 9:41

【82193】Re:VBA マナ 23/8/28(月) 14:51

【82194】Re:VBA いとう 23/8/28(月) 15:42

【82195】Re:VBA マナ 23/8/29(火) 13:12

【82196】Re:VBA いとう 23/8/29(火) 14:50

【82197】Re:VBA マナ 23/8/29(火) 16:42


	【82181】Re:VBA

いとう - 23/8/22(火) 10:54 -


	引用なし

	パスワード

MK様返信ありがとうございます。
ご質問ですが一対一の相殺関係です。

申し訳ありませんが、昨日の表がわかりにくかったことに加え変更がございます。
計上日を追加しました。最新の計上日を残しそれ以外を一対一の関係で相殺したいです。文系女子にはもうお手上げ状態です。

　　　Ａ　　　Ｂ　　　　Ｃ　　Ｄ
　　品目CD　計上日　　　単価　金額
１　ばなな　2022/8/31　　110　 110
２　ばなな　2022/8/31　　100　-100
３　ばなな　2022/8/2 　　100　 100

ご面倒をお掛けしますが、よろしければご回答をお願いいたします。


	【82182】Re:VBA

MK - 23/8/22(火) 12:15 -


	引用なし

	パスワード

23/8/22(火) 10:54の事例ですと、データが1と2だけの場合、
1と2は相殺関係にありますが、最新の計上日は残すので
相殺しない、ということでいいですか？


	【82183】Re:VBA

いとう - 23/8/22(火) 13:54 -


	引用なし

	パスワード

MK様
説明が下手ですみません。お手数掛けてしまいました。
2と3を相殺して1だけ残したいです。

3の計上日2022/8/2分を2の計上日2022/8/31で相殺して
単価の違う1だけを表示させたいです。

よろしくお願いいたします。


	【82184】Re:VBA

マナ - 23/8/23(水) 14:01 -


	引用なし

	パスワード

▼いとうさん：

下記の場合は、どんな結果になればよいですか

　　　Ａ　　　Ｂ　　　　Ｃ　　Ｄ
　　品目CD　計上日　　　単価　金額
１　ばなな　2022/9/1　　 110　 550
２　ばなな　2022/8/31　　110　 110
３　ばなな　2022/8/31 　 130　-130
４　ばなな　2022/8/31　　100　-100
５　ばなな　2022/8/2 　　100　 100
６　ばなな　2022/8/1 　　120　 240
７　ばなな　2022/8/1 　　130　 260


	【82185】Re:VBA

いとう - 23/8/24(木) 8:53 -


	引用なし

	パスワード

マナ様
ご質問ありがとうございます。

マナ様の表ですと、４と５が相殺され表示されなくなり、２は残す結果がほしいです。１、３、６，７も残したいです。

品目CDと単価と金額（プラスとマイナス。表だと相殺できる100と-100）が一致するものを削除し、
計上日が最新のものを残したいです。表だと関連するものが２、４、５になりますが２を残したいです。

どうかよろしくお願いいたします。


	【82186】Re:VBA

マナ - 23/8/24(木) 11:25 -


	引用なし

	パスワード

▼いとうさん：

>計上日が最新のものを残したいです。表だと関連するものが２、４、５になりますが２を残したいです。

計上日が最新のものは、１と３と６では？

　　　Ａ　　　Ｂ　　　　Ｃ　　Ｄ
　　品目CD　計上日　　　単価　金額
１　ばなな　2022/9/1　　 110　 550　　←計上日が最新
２　ばなな　2022/8/31　　110　 110
３　ばなな　2022/8/31 　 130　-130　　←計上日が最新
４　ばなな　2022/8/31　　100　-100
５　ばなな　2022/8/2 　　100　 100
６　ばなな　2022/8/1 　　120　 240　　←計上日が最新
７　ばなな　2022/8/1 　　130　 260


	【82187】Re:VBA

いとう - 23/8/24(木) 13:01 -


	引用なし

	パスワード

２と４と５を関連している計上と見ます。
（４と５を相殺して新たに２を計上しています）
４と５は不要なので削除したいです。

その他は相殺するものが無いので計上日に係わらずそのまま表示させておきたいです。


	【82188】Re:VBA

マナ - 23/8/24(木) 13:39 -


	引用なし

	パスワード

▼いとうさん：
>２と４と５を関連している計上と見ます。

これが理解できません。
なぜ、２が関連するのでしょうか。
２は単価が異なりますが？


	【82189】Re:VBA

いとう - 23/8/24(木) 13:44 -


	引用なし

	パスワード

わかりにくく申し訳ありません。
これは単純に入力時に単価を間違えたという設定でした。

110円で計上しないとならないところを100円で計上してしまい、
これを-100円で相殺し、同日に110円で計上し直したということです。


	【82190】Re:VBA

マナ - 23/8/24(木) 16:09 -


	引用なし

	パスワード

▼いとうさん：

データは計上日で降順ソートされている前提

Option Explicit

Sub test()
　　Dim dic As Object, aryl As Object
　　Dim 品目CD As String, 単価 As Long, 金額 As Long
　　Dim v, i As Long, k As String
　　
　　v = Cells(1).CurrentRegion.Value
　　
　　Set dic = CreateObject("scripting.dictionary")
　　Set aryl = CreateObject("system.collections.arraylist")
　　
　　For i = UBound(v) To 2 Step -1
　　　　品目CD = v(i, 1)
　　　　単価 = v(i, 3)
　　　　金額 = v(i, 4)
　　　　If 金額 > 0 Then
　　　　　　k = 品目CD & vbTab & 単価 & vbTab & 金額
　　　　　　aryl.Add i
　　　　　　If Not dic.exists(k) Then
　　　　　　Set dic(k) = CreateObject("system.collections.stack")
　　　　　　End If
　　　　　　dic(k).push i
　　　　Else
　　　　　　k = 品目CD & vbTab & 単価 & vbTab & 金額 * -1
　　　　　　aryl.Remove dic(k).pop
　　　　End If
　　Next
　　
　　aryl.Add 1
　　aryl.Reverse

　　v = Application.Index(v, Application.Transpose(aryl.toarray), Array(1, 2, 3, 4))
　　Worksheets.Add.Cells(1).Resize(UBound(v), 4).Value = v

End Sub


	【82192】Re:VBA

いとう

- 23/8/28(月) 9:41 -


	引用なし

	パスワード

マナ様
成功しました。ありがとうございます。すごいです！

もしよろしければ勉強不足のである私に各プログラムの意味を記載して
いただけませんでしょうか。初めて知った部分もあるので知識をつけたく
なってしまいました。

まだお付き合いいただけますようでしたら、よろしくお願いいたします。


	【82193】Re:VBA

マナ - 23/8/28(月) 14:51 -


	引用なし

	パスワード

▼いとうさん：　　　Ａ　　　Ｂ　　　　Ｃ　　Ｄ 1　　品目CD　計上日　　　単価　金額 2　　ばなな　2022/8/31　　110　　110 3　　ばなな　2022/8/31　　100　　-100 4　　ばなな　2022/8/3 　　100　　200 5　　ばなな　2022/8/2 　　100　　100 6　　ばなな　2022/8/1 　　100　　100 まずは下記で行われていることを理解する必要があります。 Sub test2() 　　Dim v, a 　　　v = Cells(1).CurrentRegion.Value 　　 a = Array(1, 2, 4, 6)　'抽出する行　　v = Application.Index(v, Application.Transpose(a), Array(1, 2, 3, 4)) 　　Worksheets.Add.Cells(1).Resize(UBound(v), 4).Value = v End Sub


	【82194】Re:VBA

いとう

- 23/8/28(月) 15:42 -


	引用なし

	パスワード

マナ様
Cells(1)がよくわかっておりませんが、
v = Application.Index(v, Application.Transpose(a), Array(1, 2, 3, 4))
1,2,3,4,の配列を取り出して転記する
Worksheets.Add.Cells(1).Resize(UBound(v), 4).Value = v
ワークシートを追加して行最大で4列のアクティブ領域の値を取り出して転記する

上記のような理解で合っておりますでしょうか？


	【82195】Re:VBA

マナ - 23/8/29(火) 13:12 -


	引用なし

	パスワード

▼いとうさん： >上記のような理解で合っておりますでしょうか？わたしには、よくわかりません。マクロを実行したうえで、そう考えたのであれば他人にはわかりづらい表現というだけで、たぶんあっているのでしょう。下記のデータの場合は test2を、どのように修正すればよいかわかりますか。　　　Ａ　　　Ｂ　　　　Ｃ　　Ｄ 1　　品目CD　計上日　　　単価　金額 2　　ばなな　2022/8/31　　110　　110 3　　ばなな　2022/8/31　　100　　-100 4　　ばなな　2022/8/2 　　100　　100


	【82196】Re:VBA

いとう - 23/8/29(火) 14:50 -


	引用なし

	パスワード

マナ様
抽出する行を変更しました。

Sub test2()
　　Dim v, a
　
　　v = Cells(1).CurrentRegion.Value
　　 a = Array(1, 2)　'抽出する行

　　v = Application.Index(v, Application.Transpose(a), Array(1, 2, 3, 4))
　　Worksheets.Add.Cells(1).Resize(UBound(v), 4).Value = v

End Sub


	【82197】Re:VBA

マナ - 23/8/29(火) 16:42 -


	引用なし

	パスワード

▼いとうさん：

そうです。
つまり、残したい行番号を自動で求めることができればよいのです。

今回は、arraylist という道具を利用しました。

arraylistの使い方はネットで調べてください。
何となくでもよいのでtest3 ↓が理解できないと
先に進めません。

Sub test3()
　　Dim aryl As Object
　　Dim v, i As Long
　
　　Set aryl = CreateObject("system.collections.arraylist")
　
　　For i = 6 To 2 Step -1
　　　　aryl.Add i
　　　　If i = 3 Or i = 5 Then
　　　　　　aryl.Remove i
　　　　End If
　　Next
　　
　　aryl.Add 1
　　aryl.Reverse

　　v = Application.Transpose(aryl.toarray)
　　Worksheets.Add.Cells(1).Resize(UBound(v)).Value = v

End Sub


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

24 / 13618 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free