Excel VBA 質問スレ Part76

2022/05/01(日) 02:23:41.78

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること

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

次スレは>>980が立てること
無理なら細かく安価指定

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

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

2022/07/04(月) 17:17:05.04

>>907
> 2.マクロだけ入れたxlsmを配布
> 加工したいxlsxファイルと同時に開いてもらってマクロを実行してもらう。
> 手間が増える。

これでいい。手間って配布の手間のこと？
共有サーバーのどっか特定の場所に読み取り専用にしたxlsmファイル置いといて
ここのマクロファイル使って作業してくれって告知だけすればいい
不具合が見つかって修正した場合も同名ファイルで上書きするだけだから楽だと思うよ

2022/07/04(月) 17:57:33.89

俺は上書き保存が怖いので.xltmを渡してる

2022/07/04(月) 18:50:46.28

>>909
リードオンリーで開くにしとけばいいだけじゃね？

2022/07/04(月) 19:05:52.33

>>908
Excelファイル2つ開いてマクロ実行して閉じるっていうのが操作的に手間かなと思ったけど、共有フォルダに置いといてそれを開いて使ってもらうのは無難に使いやすそう。ありがとう。

後出しで申し訳ないんだけど、うちの会社のPCがウイルス対策だとかで毎日起動時にマクロ有効化設定を強制オフ(有効化メッセージ出ずにオフになるやつ)にされるせいで、トラストセンターから毎日有効化設定してね、っていう雑な仕組みになってるんだ。
自身は設定オンにするVBSなりbatで対応してるけど、他の人だとExcel開いてトラストセンターで設定変更の事前動作も必要に。

アドインやVBSなら有効化しなくても動作するんだけど、そうなるとドラッグドロップで動作するVBSだと使う側の手間は省けるだろうか。

**デフォルトの名無しさん** (ｽﾌｯ Sdaa-A+Eo) · 2022/07/04(月) 19:58:33.04

1. xlsmを共有フォルダに保存
2. 読み取り専用で開く
3. xlsm上の別シートに出力結果をVBAで作成
4. 出力結果シートを新規ブックにVBAで移動 (ws.move)
5. 新規ブックをダイアログボックスで保存させる

毎回これでやってる

2022/07/04(月) 22:40:20.14

>>911
この環境下でも
（セキュリティを無効化して対象のxlsmを開く）VBSなりbatファイルの実体を共有に置いて
そのショートカットだけを配布がベストだと思う

> ドラッグドロップで動作するVBSだと使う側の手間は省けるだろうか
組織内のユーザーのリテラシーにもよるけど、
xlsmでもWorkbook_Openで即ファイルピックアップダイアログ開かせれば大差ないし、
なにより保守がしんどいでしょ

もし複雑な加工内容への変更依頼がきたら？
あるいは今後別のマクロの作成依頼が来て、それもすべてVBSで配布しろと言われるかもしれない

VBEもIDEとしてはアレだけど、
ブレークポイント置けないDebug系メソッドないモジュール分割気軽にできないVBSで開発し続けるの何倍も大変だと思うよ

2022/07/05(火) 01:05:42.67

>>912
> 3. xlsm上の別シートに出力結果をVBAで作成
> 4. 出力結果シートを新規ブックにVBAで移動 (ws.move)
新規ブック作ってそこのシートに直接結果を出力した方が楽じゃね？

2022/07/05(火) 07:41:15.60

>>907
VBSを配布して、そこに処理対象ファイルをドラッグドロップしてもらうのが、ユーザ側としては１操作で完結して使いやすいと思う
ユーザに慣れない操作を押し付けて手間を増やしたら本末転倒だしね

ところで「加工」て何するの？
大部分が編集不可の共有ひな型ブックならともかく、人間が好き勝手にいじったブック中から「加工」対象を特定するのは大変だろ

**デフォルトの名無しさん** (ｽﾌｯ Sdaa-A+Eo) · 2022/07/05(火) 08:39:26.47

別にVBSにこだわる必要は無い
Powershell でも良いでしょ

2022/07/05(火) 09:04:16.75

>>915
加工についても恥ずかしながら前スレで相談させてもらって一応解決することができました。
・web上からDL出来る名簿がpdf
・pdfをacrobatでexcel変換するとセル位置や結合が不揃い
・目的は名簿データをそれぞれ横一列のデータにしたい

vbaにて処理は出来るようになったけど、他の人が使いたいという意見があり、今回配布手段についてご相談させてもらった次第です。
https://i.imgur.com/XgHnIpg.png
https://i.imgur.com/cXouZTg.png

2022/07/05(火) 09:33:47.87

・WebからDLするドキュメントをCSVにでもしてもらえるよう社内調整する
が一番ラクで確か

2022/07/05(火) 11:30:39.29

最近、Alt+F11でVBEを開くと、アドインのコードが表示されるようになったんだけど、
仕様が変わったのか、表示されるような設定にしてしまったのか。。
皆さんは表示されますか？

2022/07/05(火) 11:43:19.49

上の人間の指示通りにするので悩まない

2022/07/05(火) 11:57:42.97

>>919
されますよ。

2022/07/05(火) 12:00:27.76

>>921
毎回アドインのコードが表示されているウィンドウを閉じていますか？
それとも、どこかの設定を変更すると表示されなくなりますか？

2022/07/05(火) 12:47:27.21

>>917
成程。流れ見てないけど、ここにマトモに助けてくれる人がいるというのは意外（失礼ｗ）
acrobatによるpdfのexcel変換過程で色んな気まぐれ要素によりフォーマットが乱れそうな予感がするが、それを吸収するコーディング努力の継続こそスキル上達の早道
頑張って下さい

2022/07/05(火) 19:57:34.88

>>922
スマン、何かの設定いじったら直った記憶
覚えてなくてすまん

2022/07/06(水) 18:47:05.73

ちんぽじ

2022/07/06(水) 19:59:54.47

2023でるかもね

2022/07/06(水) 21:31:49.12

VBAｘSeleniumでchromeはオプション設定が出来るけどedgeは出来ないと思ってたんだが、出来るんだな。
ネットでもうまくいかないていう情報が多い。

Chromeの場合
Driver.AddArgument ("user-data-dir=" & fso.BuildPath(CurrentDirectory, "chrome_vba"))

Edgeの場合
driver.SetCapability "ms:edgeOptions", "{""args"": [""user-data-dir=" & Replace(fso.BuildPath(CurrentDirectory, "edge_vba"), "\", "\\") & """" & _
"] }"

まあjsonで渡してるんだが、VBAてjsonてこんな風にデータベタ打ちしか方法がない？

2022/07/08(金) 15:51:01.23

ダウンロードしたVBAマクロ入りファイル、デフォルト無効化が取り消し。MicrosoftがOfficeの仕様を再度変更
https://pc.watch.impress.co.jp/docs/news/1423419.html

2022/07/10(日) 15:06:01.33

えぇ((( ；ﾟДﾟ)))恐い

2022/07/10(日) 16:22:28.20

ダウンロードして使うことがないからどっちてもええよ

2022/07/11(月) 01:16:29.22

コロコロ変わるのは昔から
また変更あるぞ

2022/07/11(月) 01:40:13.99

インターネット経由がどうたらというのは、古いマイクロソフトと新しいマイクロソフトの内部抗争にすぎない。

2022/07/11(月) 04:21:24.13

ああゆう最先端の企業でも老害が威張り散らしているのかな

2022/07/11(月) 04:31:29.20

ビルゲイツ派はAzue妨害派だろうな

2022/07/11(月) 09:41:27.04

大口の客がゴネたんだろう
VBAがいつまでも使えるのもそういう方々のお陰なのだからVBAer達は感謝しないと

2022/07/11(月) 18:14:40.24

分かったよ

2022/07/13(水) 15:11:11.33

客先から毎日送られてくるpdfに対し、特定の部分だけを抜いてexcelに出すというものを作りたいです

流れとしてはwordで開いてコピペ→そこから必要な部分だけ整形
という流れで考えており概ねできたのですが、pdfをwordに落とした時に文章がそのまま文章でコピーされる時と1行ずつテキストボックスやら画像やらでコピーされる時がありうまく実用化出来ません

上記か、あるいはその他の方法でも良いので安定的にコピーする方法は無いでしょうか？

ちなみにpdfは定型フォーマットに記載された日報のような形式で、手動なら文字はそのままコピペできます、フォーマットはいつも同じですが中の文章は行数が日により異なります

2022/07/13(水) 17:04:46.28

>>937
客先にテキストでもくれと依頼すればいいだろ

2022/07/13(水) 17:32:17.47

pdfを書き換えたい訳じゃなくて中身を読みたいだけなら
pdfreaderを使うのが一番楽

2022/07/13(水) 18:07:17.76

PDFは人間のため、印刷のために開発された仕組み
データの順番がどんだけ変わっても人間の目には同じに見えるようになってるから、中身をプログラムで自動的に取り出すのには向いてない

厳密には不可能じゃないとしても、ものすごく大変
できるだけ別の方法を考えた方がいい

2022/07/13(水) 18:39:04.67

そのPDFが紙からスキャンしたものじゃなく文字データとして残ってるなら、ワード経由しなくてもacrobatreaderで開いてコピペするのが早いとは思う。

PDFをExcelに変換する手段があるなら、変換してマクロで必要な所を抽出できそうだけど元ファイル次第では難しいか？

2022/07/13(水) 19:16:11.37

GOOGLEドライブに入れてドキュメントで開けばOCR使えるからそれを試してみては

2022/07/13(水) 19:23:52.41

pdfってhtmlのようなテキストだったりする、意外と知られていない？

2022/07/13(水) 19:30:34.74

>>937
パワークエリ

2022/07/13(水) 19:51:06.77

>>943
中身はテキストなんだけど、データの順番が入れ替わっても同じ見た目の文書が再現できる
だから人間から見て正しい順序で取り出すのが大変
いっぺん出力してOCRした方が早いぐらい

2022/07/13(水) 20:29:31.07

>>943
ここの連中にはよく知られている
pdfの解析はめちゃくちゃキツイ

2022/07/13(水) 20:29:35.01

>>943
馬鹿なら黙っていればいいのに
htmlじゃねーよ

2022/07/13(水) 20:34:43.23

>>947
「のような」って書いてる
マークアップされてるって事ぐらい分かるでしょ

2022/07/13(水) 20:40:59.71

>>948
マークアップじゃないし
馬鹿は黙っていればいいのに

2022/07/13(水) 20:55:32.87

馬鹿じゃねーよ
テキトーに言ってるだけだ

2022/07/13(水) 21:36:26.72

バイナリファイルをマークアップされてるって表現する人はじめてみた

2022/07/13(水) 22:51:54.33

とはいっても取引先からのデータは大半がpdfだからなぁ

**デフォルトの名無しさん** (ｽﾌｯ Sd43-TkQT) · 2022/07/13(水) 23:54:44.21

そんなもん会社によるだろ
言えばExcelやCSVで送ってくれるとこも普通にある

2022/07/14(木) 00:12:44.49

マーキングするために会社の上司が部下の女に触りまくってるじゃん

2022/07/14(木) 07:26:28.96

技術力だけで生きていくか、コミュ力も高めて生きていくかの「差」が今回の質問で明らかになったね

今回の場合、コミュ力あるやつならとっくに客先はpdfとは別にcsvとかテキストファイルを送る方向で動いてるよ

俺はコミュ力を高めていく
お前らは今後も無理難題をひたすら解決する技術力を高めていけw

2022/07/14(木) 08:00:06.43

今回のデータをcsvで頂戴したく存じます

コミュも何も一行メール送るだけでいいだろう
むしろこれ出来ないなら何もできんだろ

2022/07/14(木) 08:06:18.41

社内規定で社外に送信するデータはPDFとなっておりますので、ご期待に沿えず申し訳ありません。

**デフォルトの名無しさん** (JP 0H2b-beHi) · 2022/07/14(木) 08:12:38.64

そういうコミュニケーションとれない奴は、
仕様を決めるときにもコミュニケーションとれないから思い込みで作るまである

2022/07/14(木) 08:14:11.08

根本解決を目指すアドバイスはいいけど、どんなデータかも質問者と客先の状況も分からないのに、データ貰えば解決(ﾄﾞｬｧは乱暴じゃない？

少なくともwordで開いても文字認識がまばらだったりするって時点で、綺麗な様式から出力したデータじゃないのは確かだし、質問者がそういう回答を求めてないとは思わない？

2022/07/14(木) 08:21:48.07

>>959
OCRか元データもらう以外の解決策があるなら、かなり聴きたい

2022/07/14(木) 08:24:09.60

OCRのがマシって回答出てるだろ
現実から目をそらすな

2022/07/14(木) 08:49:50.07

最初に「CSVなどで依頼しても無理でした」とか書いてくれれば無駄な争いは避けたのかもな

2022/07/14(木) 10:19:52.64

>>947
++
>>949
++
>>951
ほんそれ

2022/07/14(木) 21:34:12.70

A列のセルに列挙された複数単語の商品名から重複した単語のみを除くことは可能でしょうか？

A
1 RED BLUE APPLE
2 RED BLUE BANANA
3 RED BLUE GREEN ORANGE
4 RED BLUE YELLOW WHITE GRAPE
5 RED BLUE WHITE CHERRY

↑これらのデータを↓のように整形したいです。

B
1 APPLE
2 BANANA
3 GREEN ORANGE
4 YELLOW GRAPE
5 CHERRY

「RED BLUE APPLE」は同一セル内にスペースで区切られて入力されています。
データ量は1回あたり100行程度になります。セル内の単語、単語の数は毎回異なります。

ご教示いただけますと幸いです。よろしくお願いいたします。

2022/07/14(木) 21:34:41.90

6進数？を通常の時刻表記に直す方法教えてください。
例）1.3→1:30
　　2.45→2:45

2022/07/14(木) 21:37:17.58

>>965
A1に時間が入っているとして
=TIME(INT(A1),A1-INT(A1),0)

**デフォルトの名無しさん** (US 0Ha3-TUM9) · 2022/07/14(木) 21:41:07.21

>>955
コミュ力の定義はなんですか？典型的なインデックスは何ですか？

2022/07/14(木) 21:44:41.57

>>964
可能です。
はい、次。

**964** (ﾜｯﾁｮｲ 2302-ws48) · 2022/07/14(木) 22:56:36.99

>>968
ご回答いただきまして誠にありがとうございます。

2022/07/14(木) 23:23:30.65

>>964
自分ならだけどこんな感じかと　Mainのループは最大行数を取得してくれ　_をスペースに置き換えてくれ
Sub_Main()
____Dim_i_As_Long
____For_i_=_1_To_5
________Dim_a_As_String
________a_=_Cells(i,_1).Value
________Dim_j_As_Long
________For_j_=_1_To_5
____________If_i_<>_j_Then
________________a_=_CutWord(a,_Cells(j,_1).Value)
____________End_If
________Next
________Cells(i,_2).Value_=_a
____Next
End_Sub

2022/07/14(木) 23:23:50.53

Function_CutWord(a_As_String,_b_As_String)_As_String
____Dim_aa()_As_String
____aa_=_Split(a,_"_")
____Dim_bb()_As_String
____bb_=_Split(b,_"_")
____Dim_c_As_String
____c_=_""
____Dim_i_As_Long
____For_i_=_LBound(aa)_To_UBound(aa)
________Dim_j_As_Long
________For_j_=_LBound(bb)_To_UBound(bb)
____________If_aa(i)_=_bb(j)_Then
________________Exit_For
____________End_If
________Next
________If_j_>_UBound(bb)_Then
____________If_c_<>_""_Then
________________c_=_c_&_"_"
____________End_If
____________c_=_c_&_aa(i)
________End_If
____Next
____CutWord_=_c
End_Function

2022/07/14(木) 23:43:51.22

https://mevius.5ch.net/test/read.cgi/bsoft/1654860173/7
に似てる

2022/07/14(木) 23:52:28.92

気持ちわりぃなそのコード

2022/07/15(金) 00:00:11.50

>>973
どの辺りが？
それとも気持ち悪いって言いたかっただけ？

2022/07/15(金) 00:30:48.57

なんでスペースがアンダーバーなんだとは思うな
俺も見た目が受け付けなかったわ

2022/07/15(金) 00:48:33.55

いや、そもそも自作自演だろ

2022/07/15(金) 01:18:26.31

Sub Main()
　　Dim a As String
　　Dim i As Long
　　Dim j As Long
　　For i = 1 To 5
　　　　a = Cells(i, 1)
　　　　For j = 1 To 5
　　　　　　If i <> j Then a = CutWord(a, Cells(j, 1))
　　　　Next
　　　　Cells(i, 2) = a
　　Next
End Sub

Function CutWord(a As String, b As String) As String
　　Dim aa() As String
　　Dim bb() As String
　　Dim c As String
　　Dim i As Long
　　aa = Split(a, " ")
　　bb = Split(b, " ")
　　For i = LBound(aa) To UBound(aa)
　　　　Dim j As Long
　　　　For j = LBound(bb) To UBound(bb)
　　　　　　If aa(i) = bb(j) Then Exit For
　　　　Next
　　　　If j > UBound(bb) Then
　　　　　　If c <> "" Then c = c & " "
　　　　　　c = c & aa(i)
　　　　End If
　　Next
　　CutWord = c
End Function

**964** (ｽｯｯﾌﾟ Sd43-CglE) · 2022/07/15(金) 02:31:06.28

早速ご回答いただいた皆様、ありがとうございました！
ほぼ思い通りの結果を得ることができました。

ちなみにですが、
例えばA6に「DOG CAT RABBIT COW BEAR」というデータがある場合、
各単語がどれとも重複していないため「DOG CAT RABBIT COW BEAR」そのまま5単語が残ります。

各データのユニークな単語を最小数で残すことは可能でしょうか？
下記のような形です。

A
1 RED BLUE APPLE
2 RED BLUE BANANA
3 RED BLUE GREEN ORANGE
4 RED BLUE YELLOW WHITE GRAPE
5 RED BLUE WHITE CHERRY
6 DOG CAT RABBIT COW BEAR

↓

B
1 APPLE
2 BANANA
3 GREEN ORANGE
4 YELLOW GRAPE
5 CHERRY
6 DOG

度々申し訳ございませんが、よろしくお願いいたします。

2022/07/15(金) 02:36:26.14

いつものあいつだぞ

2022/07/15(金) 06:01:47.46

最小限の定義が不明

**デフォルトの名無しさん** (ｽﾌｯ Sd43-TkQT) · 2022/07/15(金) 07:03:30.04

Sub Main()
　　Dim a As String
　　Dim i As Long, j As Long
　　Dim last As Long
　　last = Cells(Rows.Count, 1).End(xlUp).Row
　　For i = 1 To last
　　　　a = Cells(i, 1)
　　　　For j = 1 To last
　　　　　　If i <> j Then a = CutWord(a, Cells(j, 1))
　　　　Next j
　　　　Cells(i, 2) = a
　　Next i
End Sub

Function CutWord(a As String, b As String) As String
　　Dim aa() As String
　　Dim bb() As String
　　Dim c As String
　　Dim i As Long, j As Long
　　aa = Split(a, " ")
　　bb = Split(b, " ")
　　For i = LBound(aa) To UBound(aa)
　　　　For j = LBound(bb) To UBound(bb)
　　　　　　If aa(i) = bb(j) Then Exit For
　　　　Next j
　　　　If j > UBound(bb) Then c = c & aa(i) & " "
　　Next i
　　CutWord = Trim(c)
End Function

2022/07/15(金) 07:30:27.66

俺のコードをいじってくれてうれしいが
Valueとったり改行いじったりしてるだけで行数減らしてるだけなんて結局マイルールのこだわりを主張してるだけなんだよな
こんな方法あるぜってのが見たいわ

>>978
6が「DOG」になる最小数という意味が不明
先頭の単語を返すだけならCutWordの最後でaとcが同じ値になったらaa(LBound(aa))を返すようにすればいいのでは

2022/07/15(金) 07:47:41.51

value取るのは改悪で草

2022/07/15(金) 08:08:12.42

>>964
複数回現れる単語を削除すればいいのか？
Sub X964()
Dim Sheet As Worksheet: Set Sheet = ...
Dim Dictionary As Object: Set Dictionary = CreateObject("Scripting.Dictionary")
Dim LastRow As Long: LastRow = SheetSheet.Cells(Rows.Count, "A").End(xlUp).Row
Dim Row As Long
For Row = 1 To LastRow
Dim Word As Variant
For Each Word In Split(Sheet.Cells(Row, "A").Value, " ")
If Dictionary.Exists(Word) Then
Dictionary(Word) = Dictionary(Word) + 1
Else
Dictionary.Add Word, 1
End If
Next
Next
For Row = 1 To LastRow
Dim Uniques As String: Uniques = ""
For Each Word In Split(Sheet.Cells(Row, "A").Value, " ")
If 1 < Dictionary(Word) Then
If Uniques = "" Then
Uniques = Word
Else
Uniques = Uniques & " " & Word
End If
End If
Next
Sheet.Cells(Row, "B").Value = Uniques
Next
End Sub

2022/07/15(金) 08:10:06.84

>>973
気持ち悪いとは思わないけどちょっと非効率かなとは思う

2022/07/15(金) 08:49:49.31

そのコードカッケェ！

**デフォルトの名無しさん** (ｽﾌｯ Sd43-TkQT) · 2022/07/15(金) 09:42:45.28

Sub sample3()
　　Dim r As Long
　　Dim z As Long '最終行
　　Dim s As String '全データ
　　Dim a() As String '単語リスト
　　Dim i As Long
　　z = Cells(Rows.Count, 1).End(xlUp).Row
　　For r = 1 To z
　　　　Cells(r, 2) = Cells(r, 1)
　　　　s = s & Cells(r, 1) & " "
　　Next r
　　a = Split(s, " ")
　　For i = LBound(a) To UBound(a)
　　　　If Len(s) - Len(a(i)) > Len(Replace(s, a(i), "")) Then '2回以上出てくるか
　　　　　　For r = 1 To z
　　　　　　　　Cells(r, 2) = Trim(Replace(Cells(r, 2), a(i), "")) '各セルから削除
　　　　　　Next r
　　　　End If
　　Next i
End Sub

2022/07/15(金) 09:47:20.06

効率どうこう言う前に重複した単語がでるような関数はどうかと思うのｗ

2022/07/15(金) 13:22:47.81

ここでRuby馬鹿がRubyではこうなるとか書くのは見えている

2022/07/15(金) 19:00:37.71

オレンジ色のオレンジはどうなの？

2022/07/15(金) 19:14:37.65

どんなに良コード書いても難癖付けられるのがこのスレ

2022/07/16(土) 02:37:29.28

userformをshowした直後にunloadするとexcelが落ちるのは何とかならんかのぉ
hideじゃだめなんじゃunloadじゃないと

2022/07/16(土) 07:52:34.81

UserForm1.Show vbModeless
Unload UserForm1

って意味なら、別に落ちなかったけど

2022/07/16(土) 08:52:29.38

逆になんでhideじゃダメなの

2022/07/16(土) 13:26:34.40

とりあえずEXCELが落ちるっていうコードと環境出せ
話はそれからだ

2022/07/16(土) 18:00:44.38

>>978
Ruby で作った

require "csv"

input_str = <<"EOT"
RED,BLUE,APPLE
RED,BLUE,BANANA
RED,BLUE,GREEN,ORANGE
RED,BLUE,YELLOW,WHITE,GRAPE
RED,BLUE,WHITE,CHERRY
DOG,CAT,RABBIT,COW,BEAR
EOT

csv = CSV.new( input_str )
input_ary = csv.read # 2次元配列

# 各単語の出現回数を数える。Hash の初期値は、0
hash = input_ary.each_with_object( Hash.new( 0 ) ) { |row, hash|
row.each { |word| hash[ word ] += 1 }
}

# 出現回数が2以上の単語を削除する
input_ary.map! { |row|
row.delete_if { |word| hash[ word ] >= 2 }
row
}

# 2次元配列を、CSV 文字列に変換する
csv_str = input_ary.map( &:to_csv ).join
puts csv_str

2022/07/16(土) 19:45:04.74

>>996
廃止決定した言語じゃん

2022/07/17(日) 00:22:00.69

あんたら色んな言語を習得していてエリートなんだな？
５ちゃんねるなんかにいてもったいねーわ

2022/07/17(日) 02:44:22.32

>>995
993と同じ、2行だけ
エクセルは2013

>>994
閉じたWebbrowserを再表示する方法がわからないので仕方なく

2022/07/17(日) 04:50:23.78

こいつの書くコード、rubyとしてもクソコードなのがほんとひどい

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 77日 2時間 26分 42秒