Excel VBA 質問スレ Part58

**デフォルトの名無しさん** · 2018/11/19(月) 06:47:24.99

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

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

**デフォルトの名無しさん** · 2019/01/19(土) 12:40:58.29

厳密な定義や資格があるわけじゃないんで「プロ」を名乗るのは自由です

**デフォルトの名無しさん** · 2019/01/19(土) 13:14:50.16

>>563
そりゃもちろんあるよ
禁止してる事業所だってある
そもそもOS違いで使えないこともある

**デフォルトの名無しさん** · 2019/01/19(土) 13:21:53.40

>>563
うちの会社は開発専用機にはインストールしないけどそういう機器は自分でセットアップするからなぁ
>>550の言うプロジェクトの度に準備とかはよくわからんな

**デフォルトの名無しさん** · 2019/01/19(土) 13:26:53.56

CADなんかの専用ソフトしか動かさんとか開発機とかそういうのならわかるけど、
このスレで話題にする以上関係ないというか対象外でしょ

**デフォルトの名無しさん** · 2019/01/19(土) 13:35:07.44

普通はイメージで展開して、個別はライセンス認証だけっしょ一台数分

**デフォルトの名無しさん** · 2019/01/19(土) 14:06:33.45

>>558
へえ、ExcelってOSのデフォルト状態で使えるんだ？

**デフォルトの名無しさん** · 2019/01/19(土) 14:46:59.67

WSHだろ常考

**デフォルトの名無しさん** · 2019/01/19(土) 15:22:25.47

>>523-537
例えば、クリップボードでも、Ruby から、powershell コマンドを呼ぶ。
a.rb

str = `powershell Get-Clipboard`
str.encode! Encoding::UTF_8, Encoding::CP932 # UTF_8 へ変換

これをダブルクリックで起動したいのなら、バッチかVBS で起動する。
a.bat

ruby .\a.rb

テキスト処理は、VSCode, Rubyで十分！

**デフォルトの名無しさん** · 2019/01/19(土) 15:49:39.46

>>571
VSCodeは個別にライセンスのある膨大な数のオープンソースソフトウェアの塊であり、
PowerShellを禁止しているような糞組織のPCにインストールすることは不可能
RubyもライセンスにGPLの文字を見つけた途端に情シスが卒倒するレベルで全くもって論外

**デフォルトの名無しさん** · 2019/01/19(土) 21:28:25.59

プロさんてバカしかおらんの？

**デフォルトの名無しさん** · 2019/01/19(土) 21:35:07.05

所詮自称プロだしw

**デフォルトの名無しさん** · 2019/01/19(土) 21:40:37.46

>>574
開きなおるなバカ

**デフォルトの名無しさん** · 2019/01/19(土) 22:05:47.19

>>575
開き直り？
嘲笑って意味わかる？ w

**デフォルトの名無しさん** · 2019/01/19(土) 22:06:05.61

excelってVBAからpythonに変わるっていってなかったっけ？

◆QZaw55cn4c · 2019/01/19(土) 22:08:25.92

>>577
いってるだけ、今のところは

**デフォルトの名無しさん** · 2019/01/20(日) 00:48:58.52

dictionaryに格納してるItemを検索して、存在してればKeyを返却する方法が知りたいのだけど、ループさせてヒットしたら値を出す方法以外でfind的な一発でポンと返す記述の仕方はない？

◆QZaw55cn4c · 2019/01/20(日) 01:04:30.85

>>579
Item 間に順序関係があればそれを利用して二分探索を適用できる、無論、記述はループチェックに比べて量が多くなる

**デフォルトの名無しさん** · 2019/01/20(日) 03:54:11.74

>>579
一行で書きたいということなら、文字列ならワークシート関数Matchで検索できます。
ただ存在しなかった場合はエラーが返るので例外処理か事前に調べておく必要があります。

例）
Dim map As Dictionary
Set map = New Dictionary
map.Add "みかん", "橙"
map.Add "りんご", "赤"
map.Add "さくらんぼ", "赤"
map.Add "ぶどう", "紫"

On Error Resume Next

Debug.Print map.Keys(WorksheetFunction.Match("赤", map.Items, 0) - 1)
'りんご
Debug.Print map.Keys(WorksheetFunction.Match("白", map.Items, 0) - 1)
'エラー

On Error GoTo 0

個人的には普通に関数作った方が使いやすいと思います。

**デフォルトの名無しさん** · 2019/01/20(日) 08:04:01.23

>>439
Excel.Application.Onkey で最優先ショートカットキーにできる
次いで.macroOptionsの古いほうが動くよ

**デフォルトの名無しさん** · 2019/01/20(日) 08:25:03.17

配列とかコレクションに対してSQLが使えればいいんだけどな。
matchやvlookupより速いんだけど、いちいちシートとかcsvに書き出さなきゃならん。

**デフォルトの名無しさん** · 2019/01/20(日) 09:17:44.39

そこまで行くとAccessのお仕事を食っちまう

**デフォルトの名無しさん** · 2019/01/20(日) 09:22:18.21

Access VBAでやればいいじゃん

**デフォルトの名無しさん** · 2019/01/20(日) 09:32:11.24

>>582
おっと、回答いただけるとは。
onkeyだと、activeworkbookだろうが、thisworkbookだろうが、後定義したほうが上書き、後勝ちしません？
active側に定義されたショートカットがそれぞれ反応してくれると嬉しいのですが。

**デフォルトの名無しさん** · 2019/01/20(日) 10:54:01.49

>>583
MSにExcelでC#使えるようにしてくれ～
って要望をガンガン出せばお前の望みが叶うかも知れない

**デフォルトの名無しさん** · 2019/01/20(日) 13:02:37.66

>>580,581
ありがとう
Itemには順序関係ないから二分探索は出きなさそう
worksheet関数は完全に意識無かったので見た瞬間にあぁ！その手があったか！と目からウロコでした

**デフォルトの名無しさん** · 2019/01/20(日) 13:13:34.11

C#スクリプトってOSSで軌道に乗っちゃってるからExcelの処理系として採用されることはないと思うぞ
同じものをClosedで再発明するってのも馬鹿馬鹿しいしな

強力な言語を使いたいならその言語を主としてExcelをコントロールすればいい
それで十分だ
わざわざExcelに乗っける必要性は薄い

**デフォルトの名無しさん** · 2019/01/20(日) 13:31:13.08

再発明とか意味わからん w

**デフォルトの名無しさん** · 2019/01/20(日) 16:43:57.95

この場合の再発明と言われれば車輪の再発明を連想出来ないのはかなり緩いんだろう

**デフォルトの名無しさん** · 2019/01/20(日) 17:26:38.62

文脈的には再発明と言うより再実装かな

**デフォルトの名無しさん** · 2019/01/20(日) 17:32:05.81

いや、車輪の再発明はいいとして何を再発明するんだよって話
C#処理系のソースライセンス見てないけどMSが自社製品に使えなくなるようなライセンスにはなってないだろうし（なってたらVisual Studioの有償版とか売れなくなる）
普通にExcelに組み入れるだけだろ

**デフォルトの名無しさん** · 2019/01/20(日) 17:45:17.54

>>593
メンテナンスのコストを甘く見すぎ
Excelに入れるなら最低でも以後10年は完全な互換性を維持し続けなきゃいけないわけ
今メインストリームのC#環境を入れるなら.NET Coreを組み込むことになるだろうけど、
.NET Coreって完全なサイドバイサイドを前提にガンガン破壊的変更をぶっ込んでいくスタイルだから、
Excelのバージョンアップのときに単純に.NET Coreのバージョンを上げるわけにはいかなくて、
Excel専用のブランチを作って継続的にメンテしていかざるを得ないの
それは実質的には新たに.NETの兄弟分を作って独立して育てていくことに他ならず、多大なメンテナンスコストを生じる上、
.NET エコシステムの分断を生むことになる
そんな馬鹿げたことをするくらいなら普通に.NET Coreを直接使わせた方が遥かにマシだろう

**デフォルトの名無しさん** · 2019/01/20(日) 17:59:54.91

>>594
> Excelに入れるなら最低でも以後10年は完全な互換性を維持し続けなきゃいけないわけ
それVBAの開発担当者にも言ってくれよ w

**デフォルトの名無しさん** · 2019/01/20(日) 18:07:02.56

>>595
煽りはいいから直近10年でVBAに対して行われた破壊的変更を具体的に挙げてくれよ
当たり前だが不具合の話はしてないぞ？

**デフォルトの名無しさん** · 2019/01/20(日) 18:28:52.57

>>596
いや破壊的かどうかは別にしてもVBAも色々機能追加とかされてるだろ
VBAの機能追加をやめてそのリソースをC# for Officeに割くだけだよ
そもそもMac版はともかくWindows版のOfficeなら.NET Coreじゃなくて.NET Framework上に構築するだろうしな

**デフォルトの名無しさん** · 2019/01/20(日) 18:31:24.08

みっともないからいいかげん止めや似非プロさんの一人語り
そもそも出鱈目やってバレバレのプロ風の話して誰に対してマウント取りたいねんw

**デフォルトの名無しさん** · 2019/01/20(日) 18:46:13.28

>>597
Full .NET はメンテナンスモードに入ったよ
4.8を最後に、今後大きな機能追加はない
残念ながら、今入れても新たに時代遅れのゴミが増えるだけだ

**デフォルトの名無しさん** · 2019/01/20(日) 20:02:31.83

>>599
逆に都合がいいじゃん
.NETFrameworkは簡単に廃止できないから君が大事にしてる互換性も保ちやすいしね

**デフォルトの名無しさん** · 2019/01/20(日) 22:44:30.32

A4用紙に上から4件ずつ異なるデータを入力して、
印刷したいのですが、どうすればいいか教えて下さい。
データ数は日によって異なり、30件～50件程度あります。
1ページ目に1～4、2ページ目に5～8・・・という感じです。
うまく説明出来なくてすいません。
4つデータを入力して印刷したら次、っていう感じの
ループ処理のコードのサンプルなどありましたら教えてください。

**デフォルトの名無しさん** · 2019/01/20(日) 22:48:25.28

>>601
改ページを設定すればいいだけじゃね？
https://kosapi.com/post-3244/

**デフォルトの名無しさん** · 2019/01/20(日) 22:55:12.40

>>602
ありがとうございます。

**デフォルトの名無しさん** · 2019/01/21(月) 09:00:45.75

このループw
他言語を推奨してる奴らには馬鹿しかいない。

ExcelVBAのスレなんだからExcelが動いてるのが大前提なんだよ。
そこへノコノコ乗り込んで来てOfficeインスト―ルとか言ってる馬鹿は滑稽。

テキスト処理とかもアホ丸出し。
Excel関係無いなら、そもそもVBAでやる必要全く無い。
そして全くのスレ違い。

**デフォルトの名無しさん** · 2019/01/21(月) 09:04:27.40

その後のC#やPythonを組み込んでくれって話はどうでもいい。
入って来たらそれで組むだけだ。

**デフォルトの名無しさん** · 2019/01/21(月) 10:06:31.18

終わった話にノコノコ乗り込んでくるウスノロかよww

**デフォルトの名無しさん** · 2019/01/21(月) 12:17:14.05

言われてみればVBAの破壊的仕様変更ってまったく無いよな。
オブジェクトを省略してて挙動が変わったくらいならあるけど。

64bit対応くらいじゃ無いか？

**デフォルトの名無しさん** · 2019/01/21(月) 16:29:48.24

LongPtr型とPtrSafe宣言くらいか

**デフォルトの名無しさん** · 2019/01/21(月) 20:06:20.50

>>607
ただパッチいれたら動かなくなったことはあった

**デフォルトの名無しさん** · 2019/01/21(月) 20:57:18.88

2007の時、グラフ周りが軒並み動かなくなったことはあったな。

**デフォルトの名無しさん** · 2019/01/21(月) 22:36:48.74

改ページ位置の誤検出がヒドイ。
一旦、改ページプレビューにしてから戻せば大丈夫ですとか、何だよそれ。

**デフォルトの名無しさん** · 2019/01/21(月) 23:15:39.37

64bitはスクリプトオブジェクトがないとかは？

**デフォルトの名無しさん** · 2019/01/22(火) 00:07:05.98

よろしくお願いします。
あるシートのコピーだけを新規の別ファイルとして保存したいのですが、

1　dim fn as string
2　fn="c:\*****\集計表.csv"
3　ThisWorkbook.Worksheets("集計表").Copy
4　Application.DisplayAlerts = False
5　ActiveWorkbook.SaveAs fileName:=fn, FileFormat:=xlCSV
6　ActiveWorkbook.Close

このように書きました。普通だと問題なくいっているのですが、この処理をしている途中で、
使用者がガチャガチャとマウスをイジり、いくつも開いているうちの適当なブックをアクティブにしてしまった
りなどしてると、想定通りの動作をしなくなってしまいます。
3行目でコピーしたときに、コピー先のその新しいブック自体を名指しできれば、いいのではないかと
思うのですが、いかがでしょうか？
「ActiveWorkBook」ではなく、ちゃんと名指しする方法ってないでしょうか？

◆QZaw55cn4c · 2019/01/22(火) 00:33:28.43

いろいろな事情があって、ExcelVBA に専心することになりそうです…Excel VBA から任意の win32api を呼び出すことは可能ですか？

**デフォルトの名無しさん** · 2019/01/22(火) 00:44:54.38

>>613
処理中いじるなと表示させたフォームをモーダルにして処理終わるまで×ボタン消しとくとかは？

**デフォルトの名無しさん** · 2019/01/22(火) 02:38:45.16

activeじゃなくてもsaveできるだろ

**デフォルトの名無しさん** · 2019/01/22(火) 05:03:39.16

>>613
方法１：新規ブックはWorkbooksコレクションの末尾に追加されるはずなので、Workbooks (Workbooks.Count)で参照できます。

方法2：先に新規ブックを作っておけば参照出来ます。
余計な新規シートが触られる不安があるなら削除する必要があります※
例）
With Workbooks.Add
　 Dim fn As String: fn = "c:\*****\集計表.csv"
Worksheets("集計表").copy Before:=.Worksheets(1)
Application.DisplayAlerts = False

Dim elem As Worksheet '※
For Each elem In .Worksheets
If elem.Name <> "集計表" Then elem.Delete
Next elem

.SaveAs Filename:=fn, FileFormat:=xlCSV
.Close
End With

方法3：集計表なので数式が入っていると思いますから、Copy時のCalculateイベントでシート自身に保存させます。
例）
Private Sub Worksheet_Calculate()
If Worksheets.Count > 1 Then Exit Sub 'Copyされた単一シートか判定
Dim fn As String: fn = "c:\*****\集計表.csv"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=fn, FileFormat:=xlCSV
ThisWorkbook.Close
End Sub
上記を集計表シートのシートモジュールに書き込むと、Worksheets("集計表").Copy だけで自動的に保存されます。

**デフォルトの名無しさん** · 2019/01/22(火) 05:11:20.49

Worksheets("集計表").copy
↓修正
ThisWorkbook.Worksheets("集計表").Copy 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)

**デフォルトの名無しさん** · 2019/01/22(火) 08:07:57.46

>>614
トリッキーな技が技があるかもだけど「任意の」となると単独では無理と思った方がいい

**デフォルトの名無しさん** · 2019/01/22(火) 08:14:29.14

>>614
任意ってのはどういう意味?
動的に呼び出したいってこと?

それだったらかなり高度になる。

**デフォルトの名無しさん** · 2019/01/22(火) 12:45:48.79

declareで追加するだけでしょ
ぐぐればサンプル大量に出てくるし
高度でもない

**デフォルトの名無しさん** · 2019/01/22(火) 13:00:35.87

厚生省の中の人がプログラムで不正するように描いてたのってExcel?

**デフォルトの名無しさん** · 2019/01/22(火) 14:06:11.20

あれはファイルの更新日をいじっただけだったはず（開いて上書き保存かもしれんが）

**デフォルトの名無しさん** · 2019/01/22(火) 16:11:53.74

関数間違えたって報道されてなかったっけ

**デフォルトの名無しさん** · 2019/01/22(火) 20:39:31.87

>>621
それは静的に呼び出すということ。

動的の場合は、LoadLibraryとかGetProcAddressとかを使う話になる。

昔、調べまくってサンプル作ったことあるけど、何でも自由に動かせるものじゃなかった。
というより殆どのAPIは動かなかった記憶が。

**デフォルトの名無しさん** · 2019/01/22(火) 20:52:29.66

LongPtr型とPtrSafe宣言ってそれぞれどういうときに使うんですか？

**デフォルトの名無しさん** · 2019/01/22(火) 20:59:55.76

>>626
どっちも64bitでAPI呼ぶ時に使うけど、ほかの使い方は知らん

**デフォルトの名無しさん** · 2019/01/22(火) 22:38:47.81

Excelはどのくらいポリゴン表示出来るの?

1. PS並み
2. PS2並み
3. PS3並み
4. PS4並み

**デフォルトの名無しさん** · 2019/01/23(水) 00:32:34.72

5. PS5並み

**デフォルトの名無しさん** · 2019/01/23(水) 00:54:57.75

今のPCならオートシェイプで3DレンダリングしてもPS1には楽勝だろう

**デフォルトの名無しさん** · 2019/01/23(水) 01:22:36.39

>>617
ありがとうございました！

**デフォルトの名無しさん** · 2019/01/23(水) 03:00:22.02

http://blog.livedoor.jp/genkimaru1/archives/2095759.html

**デフォルトの名無しさん** · 2019/01/23(水) 13:19:24.15

闘神伝のエリスのシースルーは再現可能ということですね。

**デフォルトの名無しさん** · 2019/01/23(水) 13:59:08.25

>>625
馬鹿には無理

**デフォルトの名無しさん** · 2019/01/23(水) 15:57:45.44

もともと「任意の」APIだったのが途中から動的に呼び出す話になってる

**デフォルトの名無しさん** · 2019/01/23(水) 16:19:34.41

回答者の連中が勝手に条件を考えて話をややこしくするのも
質問者がそれを修正しようとしないのもこのスレのお約束

**デフォルトの名無しさん** · 2019/01/23(水) 17:37:28.67

だいたいDeclareなしに呼び出さなきゃいけない要件なんてあるか？
候補となるAPIの範囲なんてどう考えても限られてるだろう。
ジグネチャ情報ごと外部からもらうのか？

**デフォルトの名無しさん** · 2019/01/23(水) 21:06:47.46

>>637
プラグインdllを呼び出すような要件だな。
プラグインdllを指定のフォルダに入れてもらうようにしておいて、呼び出し方はこちらで決めておく。
指定フォルダからdllファイルを列挙して、ファイル名と、決められた通りの呼び出し方で呼び出すやり方になるからDeclareは使えない。

まあ、めったに無いだろう。

>>635
「任意」の意味がよく分からん。
動かしている最中に「任意」のAPIを呼び出したいという意味かと思った。
それともcdecl呼び出しのAPIは基本的に出来ないっていうような話をすれば良かった?
まあ、DispCallFuncでゴニョゴニョで出来るんだけども。

**デフォルトの名無しさん** · 2019/01/23(水) 22:47:22.53

VBAでは（トリッキーなことしないと）作れない引数型のAPIのこととかじゃね？

**デフォルトの名無しさん** · 2019/01/24(木) 09:54:58.66

初歩的かもしれない質問でお恥ずかしいのですが、知恵をお貸しいただきたいです。

1年の中で最大の数値が含まれる日付の値全てを別シートに貼り付けるというVBAプログラムを作成したいです。
また、この場合の1日とは前後1日分ではなく、その時間が含まれる1日の事です。

例えば、30分毎の売り上げ金額が入力されたexcelシートが1年分あるとします。

1年間の中で最大の売り上げ金額が、2018/2/14 12:30に存在すると仮定します。

その場合に、2018/2/14 0:00～ 2018/2/14 23:30
の値を抜き出し、別シートに貼り付けるというプログラムを作成したいです。

データの形は、

2018/2/14 0:00 300
2018/2/14 0:30 200
・
・
・
2018/2/14 23:30 500

のようになっています

自分でも一通り調べてみたのですが、どうしてもしっくり来るものが見つかりませんでした。

どうぞよろしくお願い致します。

**デフォルトの名無しさん** · 2019/01/24(木) 12:17:49.04

>>638
おまえは頭が悪くて他人にものを教えられる様な人間やない
ちゅう事をそろそろ思い知った方が幸せになれるで

**デフォルトの名無しさん** · 2019/01/24(木) 12:27:34.76

>>640
問題を分割して考えよう

1. 最大の値を持つ行（と言うか日時）を取得する → 最大日時とする
2. 以下を最初の行から最後の行までループする
2.1 行が持つ日時と最大日時の日付部分だけ比較する
2.2 日付部分が合致してたらコピーする

で、どこがわからないの？

**デフォルトの名無しさん** · 2019/01/24(木) 12:37:36.92

調べるだけで頭を使っていないのだからわかるわけない
ゆとり教育世代にありがち

**デフォルトの名無しさん** · 2019/01/24(木) 12:38:49.74

>>641
自分が頭が良いということを全く証明もせずに絡んで来られても困るんだがw

こういう絡み方で頭悪そうだとは思うけどね。

**デフォルトの名無しさん** · 2019/01/24(木) 12:55:51.34

実にバカらしい困り方やね

**デフォルトの名無しさん** · 2019/01/24(木) 13:12:21.15

>>643
マウント取りたいだけの老害
なんの生産性もないからやめた方がいいよ

**デフォルトの名無しさん** · 2019/01/24(木) 13:13:31.30

hoge.dll だけあるときに hoge.def を作りたいんだけどどうすればいい？

**デフォルトの名無しさん** · 2019/01/24(木) 13:38:55.05

>>646
悔しかったか、ゆとり世代

**デフォルトの名無しさん** · 2019/01/24(木) 14:52:02.40

>>642
おっしゃる通り１つずつこなしていきたいと思います。

最大値を取得する所まではなんとかなりましたが、最大値が入っているセルの左からoffsetによって値の取得をしようとしています。しかしエラーが出てしまい(91エラー)詰まっています。

**デフォルトの名無しさん** · 2019/01/24(木) 14:57:02.89

>>647
defファイルってビルドの時に使うもんだけど？

**デフォルトの名無しさん** · 2019/01/24(木) 15:26:49.03

>>649
馬鹿過ぎだろ
もっと悩んでから来い、ゆとり

**デフォルトの名無しさん** · 2019/01/24(木) 15:36:46.38

罵倒芸術？

**デフォルトの名無しさん** · 2019/01/24(木) 15:53:26.03

>>651
そうします
ありがとうございます

**デフォルトの名無しさん** · 2019/01/24(木) 16:52:58.88

>>651
お前なにしにきてんだここに。
最低だな、人として。

**デフォルトの名無しさん** · 2019/01/24(木) 17:31:43.23

>>642で答えを教えてもらっても理解できないような頭の悪さが問題だろう。こんな頭の悪い奴はプログラムするなと俺は思う。

**デフォルトの名無しさん** · 2019/01/24(木) 17:52:28.54

ほー
>>655くらいの天才になると最初からプログラム完璧に理解できたらしいな
凄い凄い

>>653
めげずに頑張ってくれよ
だれでも最初は初心者だ

**デフォルトの名無しさん** · 2019/01/24(木) 18:00:27.00

VB6で作ったADOを使ってデータベースからエクセルシート名をComboBoxに入れるソフトがあって、それをwindows10で動かすとエラーで止まるんだけど原因分かりますか？
シート名が一文字の時だけエラーが出るのは分かったけど何か理由だと思いますか？

**デフォルトの名無しさん** · 2019/01/24(木) 18:15:16.93

>>657
ここが何のスレだかわかってるか、馬鹿

**デフォルトの名無しさん** · 2019/01/24(木) 18:58:14.37

>>640
その日付でアドバンスフィルタ。
検索する側の日付と、検索される側の日付は、
何型でもいいから統一する。
LeftやMidと"/"を組み合わせとか、
Format(日付, "yyyy/mm/dd")とか適当に。

**デフォルトの名無しさん** · 2019/01/24(木) 19:06:26.31

アドバンスフィルタが何なのかわからなかったら、
フィルタオプションの設定の使い方を覚えて、
マクロの自動記録をするといい。

ちなみに、ループより激速だから。

**デフォルトの名無しさん** · 2019/01/24(木) 19:32:10.91

>>640-642
Ruby で作った

# 各行は空白で区切った、3列の配列。
# 全行は各行の配列、つまり配列の配列
all_rows = File.readlines( "input.txt" ).map( &:split )

# row[ 2 ]、金額が最大数値の行を求める
p max_row = all_rows.sort_by { |row| row[ 2 ].to_i }.last

# 全行からrow[ 0 ]、同じ日付の行だけを集める
p all_rows.select { |row| row[ 0 ] == max_row[ 0 ] }

**デフォルトの名無しさん** · 2019/01/24(木) 21:13:39.94

>>661
ここが何のスレだかわかってるか、馬鹿

**661** · 2019/01/24(木) 21:19:22.76

>>661
修正

# row[ 2 ]、金額が最大数値の行を求める
>p max_row = all_rows.sort_by { |row| row[ 2 ].to_i }.last
p max_row = all_rows.sort_by { |row| row[ 2 ].to_i * -1 }.first

last だと、最後まで配列を作ってしまう。
一方、first では最初の1つだけを求めるから、速い