Excel VBA 質問スレ Part67

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-3+hg)
垢版 |
2020/06/26(金) 02:01:29.56ID:uDfmpksE0
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

※前スレ
Excel VBA 質問スレ Part66
https://mevius.5ch.net/test/read.cgi/tech/1589085825/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2020/06/29(月) 22:35:48.51ID:6d9dL1u1a
>>78
間違えるないうようなユーザーフォームな時点でな
ロジカルなシンキングな出来てないな
2020/06/29(月) 22:40:32.32ID:R8I/2vyw0
>>79
ユーザーフォームのボタンの配置とか割り当てとかタブ分けとか悪戦苦闘してる
そこらへんのセンスがないんだよぁ
2020/06/29(月) 22:44:33.56ID:9POaIpQ1a
>>80
作業を分けてフローチャートを紙に書いてみた方が良いよ
頭の中の整理できるから
2020/06/29(月) 22:50:58.30ID:R8I/2vyw0
一応タブ分けしてみた
一番左はデータを指定したシートに全部読み込む

次のタブで選択セル±の反転をさせる
最初はabsで絶対値にすればいいかと思ったけどマイナス値が必要な数値があったため*-1で

その次のタブで四捨五入
選択セルを0.00まで四捨五入するボタンと
0.0まで四捨五入するボタン

最後のタブで選択セル-A列にある数値の
引き算をさせるボタン

なんか工程毎にタブ分けしてみたけど
慣れないとみんな使いにくそう
なかなかなぁ
2020/06/29(月) 23:04:34.75ID:SxZPiP67a
>>82
作業工程ごとに選択肢が複数あって
それぞれに元に戻すボタンをつけるの？
囲碁や将棋ソフトじゃないんだからさ
しかも完成しても使いにくいとか
考えたくないくらいめんどくせー、わし降りた。
2020/06/29(月) 23:31:00.77ID:R8I/2vyw0
>>83
そうなんよ、±反転はまぁいいとして
四捨五入と最後のまとめ計算がなぁ…と
2020/06/29(月) 23:34:38.34ID:PVh3udJT0
操作する前に、シートをコピーして非表示にしとけば
戻すボタンでコピーしておいたシートに差し替えて戻すｗ
2020/06/30(火) 00:16:48.03ID:HFjntDoM0
間違えることくらいあるだろう
人間だもの
87デフォルトの名無しさん (ｱｳｱｳｴｰ Sabf-PKxn)
垢版 |
2020/06/30(火) 00:22:19.44ID:l6PnVpoXa
>>84
タブじゃなくてWordの葉書作成ウィザードみたいにしたらどうかな
アプリのインストールみたいに
順番に選択肢や入力欄があって
下にボタンで進んで行くイメージ［<<戻る］［次へ>>］［完了］
2020/06/30(火) 08:45:53.97ID:LUNyPqILd
>>84
根本的な考え方が違う。
フォームの内容を全部ユーザー定義かクラスに持たせて、そこ経由で動作させるようにする。
何かの動作はユーザー定義を元に動作させ、ユーザー定義をフォームに読み込むようにすれば簡単だ。
2020/06/30(火) 17:46:29.02ID:HFjntDoM0
普段からそういうの慣れてる人ならできるだろうが初心者に言っても無理だろ
2020/06/30(火) 18:08:03.74ID:ulIgP7Tu0
>>87
ありがとう、かなり見やすくかるかも
そのやり方でも作ってみるよ

>>88
ごめん、全く理解できん素人なので
教えてとは言えないからもう少しだけわかりやすく言ってもらえると
でも導入は厳しそうかなぁ
2020/06/30(火) 18:34:02.50ID:iUIa6Vpk0
配列の勉強中です
１行目にタイトルが入っていて、２行目以降に値が入っているシートで、Ｃ列に"年"、Ｄ列に"月"、Ｅ列に"日"が入っています。
そこで、同じ行のＡ列にＣ〜Ｅの値を結合して「年/月/日」の表示にしたいのですが、配列を使うにはどう書けばいいでしょうか？

Sub Test()

Dim i As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

ReDim MyArray(LastRow - 2, 3) As Variant
ReDim DayArray(LastRow - 2) As Variant

MyArray = Range("C2:E" & LastRow)

For i = 0 To LastRow - 2
DayArray(i) = MyArray(i, 1) & "/" & MyArray(i, 2) & "/" & MyArray(i, 3)
Next i

Range("A2:A" & LastRow) = DayArray

End Sub
92デフォルトの名無しさん (ﾜｯﾁｮｲ 4fe6-TKJB)
垢版 |
2020/06/30(火) 18:39:14.24ID:Z3NkR/bn0
数式張り付けろや
2020/06/30(火) 18:47:22.61ID:x94da/wE0
>>91
代入先がLastRow-1行1列の2次元なら配列もそうせんと
2020/06/30(火) 19:05:07.51ID:iUIa6Vpk0
>>93
すみません。書き方を教えてください
2020/06/30(火) 19:24:15.34ID:x94da/wE0
>>94
何の書き方？配列サイズを代入先セル範囲の行数と列数分用意するだけだぞ
2020/06/30(火) 19:40:39.93ID:iUIa6Vpk0
↓ですか？
"インデックスが有効範囲にありません"のエラーがでます

Dim i As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

ReDim MyArray(LastRow - 2, 3) As Variant
ReDim DayArray(LastRow - 2, 1) As Variant

MyArray = Range("C2:E" & LastRow)

For i = 0 To LastRow - 2
DayArray(i, 1) = MyArray(i, 1) & "/" & MyArray(i, 2) & "/" & MyArray(i, 3)
Next i

Range("A2:A" & LastRow) = DayArray
2020/06/30(火) 19:42:59.95ID:s83lPCQk0
配列数クソめんどいからこれでいいよ
Sub test()
Dim endRow As Long
endRow = ActiveSheet.UsedRange.Rows.Count
Dim ary As Variant
ary = Range(Cells(1, 1), Cells(endRow, 5)).Value
Dim i As Long
For i = 1 To endRow Step 1
ary(i, 1) = VBA.DateSerial(ary(i, 3), ary(i, 4), ary(i, 5))
Next i
Range(Cells(1, 1), Cells(endRow, 1)).Value = ary
End Sub
2020/06/30(火) 19:47:07.61ID:s83lPCQk0
range.valueからできる二次元配列の開始番号は0ではなく、1ですねえ
2020/06/30(火) 20:10:45.24ID:iUIa6Vpk0
>>95,97,98
動きました！ありがとうございます。
2020/06/30(火) 20:21:46.34ID:h7LW9tmr0
0番目のセルは無いのに0番目の配列要素はあるから面倒臭いよな
2020/06/30(火) 20:28:40.73ID:x94da/wE0
場合によってはoffset(i)にすればよい
2020/06/30(火) 20:44:53.74ID:iUIa6Vpk0
すみません勘違いをしていました。最終行の

「Range("A2:A" & LastRow) = DayArray」

だと、Ａ列が２行目以降空欄になってしまいます。

「Range(Cells(2, 1), Cells(LastRow, 1)) = DayArray」

も同じでしたが、

For i = 2 To LastRow
Range("A" & i) = DayArray(i - 1, 1)
Next i

だと入りますが、できれば一括で置き換えたいので、正しい書き方を教えてください
2020/06/30(火) 20:53:49.15ID:x94da/wE0
>>102
入力先のセルは1列分なのにDayArrayは2列分あって2列目に年月日が入ってる
ReDimを見直せ
2020/06/30(火) 21:20:49.01ID:iUIa6Vpk0
>>103

Forの処理をこれに変えたらできました。ありがとうございます

DayArray(i - 1, 0) = MyArray(i, 1) & "/" & MyArray(i, 2) & "/" & MyArray(i, 3)
2020/06/30(火) 21:53:25.32ID:5LSCXiWjd
ListView(lvw1、lvw2)を2つ用意して、それぞれに同じデータを同じ順番に追加した状態です。
矢印キーの上下でlvw1とlvw2の同行選択状態ってどうやってやるんですか？
2020/06/30(火) 22:01:34.74ID:3GBrKjbXa
>>105
1と2で同じ操作をやりたいなら、別プロシージャに切り分けて(関数化)それをそれぞれに処理する方がわかりやすい
2020/06/30(火) 22:14:31.69ID:x94da/wE0
>>105
keydownイベントで上下の時になんやかんやする
2020/06/30(火) 22:19:33.56ID:x94da/wE0
操作に関わらず一緒でいいならchangeイベントで楽に済ませられるが…
2020/06/30(火) 22:39:03.05ID:ulIgP7Tu0
Sub 四捨五入()
Dim PP As Range
Dim SELU As Range Set PP = Selection.EntireRow Set PP = Intersect(PP, Range("G:AE")) If WorksheetFunction.Count(PP) = 0 Then Exit Sub Set PP = PP.SpecialCells(xlCellTypeConstants, xlNumbers) For Each SELU In PP SELU = Round(SELU, 2) SELU.NumberFormatLocal = "0.00;-0.00;0" Next SELU End Sub

昨日の俺です
こんな感じで四捨五入をしてる
やはり記録するかコピーしといて間違えたら戻す作戦かなあ
2020/06/30(火) 22:56:39.68ID:RrxBtxCBr
A列とＢ列にＸＹデータが書かれているファイルがある

このファイルが複数あり、データを縦にくっつけてひとつのファイルにする方法をお願い致します。
111デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMc3-qQym)
垢版 |
2020/06/30(火) 23:33:01.16ID:ayj87xxdM
>>110
「vba 別のブック間　コピー」でググればそれなりの答えのサイトは出てくるよ
2020/07/01(水) 16:24:36.34ID:/ZTplk5x0
グラフの列の範囲を１つ進めて、範囲が変わったグラフを眺めてまた次の範囲を選択するマクロにしたいのですが、うまくいきません。
sleepで５秒待機するループにすると、マクロが終わるまでグラフはそのままです。
何か良い方法はありますか？
2020/07/01(水) 16:38:43.05ID:ufrQ+5Zi0
新しい表示にしてから待機したらいいんでないの
2020/07/01(水) 17:00:30.01ID:JVz0cdM50
DoEvents
2020/07/01(水) 17:01:38.04ID:wdJg4V2k0
眺め終わったら自分でボタン押す仕様にすればいい
2020/07/01(水) 18:02:59.35ID:cdm/n45Wa
眺めるってw
2020/07/01(水) 18:14:23.56ID:BGy1oUher
A列に上から1万個くらいのデータがある。

ある値以下なら行全体削除、上詰めにするマクロをお願い致します。


ググってもまとをえたのがなく困ってます。
2020/07/01(水) 18:21:37.82ID:ufrQ+5Zi0
>>117
作業列作ってある値以下なら1立てる→1でオートフィルタ→行削除
2020/07/01(水) 18:24:14.85ID:g4YauoQu0
>>117
どうせ暇なんだろ、１万くらい手作業でやれよ
2020/07/01(水) 18:24:43.29ID:v2a99oiHF
>>117
範囲をテーブルにする
条件に当てはまる行のa列から、データの入ってる最終列までClearContents
で、テーブルをある列基準に並び替え
2020/07/01(水) 18:34:27.89ID:5XfsDMDI0
wordをcomで操作しているんですが、基本的にcomは
同期処理できないんですか？
たとえば、よくあるprintout(wordVBAの)〜Set wordApp = Nothing
の流れなんかは、Application.Waitを入れないと印刷される前に
終わってしまいます。
122デフォルトの名無しさん (ﾜｯﾁｮｲ 1e61-LTdq)
垢版 |
2020/07/01(水) 18:38:53.74ID:34UZRJ820
>>117
dim r as long
dim was as excel.worksheet
set we=activesheet
Do while r>0
if ws.cells(r,”A”)<ある値 then
ws.rows(r).delete shift:=xlup
else
r=r-1
end if
loop
パフォーマンスは知らん
2020/07/01(水) 19:21:24.82ID:g4YauoQu0
そして動かないとか言ってくる初心者
2020/07/01(水) 19:44:41.54ID:l3YNJLMh0
deleteは重いわ誤作動起こしやすいわいいことないよな
2020/07/01(水) 19:59:04.37ID:fKGbFrld0
誤作動なんて起こすの？
単にセル番号計算ミスしたスクリプト書くだけなら理解できるけど、誤作動なんてあったら使えないな
2020/07/01(水) 20:06:30.76ID:Tir3cVcXa
フィルターかけてカレントリージョンでコピーして新規シートに貼り付けが良さそう
127デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMc2-4eOZ)
垢版 |
2020/07/01(水) 21:01:32.84ID:v34eJavmM
>>122
(r,”A”)<ある値
顔文字に見えたわw
128デフォルトの名無しさん (ﾜｯﾁｮｲ 1eae-M/Ft)
垢版 |
2020/07/01(水) 21:43:01.53ID:H9TCgnXe0
Webで見たぐらいの初心者なのですが
書式設定の複数1行列を色変える作業が
200回ほどやらなきゃいけなく
マクロ組んでみようかと頑張ったのですが
上手くいきません

Dim a As Integer
Dim row1 As Integer
row1 = 3
For a = 0 To 200
Columns("row1 + a , P + a").Select
Selection.Format Conditions.以下略
Selection.Format Conditions以下略
With Selection.略
Selection略
Selection略
Selection略
End With
Next a

row1を無くしてb=3
これをColumnsをRange(b+a,b+a)
で出来ますでしょうか？
Rangeの指定カッコ内では数式を入れられないとかありますか？
129デフォルトの名無しさん (ﾜｯﾁｮｲ 1eae-M/Ft)
垢版 |
2020/07/01(水) 22:17:29.48ID:H9TCgnXe0
Range(cells(a,1),cells(a,16)).Select
でやってみます
2020/07/01(水) 22:45:11.71ID:xxJ42X4qa
何故初心者はSelectしたがるのか
2020/07/01(水) 23:36:22.71ID:yn1qRX7nM
>>35
>>130
マクロの記録がその手のコードを生成するからでしょ
2020/07/02(木) 01:40:39.72ID:Y/spJvDG0
条件付き書式とかは？
2020/07/02(木) 02:34:51.75ID:G8g1bCvWr
このメニューで、空白セルにチェック入れると空白セルを選択しますね。

では例えば値が100以上など、条件つきのセルを選ぶ事はできますか？

https://i.imgur.com/zyDAZ0X.jpg
2020/07/02(木) 04:05:38.32ID:vmiMC9VK0
教えてください。
imagemsoの名称からfaceidに変換することは可能でしょうか？
もしくはmsoBarPopupでimagemsoを使用することは可能でしょうか？
2020/07/02(木) 06:28:30.74ID:PEAIWqln0
>>133
選んだセルをどうしたいかによるけど、オートフィルかけて選択とか
2020/07/02(木) 08:20:19.52ID:yX39WODNa
他人の作ったコードはなぜ読む気がしないのか
2020/07/02(木) 10:30:47.89ID:KAImZ3Owa
読む必要はないからな
138デフォルトの名無しさん (ﾜｯﾁｮｲ 1e8e-0gyK)
垢版 |
2020/07/02(木) 12:31:17.08ID:cWLbwDw40
馬鹿の特徴

「教えて」「助けて」

で始まる書き込みをする
2020/07/02(木) 13:06:37.09ID:vmiMC9VK0
>>138
馬鹿でもいいです。
じゃあ、模範的な質問の仕方を教えてください。
2020/07/02(木) 15:30:35.30ID:NxUusdo6a
そんなものはない
2020/07/02(木) 16:07:39.62ID:fLeksvw30
>>140
ありがとうごさいました。参考になります。
2020/07/02(木) 16:13:40.59ID:pSHiLlcA0
馬鹿の特徴

人にマウントしたがるだけで
質問への答えは出さない
2020/07/02(木) 17:04:38.40ID:2Xt/GnSW0
>>142
馬鹿でもいいです。
じゃあ、模範的な回答の仕方を教えてください。
2020/07/02(木) 17:44:48.44ID:Q59tEF0c0
そんなものはない
2020/07/02(木) 17:45:12.17ID:q3lU8bAMa
そんなひとはいない
2020/07/02(木) 21:22:15.18ID:sbstkRF+M
馬鹿には馬鹿と指摘しないと、あまりに低レベルの自分でやってみようという意志もない馬鹿な質問で溢れかえるからこれくらいでいい
2020/07/02(木) 21:49:51.56ID:2Xt/GnSW0
>>144
ありがとうございました。参考になります。

>>145
消えろ
2020/07/02(木) 22:51:02.52ID:7/3Aifl90
ここが上級者ばかり集う高尚なスレだと思っているのかWWWWWWWWWWWW
VBAごときでWWWWWWWWWw
2020/07/02(木) 23:33:21.68ID:0km7hKfU0
VBAを随分下に見てるねえ。
別にC#で回答してもいいよ?
VBAに脳内変換するから。
2020/07/02(木) 23:47:09.16ID:Y/spJvDG0
上級者も馬鹿も両方いてあたりまえ
お前らそんなにマウントとりたいのかｗ
151デフォルトの名無しさん (ﾜｯﾁｮｲ bb80-Rur7)
垢版 |
2020/07/02(木) 23:59:32.57ID:yXnL3NZ/0
誰か教えて。
式に＝とか＋を使うと字が読みにくくて困っています。
全角文字や絵文字を使うことはできないのでしょうか？
急いでいますからすぐに教えて、
152 テトリス ◆SYKnw8OJpw
垢版 |
2020/07/03(金) 00:10:57.30
テスト
2020/07/03(金) 00:14:47.41ID:P5PHrlsB0
>>151
一休さんかコロンブスみたいな回答で良いなら出来る。
実際に全角文字や絵文字で書いてみな。
2020/07/03(金) 04:04:14.78ID:B7qpVotz0
Function 〓(ByRef a, ByVal b) : a = b : End Function
Function ┼(ByVal b, ByVal c) : 〓 ┼, WorksheetFunction.Sum(b, c) :End Function
これを入れておけば、=とか+から解放されるぞ

Sub test()
Dim a
〓 a, 1
Debug.Print ┼(a, 1)
End Sub
2020/07/03(金) 12:58:30.06ID:KESc8IU30
そんなソース絶対読みたくないな

読みやすいフォント探すか自作すればいいだけだろうに
2020/07/03(金) 13:30:11.45ID:hUamHkOVa
ハズキルーペ使えよw
2020/07/03(金) 21:14:38.38ID:mplhmvvw0
ワークシートの条件にあう行を削除して上に詰めるみたいなことを、配列内でしたいです。

多次元配列"ary"内の1列目が66か、6列が1000か、28列目が空欄のレコードを削除するコードを教えてください
158デフォルトの名無しさん (ﾜｯﾁｮｲ 8ab5-5DWS)
垢版 |
2020/07/03(金) 21:23:34.89ID:Mxid+JS90
E列が空白になるまでE列とG〜M列に特定の処理をしたくて
Do loopを使って何とかできないかと悩んでたけど座礁しますた

Eの11行目を起点にして
E列の数値が正の数ならEもG〜Mも数値はそのまま
E列の数値が0ならEもG〜Mも数値はそのまま
Eの数値が負の数ならEとG〜Mの数値を-*1
と反転させたい
ってのは素人には荷が重すぎですかね？
2020/07/03(金) 21:31:07.37ID:DQKehNsV0
157,188
お互いに相手のコード相談しながら考えてあげればいいんじゃね
ちょうどよさげだわレベル
2020/07/03(金) 21:44:24.02ID:4NyCV/dB0
>>158
いいえ、がんばればできます
2020/07/03(金) 21:55:13.66ID:4NyCV/dB0
Sub Macro1()
　　r = 11　'起点の行
　　Do While Cells(r, "E") <> ""
　　　　If Cells(r, "E") < 0 Then
　　　　　　Cells(r, "E") = -Cells(r, "E")
　　　　　　For c = Asc("G") To Asc("M")
　　　　　　　　Cells(r, Ch r(c)) = -Cells(r, Ch r(c))
　　　　　　Next c
　　　　End If
　　　　r = r + 1
　　Loop
End Sub
2020/07/03(金) 22:17:41.55ID:aUU6z7Ir0
そもそもマクロ作るのって違うデータでも同じ処理をやりたいような場合じゃないのか
一回限りのデータ抽出ならわざわざマクロなんか作る意味ないんだけどな
無駄に時間を浪費したいのかな
2020/07/03(金) 22:37:42.83ID:qSqs6yG50
使い捨てマクロってのもありまして
2020/07/03(金) 22:48:22.59ID:3J4wGhdX0
定型フォーマットの複数ファイルの同項目の値を集計したい
なんて時は使い捨てマクロかな
2020/07/03(金) 23:04:06.95ID:KESc8IU30
>>157
VBAの配列に要素詰める命令はなかったはずなので、どうしてもというなら
　該当要素より下の要素を一つずつ上にずらす
　最後の要素を消す
とやればできなくはないがお勧めはしかねる
2020/07/03(金) 23:06:05.89ID:KESc8IU30
>>158
それVBAじゃなくても計算式とワークの列使えばできると思うけど
なぜ素人がVBAでやろうと思うんだ
167デフォルトの名無しさん (ﾜｯﾁｮｲ 8ab5-5DWS)
垢版 |
2020/07/03(金) 23:26:37.07ID:Mxid+JS90
>>161
構文エラーでしたわ
>>166
VBAでやりたかったのです…
2020/07/03(金) 23:27:55.78ID:8QUz9sdRa
確かに一回限りの作業なら
マクロ考えているよりやった方が終わってるかもな
2020/07/03(金) 23:35:20.76ID:P5PHrlsB0
>>157
配列内でやるならレコードセットだな。
2020/07/03(金) 23:42:57.67ID:9EQo/V7m0
一回きりだろうと同じ処理100回やるようなのもあるんだし
2020/07/03(金) 23:46:08.59ID:P5PHrlsB0
1回限りでも3行くらいで済むのは書くな。
172デフォルトの名無しさん (ﾜｯﾁｮｲ bb1d-+upQ)
垢版 |
2020/07/04(土) 00:48:12.93ID:KIBH4SNT0
まだ22歳の学生社長が得た､23億円の｢使い道｣
あの橋本環奈をCMに使うバイトアプリの雄
https://toyokeizai.net/articles/-/319511
中学時代の車いす生活から、17歳で起業するまで
https://www.advertimes.com/20200130/article306925/
ミャンマー発 AIダイニングアプリ「Yathar」をしかける日本人起業家
https://roboteer-tokyo.com/archives/14840
自分の視野は「世の中の0.001%」と自覚せよ。ビジネスチャンスを掴む4つの習慣
https://headlines.yahoo.co.jp/hl?a=20200511-00010001-srnijugo-life
アプリの視聴率がわかる　高専卒起業家の独創力
https://www.nikkei.com/article/DGXMZO46695580Y9A620C1000000/
１万人の若者を支援！インターンが日本を変えるかも！？　glowshipの若き創業者・足立卓也氏インタビュー
https://sogyotecho.jp/glowship-adachi-interview/
大学生起業家が設立１年で20億円調達！ 単発バイトアプリに外食企業など出資【タイミー】
https://foodfun.jp/archives/3490
2020/07/04(土) 01:40:09.94ID:IOVEPry/0
一般論としては頻度の多い作業の方が自動化に向いてるのは確かだけど、
1回だけでも大量のデータを加工したり手作業でやるには時間のかかる作業もあり、
作業時間の方がコード書く時間より長くなる場合も多々もあるのでケースバイケースやね
174デフォルトの名無しさん (ﾜｯﾁｮｲ 5301-JCxG)
垢版 |
2020/07/04(土) 01:58:21.07ID:42LT/T3f0
逆に、山田やっとけ、というのはどうよ？
2020/07/04(土) 02:07:27.87ID:VMWug14q0
やるとは何を？
176デフォルトの名無しさん (ﾜｯﾁｮｲ 5301-JCxG)
垢版 |
2020/07/04(土) 02:09:15.54ID:42LT/T3f0
データの加工。
2020/07/04(土) 02:10:42.23ID:VMWug14q0
加工すればいいんじゃね
178デフォルトの名無しさん (ﾜｯﾁｮｲ 5301-JCxG)
垢版 |
2020/07/04(土) 02:13:10.44ID:42LT/T3f0
いや、山田がやってくれないかなって。
だめ？
2020/07/04(土) 02:16:03.66ID:VMWug14q0
だから山田がデータを加工すればいいんじゃね
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。