Excel VBA 質問スレ Part70

2021/03/18(木) 22:08:43.71

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part69
https://mevius.5ch.net/test/read.cgi/tech/1607786543/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/05/01(土) 13:20:57.76

>>582
互換、環境の違い……

2021/05/01(土) 13:30:58.50

ピボットを設定して
たて列を月
よこ列を単価

合計は "値で合計"にする <はじめは個数で合計>になってる
いちばん間違えやすいところ

2021/05/01(土) 14:28:03.48

>>573
> >>557
> sheet1モジュールに書く
> シート名はs1とs2にしてるのでテキトーに変えて
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If _
> Target.Address <> "$B$1" _
> Or Not (IsNumeric(Target)) _
> Then
> Exit Sub
> End If
>
> main = Cells(1, 2).Value
> main2 = Cells(1, 1).Value
>
> If (Int(main) - (main)) = 0 Then
> Sheets("s2").Cells(1, 3) = main
> Else
> Sheets("s2").Cells(1, 3) = Int(main2)
> End If
>
> End Sub
あらためて
ありがとうございます。
整数なら無視できるようになりました！
あとは Sheets("s2").Cells(1, 3) にSheets("s１").Cells(1, 2).Valueが整数じゃなければSheets("s１").Cells(1, １).Valueが入れば完璧です
ちょっと自分でググってみます！もしできないようならまた質問させてください

2021/05/01(土) 15:00:22.43

>>584
誰か建ててくれると期待してはや数年。。。

2021/05/01(土) 15:05:23.71

PowerQueryスレは建ったんだけど、
https://mevius.5ch.net/test/read.cgi/bsoft/1571540368/
ピボットスレ、建ててみる？

先日、総合相談スレでPowerPivot絡みの質問はあったが。

2021/05/01(土) 15:15:39.62

>>586
ピボットだと=で積み立てで足していくようにできなくね？
合計しか出てこない

2021/05/01(土) 16:16:38.30

あーそうかも
やはりピボットスレが立つまで待ちますか

2021/05/01(土) 16:42:05.48

>>581

それは、たとえば、元表にB1＆countif(B$1:B1,B1)みたいな作業列を作って
飛ばしたい表に、iferror(index(D:D,match(作業列,コード&column()+1,0)),"")
みたいな数式を貼り付けるのではだめですか？

1つのセルに、数式として入っている必要性が、あるのですか？

2021/05/01(土) 17:05:58.85

>>592修正、matchの書式も違うし

月も必要なので、B1＆E1 を作業列Fに、count(F$1:F1,F1)を作業列Gに入れて

飛ばしたい表のA列はコード、B列は月、C列以降にiferror(index(元表!$D:$D,match($A1&$B1&column()-2,元表!$F:$F,0)),"")

こんな感じではだめですか？

2021/05/01(土) 17:25:51.43

>>592
合計なら楽なんですが、どうしても=+で数字を積み立てないとダメなんですよね、、
だから数式では解決できない気がします
vbaでやるなら配列に詰め込んで最後に結合させるのかなあとか思ってるんですがなかなかいいコードが思い浮かばない、、

2021/05/01(土) 17:29:33.26

>>593
ちなみに飛ばしたい表のB列は月というか
　　　　　月
　　　　　　
コード～

みたいな形になってて、月は横軸の大項目としてしか存在してないんですよね
色々厄介な作りになってまして、、

2021/05/01(土) 17:33:09.92

知能に障害がある人ばかり質問するようになった感じ

2021/05/01(土) 17:49:10.58

コロナ自粛でGW中だから暇なんだよ
暇な人に相手して欲しいんだよ

2021/05/01(土) 18:04:53.11

知恵袋でやれば良いと思う

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 18:07:44.96

>>581
> みたいな感じで月が同じでコードが一致してる場合だけ積み立てていくことってできますか？
月が同じってどこと同じなの？
コードのようにどこかで指定するってこと？
とりあえずコードがA列、金額がB列、月がC列に入っているとして
Dim 元表 As Sheet: Set 元表 = Range("A1:C10")
Dim 金額() As String: ReDim 金額(元表.Row To 元表.Row + 元表.Rows.Count - 1)
Dim 書込行 As Long: 書込行 = LBound(金額)
Dim 行 As Long
For 行 = LBound(金額) To UBound(金額)
If Cells(行, "A").Value = コード And Cells(行, "C").Value = 月 Then
金額(書込行) = Cells(行, "B").Value
書込行 = 書込行 + 1
End If
Next
ReDim Preserve 金額(LBound(金額) To 書込行 - 1)
Range("D1").Formula = "=" & Join("+",
金額)
みたいな感じでいけると思う

>582
ごめん、テキトーにググって書いてるから間違えてるみたいやな
Application.WorksheetFunction.Transpose
にしといて

2021/05/01(土) 18:46:01.00

>>599
最初の型はSheetじゃなくてRangeじゃね
あとこの人の言ってるのは普通に文字列としてValueプロパティに式を書き込めばいいような気がするけど

上で語ってる人ってあんま教えに来ないよな

2021/05/01(土) 18:57:24.37

>>599
試しにやろうとしたら最終行が型不一致でエラーになりました・・

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 19:57:34.66

>>600
> 最初の型はSheetじゃなくてRangeじゃね
すまん、そうだわ

> あとこの人の言ってるのは普通に文字列としてValueプロパティに式を書き込めばいいような気がするけど
ちょっと今試せないからやってみてくれ

>>601
すまん
Range("D1").Formula = "=" & Join(金額, "+")
だったわ

2021/05/01(土) 20:06:26.75

>>602
ありがとうございます。
今度は下から二行目でインデックスの範囲外エラーになりました、、
書込行が1行目だとredim～のところの書込行-1が0になるからですかね？

2021/05/01(土) 22:02:09.39

>>603
自分で考えることくらいしろや、ゆとり

2021/05/01(土) 22:18:52.25

dim hako() as variant

redim hako(ここはデータ数を格納)

for i = 0 to 回数

hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value

next

こんな感じで配列の中にセルの文字入れて行こうとするとエラーになるんですが原因分かる人居たら教えてください
便宜上cellの位置は1,1にしてますけど実際は縦が動いていきます

2021/05/01(土) 22:41:00.37

>>541
> これ、要するにString型変数の値は参照値って事？
> 察してはいたけどByval xxx$って嘘じゃん

逆にC知ってると、文字列がプリミティブってのにものすごい
違和感があるよ。「ああ、内部で変換してんだな。そういうものだと
思っておこう」と、自分を納得させる。

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 22:45:28.00

>>603
条件に合うものがないと ReDim 金額(1 To 0) の様になってエラーになる
VBAではReDimで空の配列は作れないので条件に合うものがない場合を場合分けして処理するしかない
例えば条件に合うものがない場合はD1を空にするなら最後の２行を

Dim 式 As String
If LBound(金額) < 書込行 <= Then
ReDim Preserve 金額(LBound(金額) To 書込行 - 1)
式 = Join("+", 金額)
Else
式 = """"""
End If
Range("D1").Formula = "=" & 式

とかにすればいい

2021/05/01(土) 22:53:14.11

>>605
＞hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value
の、
Worksheets("Sheet1").Cells(1,1)が指してる先が数字でないなんてオチはないよね？

2021/05/01(土) 23:00:47.42

>>608
今見てみたんですが
ちゃんと数字を指してました

2021/05/01(土) 23:06:25.35

>>607
すごい！
ちょっと動くようになりました。
二行目のif文の<=って消していいですかね？
消さないとエラーになってしまったので
ただ、式=join（"+",金額）のところで型が一致しないエラーになりました

2021/05/01(土) 23:16:54.43

いつものあいつ確定

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 23:44:05.17

>>610
> 二行目のif文の<=って消していいですかね？
消し忘れだ、すまん

> ただ、式=join（"+",金額）のところで型が一致しないエラーになりました
デグレードしてる俺が悪いんだが、>>601からの話と同じ

2021/05/01(土) 23:54:50.36

>>612
凄いです！！
出来ました！！
ちょっと実際の表でも細かい数字入れてみて検証してみます。
GW潰してずーっとこの問題を考えてました。
一筋の光が見えた気がします！！ありがとうございます。

2021/05/02(日) 09:42:00.36

>>590
PowerPivotでDAX関数使えば出来るかも。

2021/05/02(日) 09:58:00.77

で、建ててみた

Excel ピボット Power Pivot DAX関数質問スレ
https://mevius.5ch.net/test/read.cgi/tech/1619916663/

2021/05/02(日) 10:03:52.79

いきなり宣伝てアンタ

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/02(日) 10:19:11.69

>>605
> エラーになるんですが
なぜエラーメッセージを書かないの？

>>608
数字でもダメでしょ
hako(i) = Worksheets("Sheet1").Range(1, 1).Value
になるだけだし

2021/05/02(日) 10:26:38.41

>>617
アプリケーション定義エラーまたはオブジェクトの定義エラーですってなります

2021/05/02(日) 11:31:48.49

2スレ目に何か書いとこうと思って、
とりあえず考えついたのがこれくらいしかなかった。
スンマセン

2021/05/02(日) 11:41:15.21

>>618
>>617で頓珍漢なこと書いてたわスマン、数値かどうかは関係ないわ

> hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value

でエラーになるのか

> 実際は縦が動いていきます

の方でエラーになるのかどっち？
上でエラーになるなら１回目なのか何回かやったらエラーになるのかのどっち？
下でエラーになるならエラーになった時のセルの指定がおかしくないかを確認
あとシートの指定は変数に入れるかWithを使った方が楽だよ

With Worksheets("Sheet1")
For i = 0 to 回数
hako(i) = .Range(.Cells(1,1), .Cells(1,1)).Value
Next
End With

2021/05/02(日) 12:12:35.89

>>620
独学でやってたのでその辺の知識がなくてｗ
withで指定するといちいち書かなくて済むんですね
エラーになるのはもう1度目からです

> hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value

ここの時点でエラーになります。

2021/05/02(日) 12:42:32.96

>>621
切り分けとしてエラーになった時にイミディエイトウィンドウで

hako(i) = Worksheets("Sheet1").Range("A1").Value

Debug.Print Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value

Debug.Print Worksheets("Sheet1").Cells(1,1).Address

を実行してみて

2021/05/02(日) 13:21:44.18

>>622
あまり使ったことがない機能で分からないんですが
試しにA1に1という数字を置いて実行したら1という結果が出ました
エラーは出なかったです

2021/05/02(日) 13:32:29.72

エラーが出なくなったらよかった。
他に問題は？
解決？

2021/05/02(日) 18:51:27.95

こういう人って文法は理解できないけど
自然言語みたいに丸暗記で覚えていくのかな？

2021/05/02(日) 19:13:05.11

～10年後～
「あ、ちゃんと覚えたほうが早かったんだ」

と、表面をなぞりまくる内に本質まで見えてきて最後に気づく人もいる
本業じゃないからね。仕方ないね。

2021/05/02(日) 19:18:03.74

類型から共通点を見出して次第にルールを覚えるのは自然界の学習形態に沿っている

2021/05/02(日) 19:36:47.01

古いBASICの構文が難しいからそこだけはしっかりと覚えたほうが早いんだけどね

2021/05/03(月) 02:05:26.31

10年後もこんなことやってるとかw

**デフォルトの名無しさん** (JP 0Hcb-OedE) · 2021/05/03(月) 03:55:18.41

一度普及した物は、減り続けても簡単にはなくならんよ
PC-9801だっていまだに現役で使ってる工場とかあるし
サポートがなくなって10年後でもVBAを使う職場は間違いなく世界中のどこかに残ってる

2021/05/03(月) 04:12:16.92

10年たってもエラーが直んないとかやっているのかと言う意味だ

2021/05/03(月) 07:31:09.68

>>618
このエラーがでるとお手上げ
さっぱりわからない

2021/05/03(月) 10:36:54.14

>>605
「回数」で動くわけないだろｗ
数字入れろつーの

2021/05/03(月) 10:55:13.04

もはや社会人いないな

2021/05/03(月) 11:10:44.37

>>633
> 「回数」で動くわけないだろｗ
普通に変数なり定数なりを定義したら動くだろ
ツッコミならもっとおもしろいやつにしてくれ

2021/05/03(月) 12:03:06.50

0から始まるときは回数-1 じゃね

2021/05/03(月) 14:59:49.63

ttps://pastebin.pl/view/3a98fdc0

サムネイル画像の１番をクリックして表示された画像を順々にダウンロードするクローラみたいなものを作ろうとしてるのですが、
どうやったらサムネイル画像の１番めをクリックして表示された画像のURLを取得できるでしょうか？

2021/05/03(月) 18:17:11.84

HTML の中には、サムネイル画像をクリックした時の、飛び先のリンクが書いてある。
(ただし、下には、＠の文字を追加した)

最初の画像なら、
<a href="http＠s://e-hentai.org/s/78a8543e34/1727798-1">

うまくスクレイピングすれば、このURL を抜き出せるのでは？

2021/05/03(月) 20:20:21.53

シート上の複数のリストボックスの選択済みをボタンを押すと
一括クリアしたいと思っています。

For i = 0 To ActiveSheet.OLEObjects("ListBox1").ListCount - 1
If ActiveSheet.OLEObjects("ListBox1").Selected(i) = True Then
ActiveSheet.OLEObjects("ListBox1").Selected(i) = False
End If
Next i

このコードではオブジェクトがないとエラーになります。

どなたかご教授ください。

2021/05/03(月) 22:04:23.29

いつものあいつ

2021/05/03(月) 22:25:43.32

そりゃオブジェクト指定してるのにオブジェクトなかったらエラーになる

2021/05/03(月) 23:09:22.50

アクティブやセレクトの多用はエラー処理が面倒くさくなる場合が多い
根本的なトコロから考え直すヨロシ

**デフォルトの名無しさん** (JP 0Hcb-sT2V) · 2021/05/04(火) 00:04:08.03

>>639
ボックスが複数あるのか、選択肢が複数あるのか、どっち？

2021/05/04(火) 00:21:07.48

>>635
どっちもしてないじゃん

2021/05/04(火) 19:03:55.38

なるほど
"sheet1"が有りません的なエラーなんだ
これは勉強になった

2021/05/04(火) 23:49:30.76

一生懸命マクロを組んだのに実は標準機能で実現できると知ったときのガッカリ感

2021/05/05(水) 00:05:02.26

何を作ったかは知らんけど付加価値を追加すればええやん
俺はカラーパレットと並び替えを付加価値を付けて作って使っているけどな

2021/05/05(水) 01:59:04.74

ショートカットキー押したらアクティブセルのフォントや背景の色番号が
クリップボードにコピーされるちょいマクロを作ってる
マクロ作るときに欲しい色番号をすぐ書けるので便利

2021/05/05(水) 09:07:35.23

>>648
VBA初学者の誰もが通る道だな

2021/05/05(水) 09:17:08.30

人の作ったデータベースでIDと商品名がひとつのセルに入力されてるから個別にクリップボードにコピーするマクロを作ったな

2021/05/05(水) 09:38:04.66

>>646
レベルアップしたよ。その経験は無駄にはなってないよ

2021/05/05(水) 10:04:42.11

Private Sub Worksheet_Change(ByVal Target As Range)

If _
Target.Address <> "$C$2" _
Or (IsNumeric(Target)) _
Then
Exit Sub
End If

main = Cells(1, 3).Value
main2 = Cells(2, 3).Value

If (Int(main) - (main)) = 0 Then
Sheets("DB").Cells(2, 3) = main
Else
Sheets("DB").Cells(2, 3) = Int(main2)
End If
End Sub

2021/05/05(水) 10:54:54.17

Private Sub Worksheet_Change(ByVal Target As Range)
１つ目
If _
Target.Address <> "$C$2" _
Or (IsNumeric(Target)) _
Then
Exit Sub
End If
main = Cells(1, 3).Value
main2 = Cells(2, 3).Value
If (Int(main) - (main)) = 0 Then
Sheets("DB").Cells(2, 3) = main
Else
Sheets("DB").Cells(2, 3) = Int(main2)
End If
End Sub
２つ目
If Intersect(Target, Range("A1:C2")) Is Nothing Or Target.Cells.Count > 6 Then Exit Sub
Columns("d").ClearContents
Application.EnableEvents = False
日付1 = DateSerial(Range("A1"), Range("B1"), Range("C1"))
日付2 = DateSerial(Range("A2"), Range("B2"), Range("C2"))
For 日付 = 日付1 To 日付2
ｒ = r + 1
Cells(r, "D") = 日付
Next
Application.EnableEvents = True
End Sub
一つ目と二つ目を合わせるにはどうしたらいいでしょうか？
前にも質問してググってみたのですが今の私のレベルでは手に負えなくて困ってます
ご教授ください

2021/05/05(水) 10:58:18.12

>>653
前も見た気がするけど、結局何をやりたいのか分からん
最初から最後までやりたいことを通して書いてくれ

2021/05/05(水) 11:08:55.56

この人教えるには金貰わなきゃ割に合わないくらいめんどい

2021/05/05(水) 11:10:46.24

すみません！

　　　A　　　B　　　C　　　　D
１　2021　　１　　　１　　　１/１
２　2021　　１　　　５　　　１/２
　　　　　　　　　　　　　　　１/３
　　　　　　　　　　　　　　　１/４
　　　　　　　　　　　　　　　１/５

↑のようにDateが入った表で
１/１と１/５までの日付をD列に表示したいです

もし２/４から２/６なら

2021/05/05(水) 11:12:17.39

すみません！

　　　A　　　B　　　C　　　　D
１　2021　　１　　　１　　　１/１
２　2021　　１　　　５　　　１/２
　　　　　　　　　　　　　　　１/３
　　　　　　　　　　　　　　　１/４
　　　　　　　　　　　　　　　１/５

↑のようにDateが入った表で
１/１と１/５までの日付をD列に表示したいです

もし２/４から２/６なら2/4、2/5、2/6を

2021/05/05(水) 11:15:04.54

　　　A　　　B　　　C　　　　D
１　2021　　１　　　１　　　１/１
２　2021　　１　　　５　　　１/２
　　　　　　　　　　　　　　　１/３
　　　　　　　　　　　　　　　１/４
　　　　　　　　　　　　　　　１/５

↑のようにDateが入った表で
１/１と１/５までの日付をD列に表示したいです

もし２/４から２/６なら2/4、2/5、2/6をD列に表示したいです

もしC２に数字以外の文字等が入った場合はC１の数字をC２に来るように出来るでしょうか？

2021/05/05(水) 11:16:11.30

間違えて
何回も連投してしまいました
すみません

2021/05/05(水) 11:31:02.17

>>655
わたしみたいな初心者にはレベル高すぎですよね
もう少しググって勉強してみます

2021/05/05(水) 13:52:36.59

うむ
他人に説明するときは5w1hがきほん
だいぶよくなったよな

**デフォルトの名無しさん** (JP 0Hcb-sT2V) · 2021/05/05(水) 14:24:16.43

質問とソースの両方見ても判定条件がよくわからん
超エスパーすると、数字が5個か6個入ってたらスタートか？

2021/05/05(水) 14:29:49.98

>>656
数式じゃダメなの？
数式だと3分で出来たけど

D1=DATE(A1,B1,C1)
D2=IF(DATE($A$2,$B$2,$C$2)<($D1+1),"",$D1+1)
D2を下にオートフィル

2021/05/05(水) 14:33:33.57

Ruby なら、

require 'csv'
require 'date'

input = <<"EOT"
year,month,day
2021,5,31
2021,6,2
EOT

options = { :headers => true } # ヘッダー有り
csv_ary = CSV.parse( input, options )

tmp_from = csv_ary[ 0 ]
tmp_to = csv_ary[ 1 ]

from_day = Date.new( tmp_from[ 0 ].to_i, tmp_from[ 1 ].to_i, tmp_from[ 2 ].to_i )
to_day = Date.new( tmp_to[ 0 ].to_i, tmp_to[ 1 ].to_i, tmp_to[ 2 ].to_i )

Range.new( from_day, to_day ).each{ |day| puts day }

出力
2021-05-31
2021-06-01
2021-06-02

2021/05/05(水) 14:39:31.63

>>664
スレ違い

2021/05/05(水) 14:45:18.78

>>664
Rubyとか消滅しそうな言語で書いてどうしたいの？
https://s3-ap-northeast-1.amazonaws.com/samurai-blog-media/blog/wp-content/uploads/2019/05/66e291d220430021c308db2399680990.jpg

2021/05/05(水) 14:50:07.30

>>666
プログラム板に常駐してるキチガイ知らないの？

2021/05/05(水) 14:52:08.71

>>667
知らないわ
別言語のスレとかそんなに見ない

2021/05/05(水) 15:01:03.66

そもそもいつものあいつだし

2021/05/05(水) 16:38:09.75

みなさんを混乱させてしまいまして
もうしわけありません

2021/05/05(水) 20:02:01.88

VB6やVB.NetでVBA用のDLLビルドしてるんだけど、
DLL側のクラスのメンバ構成に変更加えてリビルドしたら、それを参照しているVBAのプロジェクト側で、いちいちDLL参照解除→DLL再参照を手作業でやらんとアカンの？
面倒くさいんやけど。
って、これまでの流れ見たら、スレチな質問になるんかな。

2021/05/05(水) 22:06:37.83

DLLてデルルでいいの？

2021/05/05(水) 22:10:12.24

ダリラ

2021/05/05(水) 22:14:38.02

>>672
「ダイナミックリンクライブラリ」
昔はﾄﾞｩﾙﾙって勝手に読んでたな

◆QZaw55cn4c (ﾜｯﾁｮｲ bfe9-JAzZ) · 2021/05/05(水) 22:15:56.49

ドロロ

2021/05/05(水) 22:23:14.23

質問した俺が間違っていた。

2021/05/05(水) 22:29:51.86

「質問した俺が間違っていた」
つまりこれをSOM、読み方はデルル

2021/05/05(水) 23:07:25.23

>>671
VB6とかしらんが
COMだよな？ID変わらん限り参照設定変える必要ないと思ったが
ちゃんとレジストリに登録されてないんじゃね

2021/05/06(木) 06:00:24.75

>>678
レジストリには間違いなく登録してる。
例えばVB.Netで実装するDLL側で、公開するクラスのメンバ関数を一つ増やしてリビルドすると、それを参照しているVBA（Excel）実行時にエラーが出る。VBAプロジェクトのコンパイルもできなくなる。
この時、DLL参照設定解除→DLL再参照をやると正常に読み込まれる。
なお上の例では、VB.Net実装のDLL側で増やしたクラスのメンバ関数を消去して元に戻した上で再リビルドすると、DLL参照設定解除→DLL再参照をしなくても、再びDLLが正常に読み込まれる模様ｗ。

2021/05/06(木) 12:12:28.40

>>663
おー、美しいな
Rubyの人は>>665-666みたいな声に全く耳を貸さずに延々と書いてる方で、このスレでもたまに見るのよ
ほとんど荒らしだから話しかけても無駄。丁重に無視して差し上げるのを推奨します

2021/05/06(木) 17:15:18.35

質問です
下記のように重複している項目を除いて合計値を算出するコードを教えてください。
調べたところ連想配列？を使えば良いと書いておりましたが、難しくて使い方がよくわかりませんでした・・・
素人すぎて申し訳ないですが、宜しくお願いします。
https://i.imgur.com/xJ71PFz.png

2021/05/06(木) 17:31:33.29

>>679
軽く試したけど再現しない
たぶん、タイプライブラリの変えてはいけない何か（DispIdが怪しい）が変わってると思われ

これ以上はVB.Netのスレ行け

2021/05/06(木) 18:29:38.21

>>681
SUMIFで良いじゃんと思ったけど重複は除くのか面倒くせぇな

配列にA～Cのデータを代入するだろ？
4列目にりんごなら1、みかんなら2を頭に付けてCのデータを連結した上で数値化して放り込むだろ？
そしたら

For RowCnt = LBound(TgtAry, 1) to UBound(TgtAry, 1)
For RowCtR = Ubound(TgTAry, 1) to RowCnt
If TgtAry(RowCnt, UBound(TgtAry, 2)) > TgtAry(RowCtR, UBound(TgtAry, 2)) Then
SavAry([略]) = TgtAry(RowCnt, [略])
TgtAry(RowCnt, [略]) = TgtAry(RowCtR, [略])
TgtAry(RowCtR,[略]) = SavAry([略])
[省略]
End If
Next
Next

みたいな事をやって配列をソートしてやるだろ？
あとは上から順に見ていけば4列目を無視しても重複が弾けるんじゃねぇかな？

2021/05/06(木) 18:48:02.86

連想配列だと練習問題みたいな課題やね

set ## = createobject("scripting.dictionary")
set @@ = createobject("scripting.dictionary")
for r = 2 to cells(rows.count, 1).end(xlup).row
if not ##.exists(cells(r, 1).value & cells(r, 2).value) then
##.add cells(r, 1).value & cells(r, 2).value
@@(cells(r, 1).value) = @@(cells(r, 1).value) + cells(r, 3).value
end if
next r

for each key in @@
rr = rr + 1
cells(rr + 1 , 5) = key
cells(rr + 1, 6) = @@(key)
next key

今スマホだから試せてないけど、こんな感じでどうだべ？